用户管理及登陆程序设计 vb实验报告

软件开发环境与工具实验报告实验二实验题目：用户登录及管理系统实验地点：软件实验室一指导老师：王琦实验类型：设计型系班：计算机科学与技术系1103班姓名：秦芳芳（2011100316）2013年11月22日一．实验项目名称：用户登录及管理系统二. 实验目的和任务：1、掌握系统登录界面设计基本流程2、了解用户管理所要实现的基本功能3、要求利用三层架构思想机相关技术实现程序三. 实验内容及要求：1、能够进行登录验证2、能够实现对用户的基本管理,管理员能够进行查询添加修改删除3、利用数据库连接访问数据库,提高安全性四．实验步骤：1、class1.vb的代码：Imports System.Data.SqlClientPublic Class Class1Dim strconn As String = Me.getstrconn()Public Function yanzheng(ByVal str1 As String) As Integer Dim conn As New SqlConnectionconn.ConnectionString = strconnconn.Open()Dim cmd As New SqlCommandmandText = "select * from student where sname ='"& str1 & "'" cmd.Connection = conn'mandType = CommandType.TextDim dr As SqlDataReaderdr = cmd.ExecuteReaderIf dr.Read Thendr.Close()conn.Close()Return 1Elsedr.Close()conn.Close()Return 0End IfEnd FunctionPublic Function pwdyanzheng(ByVal str As String) As SqlDataReader Dim conn As New SqlConnectionconn.ConnectionString = strconnconn.Open()Dim cmd As New SqlCommandmandText = "select * from student where sname = '"& str & "'" cmd.Connection = connDim dr As SqlDataReader = cmd.ExecuteReaderReturn drEnd FunctionPublic Function getstrconn() As StringDim str As Stringstr = "server=" &System.Configuration.ConfigurationManager.AppSettings("server") & ";" str &= "uid=" &System.Configuration.ConfigurationManager.AppSettings("uid") & ";"str &= "pwd=" &System.Configuration.ConfigurationManager.AppSettings("pwd") & ";"str &= "database=" &System.Configuration.ConfigurationManager.AppSettings("database") Return strEnd FunctionPublic Function getalldata() As DataSetDim conn As New SqlConnectionconn.ConnectionString = strconnconn.Open()Dim da As New SqlDataAdapter("select * from student", conn)Dim ds As New DataSetda.Fill(ds, "student")conn.Close()Return dsEnd FunctionPublic Function insdata(ByVal str1 As String, ByVal str2 As String) As StringDim conn As New SqlConnectionconn.ConnectionString = strconnDim cmd As New SqlCommandcmd.Connection = connmandText = "insert into student(sname,sno) values('" & str1 & "','" & str2 & "') "Tryconn.Open()cmd.ExecuteNonQuery()Return"1"Catch ex As ExceptionReturn"-1" & ex.MessageEnd Tryconn.Close()End FunctionPublic Function upd(ByVal str1 As String, ByVal str2 As String) As StringDim conn As New SqlConnectionconn.ConnectionString = strconnDim cmd As New SqlCommandcmd.Connection = connmandText = "update student set sno ='" & str2 & "'where sname ='" & str1 & "'"Tryconn.Open()cmd.ExecuteNonQuery()Return"1"Catch ex As ExceptionReturn"-1" & ex.MessageEnd Tryconn.Close()End FunctionPublic Function deldata(ByVal str As String) As StringDim conn As New SqlConnectionconn.ConnectionString = strconnDim cmd As New SqlCommandcmd.Connection = connmandText = "delete from student where sname ='"& str & "'"Tryconn.Open()cmd.ExecuteNonQuery()Return"1"Catch ex As ExceptionReturn"-1" & ex.MessageEnd Tryconn.Close()End FunctionPublic Function search(ByVal str1 As String) As StringDim conn As New SqlConnectionconn.ConnectionString = strconnDim cmd As New SqlCommandcmd.Connection = connmandText = "select * from student"Tryconn.Open()cmd.ExecuteNonQuery()Return"1"Catch ex As ExceptionReturn"-1" & ex.MessageEnd Tryconn.Close()End FunctionEnd Class2、进入界面功能的代码：Imports System.Data.SqlClientPublic Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim o As New Class1Dim f As Integerf = o.yanzheng(Me.TextBox1.Text)If f = 0 ThenMsgBox("不存在该用户，请重新输入！")Me.TextBox1.Text = ""Me.TextBox1.Focus()ElseIf f = 1 ThenDim dr As SqlDataReaderdr = o.pwdyanzheng(Me.TextBox1.Text)dr.Read()If RTrim(dr!sno) <> Me.TextBox2.Text ThenMsgBox("密码错误，请重新输入！")Me.TextBox2.Text = ""Me.TextBox2.Focus()ElseDim strpwd As Stringstrpwd = Me.TextBox2.Textstrpwd =System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfi gFile(strpwd, "md5")Dim frm As New Form2frm.loginname = Me.TextBox1.Textfrm.logintime = TimeOfDayfrm.Show()Me.Hide()End IfEnd IfEnd IfEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickMyBase.Dispose()End SubEnd Class3、用户管理和浏览信息界面的代码：Public Class Form2Public loginname As StringPublic logintime As StringPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickMe.Hide()Form3.Show()End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickMe.Hide()Form4.Show()End SubPrivate Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadMe.loginstatusname.Text = "用户名：" & loginnameMe.loginstatustime.Text = "登录时间：" & logintime End SubPrivate Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.TickMe.ToolStripStatusLabel1.Text = NowEnd SubEnd Class4、增，删，改，查功能页面的代码：Public Class Form3Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickMe.Hide()del.Show()End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickMe.Hide()ins.Show()End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickMe.Hide()upda.Show()End SubPrivate Sub Button4_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button4.ClickMe.Close()search.Show()End SubEnd Class5、显示信息界面的代码：Public Class Form4Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickMe.Close()Form2.Show()End SubPrivate Sub Form4_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LoadDim o As New Class1Dim ds As New DataSetds = o.getalldata()Me.DataGridView1.Refresh()Me.DataGridView1.DataSource = ds.Tables("student") End SubEnd Class6、插入信息界面的代码：Public Class insPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim o As New Class1o.insdata(Me.TextBox1.Text, Me.TextBox2.Text)Me.Close()Form2.Show()End SubEnd Class7、查询信息界面的代码：Public Class searchPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim o As New Class1Dim ds As New DataSeto.search(Me.TextBox1.Text)ds = o.getalldata()Me.DataGridView1.Refresh()Me.DataGridView1.DataSource = ds.Tables("student") End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickMe.Close()Form2.Show()End SubPrivate Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClickMe.TextBox1.Text =DataGridView1.CurrentRow.Cells.Item(0).Value.ToStringMe.TextBox2.Text =DataGridView1.CurrentRow.Cells.Item(1).Value.ToStringMe.TextBox3.Text =DataGridView1.CurrentRow.Cells.Item(2).Value.ToStringMe.TextBox4.Text =DataGridView1.CurrentRow.Cells.Item(3).Value.ToStringMe.TextBox5.Text =DataGridView1.CurrentRow.Cells.Item(4).Value.ToStringEnd SubEnd Class8、修改信息界面的代码：Public Class updaPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim o As New Class1o.upd(Me.TextBox1.Text, Me.TextBox2.Text)Me.Close()Form2.Show()End SubEnd Class9、删除信息界面的代码：Public Class delPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim o As New Class1'o.deldata(Me.TextBox1.Text)o.deldata(Me.TextBox1.Text)Me.Close()Form2.Show()End SubEnd Class五、运行结果及截图：（1）建立数据库（2）运行截图六、实验总结：通过本次实验，我大致掌握了一个登录系统界面设计的基本流程，同时了解了用户管理所要实现的基本功能，而且能够利用三层架构思想机相关技术实现程序，能够进行登录验证，实现了对用户的基本管理,在系统中实现了增删查改的功能，利用数据库连接访问数据库,提高了安全性，为以后的学习打下了很好的基础。

第1篇一、实验目的1. 熟悉登录系统的基本原理和设计流程。

2. 掌握使用常见开发工具进行登录系统设计的方法。

3. 提高编程能力和系统设计能力。

二、实验环境1. 操作系统：Windows 102. 开发工具：Java Web Development Kit (JDK) 1.83. 数据库：MySQL 5.74. 开发环境：Eclipse三、实验内容1. 需求分析2. 系统设计3. 系统实现4. 系统测试四、实验步骤1. 需求分析（1）用户需求登录系统应具备以下功能：1）用户注册：允许用户创建账户，输入用户名、密码、邮箱等基本信息。

2）用户登录：允许用户输入用户名和密码，验证用户身份。

3）找回密码：当用户忘记密码时，提供找回密码功能。

4）注销登录：允许用户退出登录状态。

（2）系统需求1）安全性：系统需保证用户数据的安全，防止数据泄露。

2）易用性：系统界面简洁，操作方便，易于用户使用。

3）稳定性：系统需具备良好的稳定性，能够应对高并发访问。

2. 系统设计（1）系统架构登录系统采用B/S（Browser/Server）架构，分为前端和后端两部分。

前端：使用HTML、CSS、JavaScript等技术实现用户界面。

后端：使用Java语言进行开发，结合MySQL数据库存储用户信息。

（2）模块设计1）用户注册模块：实现用户注册功能，包括输入用户名、密码、邮箱等基本信息。

2）用户登录模块：实现用户登录功能，验证用户身份。

3）找回密码模块：实现找回密码功能，允许用户通过邮箱或手机号找回密码。

4）注销登录模块：实现用户注销登录状态。

3. 系统实现（1）前端实现使用HTML、CSS、JavaScript等技术实现登录系统界面，包括注册、登录、找回密码等页面。

（2）后端实现1）使用Java语言实现用户注册、登录、找回密码等业务逻辑。

2）使用JDBC连接MySQL数据库，实现用户信息的存储和查询。

4. 系统测试（1）功能测试1）测试用户注册功能，确保用户可以成功注册账户。

大一VB的实验报告引言本次实验是关于VB（Visual Basic）的学习，在实验中，我们将学习VB的基础知识及其在实际应用中的使用方法。

VB是微软公司开发的一种基于Windows操作系统的可视化编程语言，最初是针对Office软件进行开发，后来逐渐扩展到Windows界面程序的开发，许多应用软件都是采用VB开发的。

本次实验主要涉及到VB的部分语法及其相关应用。

实验目的通过本次实验，学生应能够掌握以下知识：1.VB的基础语法知识及其应用方法；2.学会使用VB设计Windows应用程序；3.掌握VB窗体及控件设计，以及属性设置；4.掌握VB语言中数据类型、循环、分支结构等知识点；5.熟悉VB的IDE开发环境和调试功能；6.学会编写VB代码，完成简单的实际应用程序。

实验内容在本次实验中，我们主要完成了两个VB应用程序的设计与开发：第一个应用程序在第一个应用程序中，我们将实现以下功能：1.界面设计，包括窗体设计、按钮设计等；2.显示本地计算机的基本信息，如计算机名、操作系统版本号、CPU速度等；3.显示本地计算机的网络信息，如IP地址、MAC地址等；4.提供一个退出程序的功能按钮。

我们可以使用VB语言编写代码，通过各类控件的设计，来实现上述功能。

我们可以使用MsgBox函数来弹出消息窗口，使用Label和Text控件来显示文本信息，使用按钮控件来实现退出程序的功能。

具体实现方式可参考相关的VB编程书籍或网络资源。

第二个应用程序在第二个应用程序中，我们将实现以下功能：1.界面设计，包括窗体设计、按钮设计等；2.支持文本文件的读写，能够打开指定的文本文件并在程序中显示文件内容；3.支持文件编辑，能够在程序中修改文件内容并保存文件；4.提供一个退出程序的功能按钮。

实现这个功能主要需要使用VB语言中的文件处理函数来实现文件的读写操作。

我们可以使用FileOpen函数来打开指定的文件，FileGet函数读取文件内容，并使用FilePut函数来保存修改的文件内容。

VB实验报告范文实验报告一、实验目的1. 学习和了解Visual Basic的基本开发环境和编程语法；2. 掌握使用Visual Basic进行程序设计的基本技巧；3. 实践使用Visual Basic进行简单的程序设计；4.培养编程思维和解决问题的能力。

二、实验过程1. 熟悉Visual Basic的开发环境并创建新项目；2. 学习和掌握Visual Basic的基本语法与数据类型；3.设计并编写一个简单的图形化界面程序；4.调试程序并运行测试；三、实验内容在本次实验中，我设计了一个学生信息管理系统，其中包括学生信息录入、学生信息查询和学生信息删除三个功能。

2.学生信息查询功能：用户可以输入学生的姓名，系统将在学生信息列表中查找到相应的学生信息并显示出来。

3.学生信息删除功能：用户可以输入学生的姓名，系统将从学生信息列表中删除相应学生的信息。

四、实验结果1.学生信息录入功能：用户可以按照提示输入学生的信息，点击确认按钮后，系统会弹出提示信息，显示信息录入成功并将信息保存在列表中。

2.学生信息查询功能：用户可以按照提示输入学生的姓名，点击查询按钮后，系统会在学生信息列表中查找到相应的学生信息并显示在界面上。

3.学生信息删除功能：用户可以按照提示输入学生的姓名，点击删除按钮后，系统会从学生信息列表中删除相应学生的信息，并显示删除成功的提示信息。

五、实验总结通过本次实验，我初步掌握了Visual Basic的开发环境和编程语法，并成功设计并实现了一个简单的学生信息管理系统。

在实验过程中，我遇到了一些问题，如界面设计不够美观、数据验证不完善等。

通过仔细思考和调试，我解决了这些问题，并进一步提高了自己的编程技巧和调试能力。

通过这次实验，我深刻体会到了编程的乐趣和挑战，也明白了编程思维和解决问题的重要性。

希望在以后的学习中能够进一步提高自己的编程水平，实现更加复杂和实用的程序设计。

计算机上机实习（vb）大致思路：1.首先建一个文本文件“学生成绩”放在一个新建文件夹中，然后在此文件夹中输入二十个人的成绩及相关信息，包括学号，姓名，五门课程的名称。

2.再建一个文件夹叫做“课程学分”，在里面输入每个课程的编号，学时和名称并保存。

3.编写程序调用刚才保存的两个文件算出每个学生n门课的加权平均分然后排名，再把这班级成绩表保存在新建的文本文件“班级成绩表”中。

4.分别统计全班每门课的平均分，并计算每门课在60分以下，60~69,70~79,80~89,90分以上的人数，用vb创建一个叫“各分数段人数”的文本文件装此数据。

5.编程找出每门课中不及格的人，并在窗体上显示名单。

6.编程找出符合优等条件的人并在窗体上显示名单。

具体的流程：1.先编写如下程序使学生的每个信息的到保存，在自定义数组stu中有学生的姓名，学号，各科成绩。

再命名两个数组name和xf，让文本文件里的每一个信息调用起来方便简单。

2.求加权平均分，让每个学生的各科成绩分别乘以各成绩的学分，在除以总学分即为加权平均分。

有两个循环分别是20 个学生的循环和五门课的循环。

3.排名次，由于当两个人的成绩相等时要求名次一样，所以用书上常用的冒泡法和选择排序法是有些麻烦的，从而我用了把分数和每一位同学的分数比较来累计排名。

此时要在stu类型中加一个rank的分量。

从而有了下面的代码：4．统计分数段时，要求是统计每科的分数段人数，所以我先写了一个课程的分段程序，再把它复制四遍做适当的调整就得到了五门课的分段的程序：Private Sub mnuyw_Click()Picture1.ClsPicture1.Picture = LoadPicture("D:\要用的图片\16.jpg")Picture1.FontSize = 20Picture1.ForeColor = RGB(156, 134, 2)Picture1.Print Tab(20); "语文"Picture1.PrintPicture1.Print Tab(15); "范围"; Tab(30); "人数"Dim i%, b(1 To 5)For i = 1 To 5b(i) = 0Next iFor i = 1 To 20If stu(i).cj(1) <= 60 Then b(1) = b(1) + 1If stu(i).cj(1) < 69 And stu(i).cj(1) > 60 Then b(2) = b(2) + 1If stu(i).cj(1) < 79 And stu(i).cj(1) >= 70 Then b(3) = b(3) + 1If stu(i).cj(1) < 89 And stu(i).cj(1) >= 80 Then b(4) = b(4) + 1If 90 <= stu(i).cj(1) Then b(5) = b(5) + 1Next iPicture1.Print Tab(15); "=<60"; Tab(30); b(1)Picture1.Print Tab(15); "60-69"; Tab(30); b(2)Picture1.Print Tab(15); "70-79"; Tab(30); b(3)Picture1.Print Tab(15); "80-89"; Tab(30); b(4)Picture1.Print Tab(15); ">90"; Tab(30); b(5)5.打印学生的成绩单相当于把之前刚存好的班级成绩表再打印一次，所以代码用只读打开文本文件。

vb程序实验报告VB 程序实验报告一、实验目的通过本次实验，深入了解和掌握 Visual Basic（VB）程序设计的基本概念、语法和编程技巧，提高解决实际问题的能力，培养逻辑思维和创新能力。

二、实验环境操作系统：Windows 10开发工具：Microsoft Visual Basic 60三、实验内容本次实验主要包括以下几个方面的内容：1、界面设计使用 VB 的窗体设计器，创建一个简单的用户界面，包含文本框、按钮、标签等控件，并设置其属性，如字体、颜色、大小等，以实现美观和友好的用户交互。

2、变量与数据类型在程序中声明不同类型的变量，如整数型（Integer）、字符串型（String）、布尔型（Boolean）等，并进行赋值和运算操作，理解不同数据类型的特点和适用场景。

3、控制结构运用顺序结构、选择结构（IfThenElse、Select Case）和循环结构（ForNext、WhileWend）编写程序，实现条件判断和重复执行的功能，例如计算阶乘、判断素数、打印九九乘法表等。

4、数组与过程定义数组来存储和处理大量的数据，掌握数组的声明、初始化和遍历操作。

同时，学习使用过程（Sub 过程和 Function 过程）来封装可重复使用的代码块，提高程序的可读性和可维护性。

5、文件操作实现对文本文件的读写操作，包括创建文件、写入数据、读取数据和关闭文件，了解文件处理在实际应用中的重要性。

四、实验步骤1、界面设计（1）打开 Microsoft Visual Basic 60，新建一个标准 EXE 工程。

（2）在窗体上添加所需的控件，如文本框 Text1、Text2，命令按钮 Command1、Command2，标签 Label1 等。

（3）通过属性窗口设置各个控件的属性，如 Text1 的 Text 属性为空，Command1 的 Caption 属性为“计算”，Label1 的 Caption 属性为“结果：”等。

《VB程序设计》实训报告实训名称：教学信息管理系统实训专业：计算机应用技术班级：计算机10A1学号：*********姓名：陈健指导教师：***2011 年6月18 日实训成绩一、实训目的1. 学会综合运用VB有关的控件、函数和对象的知识，掌握VB的程序设计方法和技术。

2.通过一个教学信息管理系统的开发，掌握VB与ACCESS数据库的综合编程方法。

3. 掌握ACCESS数据库的设计；数据库的连接；绑定控件的属性设置、ADO数据控件的属性和方法；功能模块的编程和实现方法。

4.提高学生分析和解决实际问题的能力，调试和分析应用程序的能力，达到一定的应用程序设计水平。

二、实训报告内容2.1实训内容：教学信息管理系统采用C/S体系结构，采用Visual Basic 6.0作为开发工具，采用ACCESS数据库作为后台管理。

1.根据需求分析，创建ACCESS数据库和数据表2.主窗体和系统菜单设计3.用户管理，用户登录界面设计4.学生信息管理模块设计5.课程管理、班级管理、教师管理模块设计6.学生成绩管理模块设计根据实训项目各个模块任务要求，进行程序设计和调试。

实现信息的录入、编辑修改、删除、浏览功能，能实现信息的一般查询功能和条件查询功能，并进行系统总体整合和调试。

2.2 实训设备或软、硬件1. PC计算机，Windows XP操作系统2.Visual Basic 6.0集成开发环境3.ACCESS 2003数据库系统三、结论经过近两周的实训，我发现我对《VＢ程序设计》这门课有了更深的了解，以下是我对这次实训所做的总结：这次实训做的是“教学信息管理系统”，需要掌握ＶＢ与ＡＣＣＥＳＳ数据库的综合编程方法，所以首先要熟练掌握ＡＣＣＥＳＳ数据库的创建。

实训第一天，我首先了解了这次实训的目的及意义；然后便是完成当天的主要任务，即根据“教学信息管理系统”中的需求分析，创建ＡＣＣＥＳＳ数据库及数据表。

结合实际，需要在数据库中创建学生信息表、课程信息表、学生成绩表、班级信息表、教师信息表、教学安排表、用户表、创建查询等八个数据表。

一、实验目的本次实验旨在了解用户登录过程，分析用户登录过程中的常见问题，并针对这些问题提出相应的解决方案，以提高用户登录的效率和安全性。

二、实验内容1. 用户登录流程分析（1）用户输入用户名和密码（2）服务器验证用户名和密码（3）验证成功，用户登录成功；验证失败，提示用户名或密码错误2. 用户登录过程中常见问题（1）用户名或密码错误（2）账号被锁定（3）登录页面加载缓慢（4）登录过程中出现异常3. 解决方案（1）用户名或密码错误原因：用户输入错误或系统错误解决方案：①在用户登录页面增加密码提示功能，方便用户找回密码；②在用户登录失败时，记录失败次数，超过一定次数后锁定账号，防止恶意攻击；③优化用户名和密码验证算法，提高验证效率。

（2）账号被锁定原因：用户连续多次输入错误密码，导致账号被锁定解决方案：①在用户登录失败时，记录失败次数，超过一定次数后锁定账号，防止恶意攻击；②在账号被锁定后，允许用户通过邮箱、手机等方式找回账号；③设置账号解锁时间，如24小时，方便用户及时解锁账号。

（3）登录页面加载缓慢原因：服务器性能不足或网络延迟解决方案：①优化服务器性能，提高处理速度；②优化前端代码，减少页面加载时间；③优化数据库查询，提高查询效率。

（4）登录过程中出现异常原因：系统错误或用户操作不当解决方案：①优化系统稳定性，减少异常发生；②在登录过程中，增加异常处理机制，确保用户数据安全；③提供详细的错误提示，方便用户了解异常原因。

三、实验结果通过本次实验，我们分析了用户登录过程中的常见问题，并提出了相应的解决方案。

以下为实验结果：1. 用户登录流程分析用户登录流程如下：（1）用户输入用户名和密码；（2）服务器验证用户名和密码；（3）验证成功，用户登录成功；验证失败，提示用户名或密码错误。

2. 用户登录过程中常见问题及解决方案（1）用户名或密码错误：增加密码提示功能，记录失败次数，优化验证算法；（2）账号被锁定：记录失败次数，允许用户找回账号，设置账号解锁时间；（3）登录页面加载缓慢：优化服务器性能，优化前端代码，优化数据库查询；（4）登录过程中出现异常：优化系统稳定性，增加异常处理机制，提供详细的错误提示。

VB程序设计专业：测绘工程班级学号：1102601-24 编写人：丁浩指导老师：唐争气日期：2013.12实验一一、实验名称程序登录界面二、实验原理与过程（1）用户通过界面登录系统，输入用户名和密码；（2）用户名错误或者密码错误时提醒用户出现错误，并提醒用户共有三次操作机会；（3）当选择用户名和密码都正确时，提醒用户登录成功；三、部分代码Private Sub Command1_Click()Static t As IntegerIf Text1.Text = "" Then '如果Text1为空，即没有输入用户MsgBox "请输入用户名!", vbOKOnly + vbCritical, "错误"Exit Sub '退出这个过程End IfIf Text1.Text = "110260124" And Text2.Text = "666666" Then'如果输入的用户名是"110260124"且密码为"666666"MsgBox "密码正确，欢迎进入！", vbOKOnly + vbInformation, "欢迎进入"CX.ShowDL.HideElse '如果不是"1102601"或密码不是"666666"MsgBox "用户名或密码错误!", vbOKOnly + vbCritical, "错误"Text1.SetFocust = t + 1If t = 3 ThenMsgBox "3次出现错误，程序将自动退出"EndEnd If四、实验结果五、心得体会本次课外实验合理使用VB操作软件，设计了一个简易用户登录系统，能方便地实用户登录功能。

vb程序设计实验报告VB程序设计实验报告一、引言在计算机科学与技术领域中，程序设计是一项至关重要的技能。

Visual Basic （VB）作为一种强大的编程语言，被广泛应用于软件开发领域。

本实验报告旨在总结和分析我在VB程序设计实验中的学习和实践经验。

二、实验目的本次实验的主要目的是通过设计和实现一个简单的VB程序，加深对VB语言的理解和掌握。

通过这个实验，我将学习如何使用VB语言进行界面设计、事件处理和数据处理。

三、实验过程1. 界面设计在实验开始时，我首先进行了界面设计。

通过VB的可视化设计环境，我选择了合适的控件，布局了用户界面。

我使用了文本框、标签、按钮等控件，使用户能够输入数据并进行相应的操作。

2. 事件处理在界面设计完成后，我开始编写事件处理程序。

我为按钮添加了点击事件，当用户点击按钮时，程序会执行相应的操作。

例如，当用户点击“计算”按钮时，程序会读取用户输入的数据，并进行计算操作。

通过编写事件处理程序，我学会了如何响应用户的操作，并进行相应的逻辑处理。

3. 数据处理在实验中，我还学习了如何进行数据处理。

我使用了VB的变量和运算符，对用户输入的数据进行计算和处理。

通过编写算法和逻辑，我实现了对用户输入数据的验证和处理，确保程序能够正确运行。

四、实验结果经过一段时间的设计和调试，我成功完成了VB程序的实现。

我的程序可以根据用户输入的数据进行相应的计算，并将结果显示在界面上。

通过这个实验，我不仅巩固了VB语言的基础知识，还提高了自己的编程能力。

五、实验总结通过这次VB程序设计实验，我收获了很多。

首先，我学会了如何使用VB语言进行界面设计，掌握了一些常用的控件和布局方法。

其次，我学习了如何编写事件处理程序，响应用户的操作，并进行相应的逻辑处理。

最后，我还学习了如何进行数据处理，使用变量和运算符对数据进行计算和处理。

在实验过程中，我遇到了一些问题和挑战。

例如，我曾经遇到过界面布局不合理导致用户体验不佳的情况，但通过不断的调整和改进，最终解决了这个问题。

实验报告课程名称_程序设计基础Visual Basic_ 班级______ _____＿姓名_____ ____实验一 VB环境和创建一个简单的VB程序一．实验目的：1.了解VB系统对计算机软件、硬件的要求。

2.掌握启动和退出VB的方法。

3.了解和使用VB集成开发环境各窗口、菜单的一般功能。

4.熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。

5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。

二．实验内容：1．设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为”显示”和”清除”。

程序运行后，单击”显示”按钮，在文本框中输出一行信息；单击”清除”按钮，则清除文本框中的内容，运行界面如图1.1所示。

图1.1 实验1-1 运行界面三．实验结果：对象属性设置对象属性属性值说明caption 我的第一个vb程序窗体Form1caption 请输入姓名标签Label1text ““文本框Text1caption 显示命令按钮Command1caption 清除命令按钮Command2四．实验思考：1.标签label控件设置的属性代码有哪些？Label1.Caption=“请输入姓名”Label1.fontsize=24Label1.fontbold=True2.两个按钮所使用的是什么事件？代码分别是什么？Private Sub Command1_Click()Text1.text=“姓名”实验二简单程序设计数据类型及常用内部函数的简单应用一．实验目的：1．掌握Visual Basic数据类型的基本概念。

2．掌握用Visual Basic的各种运算符及表达式。

3．学习使用Visual Basic内部函数和数据输入、输出方法。

4．掌握命令按钮、文本框和标签。

5．设计顺序程序。

二．实验内容：1．编写一个华氏温度和摄氏温度之间的转换程序，如图2-2所示,要求用inputbox函数输入华氏温度，用msgbox输出转换后的摄氏温度。

广西工学院鹿山学院《VB语言程序设计》实验报告系别：专业班级：姓名：学号：指导教师：二〇一三年六月六日一. 实验目的了解和掌握VB语言程序设计基本控件的应用；熟练应用VB常用界面设计的控件使用方法；掌握多窗体的方法应用；熟悉数组的输入输出及数组常用算法。

二. 实验内容请编写一个《VB语言程序设计》课程管理系统，要求：系统包含三个窗体，分别是登录窗体、个人信息录入窗体和成绩统计窗体。

其中各窗体功能包含如下：1.首页登录窗口：用户许通过密码验证正确以后跳转到个人信息登录窗口；2.个人信息录入窗口：在此用户可以添加和删除个人的基本信息，在此窗口点击成绩统计按钮可以跳转至成绩统计窗口；3.成绩统计窗口：实现某班10个同学的所有成绩，并统计出其平均分，最高分和最低分。

三. 程序设计界面1.首页登录窗口：2. 个人信息录入窗口3.成绩统计四. 程序实现代码1.首页登录窗口代码：Private Sub Command1_Click()If Text2.Text = 123456 Thencao2.ShowElseMsgBox "请重新输入密码"Text2.Text = " "Text2.SetFocusEnd IfEnd SubPrivate Sub Command2_Click()EndEnd Sub2.个人信息录入Private Sub Command1_Click()If Text1.Text = " " ThenExit SubEnd IfDim strAdd As StringstrAdd = Text1.Text & " " & Text2.Text & " " & Combo1.Text & " " & Combo2.Text & " "List1.AddItem strAddEnd SubPrivate Sub Command2_Click()If List1.ListIndex <> -1 ThenList1.RemoveItem List1.ListIndexEnd IfEnd SubPrivate Sub Command3_Click()cao1.ShowEnd SubPrivate Sub Command4_Click()cao3.ShowEnd SubPrivate Sub Form_Load()Combo1.AddItem "男"Combo1.AddItem "女"Combo2.AddItem "土建121"Combo2.AddItem "土建122"End Sub3.成绩统计Private Sub Command1_Click()Print "土建121班某10个同学的成绩如下" Dim x(1 To 10) As Integer, max%, min%, a% max = 0min = 200a = 0For i = 1 To 10x(i) = Int(Rnd * 91 + 1)Print x(i);a = a + x(i)If x(i) > max Then max = x(i)If x(i) < min Then min = x(i)Next ia = a / 10PrintPrint "最高分："; maxPrint "最低分："; minPrint "平均分："; aEnd SubPrivate Sub Command2_Click()cao1.ShowEnd SubPrivate Sub Command3_Click()End五. 程序运行结果六. 实验总结这个程序用了两节课的时间制作出来，其间遇到的问题主要来自于相对复杂的程序语言在编写时没有足够的细心，导致语句出现错误。

实验7 用户界面设计一、实验目的1．掌握常用控件、通用对话框。

2．掌握菜单设计、多重窗体。

二、实验要求三、在C:\下建立子文件夹“VB实验7”, 按照题目要求, 在该文件夹下为各题保存相应的文件, 如本实验中的第一题, 需保存的文件有: 工程文件(71.vbp)、窗体文件(71.frm) 及可执行文件（71.exe）, 本实验中的第二题, 需保存的文件有: 工程文件(72.vbp)、窗体文件(72.frm) 及可执行文件（72.exe）, 其余实验依此类推。

四、撰写实验过程中出现了哪些问题、错误, 你是如何解决的, 做一个小结。

实验内容:设计如图7-1所示的应用程序。

它能利用LostFocus事件过程对输入的内存大小进行合法性检查, 确保最后2个字符是“MB”, 其余的都是数字字符。

当用户单击“Ok”按钮后, 在右边的文本框中显示所选择的信息。

要求：窗体显示字体、大小默认。

图7-1答案：Private Sub Command1_Click()Text2 = ""Text2 = Combo1.Text + vbCrLf + Text1 + vbCrLfIf Option1.Value Then Text2 = Text2 + Option1.Caption + vbCrLfIf Option2.Value Then Text2 = Text2 + Option2.Caption + vbCrLfIf Option3.Value Then Text2 = Text2 + Option3.Caption + vbCrLfIf Check1.Value Then Text2 = Text2 + Check1.Caption + vbCrLfIf Check2.Value Then Text2 = Text2 + Check2.Caption + vbCrLfIf Check3.Value Then Text2 = Text2 + Check3.CaptionEnd SubPrivate Sub Text1_LostFocus()Dim a$, b$a = Left(Text1.Text, Len(Text1.Text) - 2)b = Right(Text1.Text, 2)If Not IsNumeric(a) Or b <> "MB" ThenMsgBox "请重新输入内存", , "71"Text1 = ""Text1.SetFocusEnd IfEnd Sub设计如图7-2所示的计算程序, 要求: 窗体显示字体、大小默认, 参数输入用文本框, 结果显示用标签框。

vb程序设计实验报告VB程序设计实验报告实验目的：通过VB程序设计，掌握基本的程序设计方法和技巧，提高编程能力。

实验内容：本次实验主要是通过VB程序设计，实现一个简单的学生成绩管理系统。

该系统可以实现学生信息的录入、查询、修改和删除功能，同时还能够计算学生的平均成绩并进行排名。

实验步骤：1. 设计界面：首先，我们需要设计一个简洁易用的界面，包括学生信息的录入、查询、修改和删除功能。

通过VB的窗体设计工具，我们可以轻松地实现界面的布局和美化。

2. 编写代码：接下来，我们需要编写VB程序代码，实现学生成绩管理系统的各项功能。

通过VB的编程语言，我们可以实现学生信息的录入、查询、修改和删除功能，以及成绩的计算和排名功能。

3. 调试程序：完成代码编写后，我们需要对程序进行调试，确保程序的各项功能能够正常运行。

通过调试，我们可以及时发现和解决程序中的bug，提高程序的稳定性和可靠性。

4. 测试程序：最后，我们需要对程序进行测试，验证程序的各项功能是否能够满足实际需求。

通过测试，我们可以发现程序中可能存在的问题，并及时进行修复和优化。

实验结果：经过一段时间的努力，我们成功地实现了一个简单的学生成绩管理系统。

该系统能够实现学生信息的录入、查询、修改和删除功能，同时还能够计算学生的平均成绩并进行排名。

通过本次实验，我们不仅掌握了基本的程序设计方法和技巧，还提高了自己的编程能力。

结论：通过本次实验，我们深刻认识到了程序设计的重要性，以及通过VB程序设计可以实现复杂功能的能力。

同时，我们也意识到了编程过程中需要细心和耐心，以及对程序进行不断地调试和测试，才能确保程序的质量和稳定性。

希望通过不断地实践和学习，我们能够不断提高自己的编程能力，为实现更多复杂功能的程序做好准备。

vb上机实验报告VB上机实验报告一、引言Visual Basic（VB）是一种面向对象的编程语言，广泛应用于软件开发领域。

本次实验旨在通过VB的上机实践，掌握VB的基本语法和应用技巧，提升编程能力。

二、实验内容1. VB环境搭建：安装VB开发环境，并熟悉VB的开发界面和功能；2. VB基本语法：学习VB的变量、数据类型、条件语句、循环结构等基本语法；3. VB应用实例：实现一个简单的学生信息管理系统，包括学生信息录入、查询和删除功能。

三、VB环境搭建VB的开发环境可以通过官方网站下载并安装。

安装完成后，打开VB开发界面，可以看到菜单栏、工具栏和代码编辑区等组成部分。

熟悉这些界面元素，是进行VB编程的基础。

四、VB基本语法1. 变量与数据类型在VB中，可以使用Dim语句声明变量，并指定其数据类型。

常见的数据类型有整数型（Integer）、浮点型（Single）、字符串型（String）等。

例如，使用以下语句声明一个整数型变量：Dim num As Integer2. 条件语句条件语句用于根据条件的真假执行不同的代码块。

在VB中，可以使用If语句和Select Case语句实现条件判断。

例如，以下代码展示了使用If语句判断一个数的正负：If num > 0 ThenMsgBox("该数为正数")ElseIf num < 0 ThenMsgBox("该数为负数")ElseMsgBox("该数为零")End If3. 循环结构循环结构用于重复执行一段代码。

在VB中，可以使用For循环和Do While循环等实现循环功能。

例如，以下代码展示了使用For循环输出1到10的数字：For i = 1 To 10MsgBox(i)Next i五、VB应用实例本次实验要求实现一个学生信息管理系统，包括学生信息录入、查询和删除功能。

以下是实现该功能的代码示例：1. 学生信息录入在VB的窗体中，添加文本框和按钮控件。

大一vb的实验报告一、实验目的掌握VB语言的基础知识和编程技巧，并通过实践掌握VB的常用控件和事件处理方法。

二、实验材料1.计算机2.VB开发环境三、实验步骤1.搭建VB开发环境在计算机上安装VB开发环境，并进行必要的配置。

2.创建一个新的VB项目打开VB开发环境，点击“新建项目”按钮，选择“Windows桌面应用程序”模板，填写项目名称并确定。

3.设计用户界面在VB的设计器中，拖动控件到窗体上，设置其属性，并进行布局设计。

4.添加事件处理程序对每个控件添加相应的事件处理程序，以实现交互功能。

例如，对于按钮控件，可以添加点击事件的处理程序。

5.编写VB代码在VB的代码编辑器中，编写处理事件的代码，以实现所需的功能。

可以使用VB的基础语法、分支结构、循环结构等。

6.调试与运行对代码进行调试，确保程序运行没有错误，然后点击运行按钮，查看程序的运行效果。

四、实验结果通过以上步骤，成功实现了一个基础的VB程序，具备一定的交互功能和相应的逻辑处理。

五、实验总结通过本次实验，我学会了如何搭建VB开发环境，编写VB代码，设计用户界面，以及添加事件处理程序。

这些都是VB编程的基础知识和技能，对于以后的学习和应用都具有重要的意义。

通过不断的实践和探索，我相信自己能够在VB编程方面有更深入的理解和应用。

六、实验心得本次实验对我来说是一次很好的学习机会。

通过亲自动手实践，我加深了对VB语言和开发环境的了解，对于如何设计用户界面和编写代码也有了一定的经验。

实验过程中，我遇到了不少问题，但通过查阅资料和请教同学，我一一解决了这些问题。

实验不仅让我学到了知识，还培养了我的动手能力和解决问题的能力。

我会继续努力学习，提升自己的编程水平。

vb实验报告三VB实验报告三引言：VB（Visual Basic）是一种基于事件驱动的编程语言，广泛应用于Windows操作系统上的软件开发中。

本篇实验报告将详细介绍我在VB实验三中的实验过程、结果和分析。

实验目的：本次实验旨在通过VB编程实现一个简单的学生信息管理系统。

通过该系统，能够实现学生信息的录入、查询、修改和删除等功能，并将数据存储在数据库中。

实验步骤：1. 设计数据库结构：在实验前，首先需要设计数据库的表结构。

我选择了三个字段：学生姓名、学生年龄和学生性别。

2. 创建VB窗体：打开VB开发环境，创建一个新的窗体。

在窗体上设计相应的控件，如文本框、按钮和标签等，以实现学生信息的录入和操作。

3. 连接数据库：使用VB提供的ADO（ActiveX Data Objects）技术，连接到事先创建的数据库。

通过VB代码，建立与数据库的连接，并打开数据库。

4. 实现数据录入功能：在VB窗体上添加文本框和按钮，通过编写相应的事件处理程序，实现学生信息的录入功能。

当用户在文本框中输入完整的学生信息后，点击按钮即可将数据保存到数据库中。

5. 实现数据查询功能：在VB窗体上添加查询按钮和文本框，通过编写事件处理程序，实现学生信息的查询功能。

用户可以在文本框中输入学生姓名或其他关键词，点击查询按钮后，系统将从数据库中检索相关数据，并显示在窗体上。

6. 实现数据修改和删除功能：在VB窗体上添加修改和删除按钮，通过编写事件处理程序，实现学生信息的修改和删除功能。

用户可以选择要修改或删除的学生信息，并点击相应按钮进行操作。

实验结果：经过以上步骤的实现，我成功地完成了学生信息管理系统的开发。

通过运行程序，我可以在VB窗体上录入学生信息，并实现查询、修改和删除等操作。

数据能够准确地保存到数据库中，并能够根据用户的需求进行相应的操作。

实验分析：通过本次实验，我深入了解了VB编程语言和数据库的应用。

VB作为一种简单易学的编程语言，具有良好的可视化编程环境，使得开发者能够快速实现各种功能。