《《VB语言程序设计》实验报告.docx》由会员分享，可在线阅读，更多相关《《VB语言程序设计》实验报告.docx（4页珍藏版）》请在三一办公上搜索。
1、VB语言程序设计实验报告广西工学院鹿山学院 VB语言程序设计实验报告 系 别： 专业班级： 姓 名： 学 号： 指导教师： 二一三 年 六 月 六 日 一. 实验目的 了解和掌握VB语言程序设计基本控件的应用；熟练应用VB常用界面设计的控件使用方法；掌握多窗体的方法应用；熟悉数组的输入输出及数组常用算法。 二. 实验内容 请编写一个VB语言程序设计课程管理系统，要求：系统包含三个窗体，分别是登录窗体、个人信息录入窗体和成绩统计窗体。其中各窗体功能包含如下： 1. 首页登录窗口：用户许通过密码验证正确以后跳转到个人信息登录窗口； 2. 个人信息录入窗口：在此用户可以添加和删除个人的基本信息，在此
2、窗口点击成绩统计按钮可以跳转至成绩统计窗口； 3. 成绩统计窗口：实现某班10个同学的所有成绩，并统计出其平均分，最高分和最低分。 三. 程序设计界面 1.首页登录窗口： 2. 个人信息录入窗口 1 3.成绩统计 四. 程序实现代码 1.首页登录窗口代码： Private Sub Command1_Click If Text2.Text = 123456 Then cao2.Show Else MsgBox 请重新输入密码 Text2.Text = Text2.SetFocus End If End Sub Private Sub Command2_Click End End Sub 2.个人
3、信息录入 Private Sub Command1_Click If Text1.Text = Then Exit Sub End If Dim strAdd As String strAdd = Text1.Text & & Text2.Text & & Combo1.Text & & Combo2.Text & List1.AddItem strAdd End Sub Private Sub Command2_Click If List1.ListIndex -1 Then List1.RemoveItem List1.ListIndex End If 2 End Sub Private
4、Sub Command3_Click cao1.Show End Sub Private Sub Command4_Click cao3.Show End Sub Private Sub Form_Load Combo1.AddItem 男 Combo1.AddItem 女 Combo2.AddItem 土建121 Combo2.AddItem 土建122 End Sub 3.成绩统计 Private Sub Command1_Click Print 土建121班某10个同学的成绩如下 Dim x(1 To 10) As Integer, max%, min%, a% max = 0 min
5、= 200 a = 0 For i = 1 To 10 x(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 i a = a / 10 Print Print 最高分：; max Print 最低分：; min Print 平均分：; a End Sub Private Sub Command2_Click cao1.Show End Sub Private Sub Command3_Click End 五. 程序运行结果 3
6、六. 实验总结 这个程序用了两节课的时间制作出来，其间遇到的问题主要来自于相对复杂的程序语言在编写时没有足够的细心，导致语句出现错误。在编写程序时，没有注意到数据类型，错误地将字符型数据定义为单精度型数据，导致第二个窗口“个人信息录入”中“添加”无法执行。在第三个窗口“成绩统计”中，取最低分这一程序的编写过程中，由于定义min=0，导致最低分一直显示为0，无法显示最低分，重新阅读编写的程序后，发现min应该是一个大于100的数，程序便可以正常执行。 对于程序语言的编写，因为对各个类型的语句不熟悉和缺乏时间操作，所以在编写程序时，经常犹豫应该使用哪种结构语句。 又如combo控件，在程序运行是的
7、选项除了可以直接在属性List进行录入外，还可以通过程序语言进行设置。如本次试验，可通过以下程序语句进行设置： Private Sub Form_Load Combo1.AddItem 男 Combo1.AddItem 女 Combo2.AddItem 土建121 Combo2.AddItem 土建122 End Sub 进行设置。 在窗口外观上，由于之前没有使用到一些属性设置，所以为了更改某些控件的属性，花了不少时间。如，让Label控件的背景透明，只好对各个属性进行尝试，最后发现该项属性名为backstyle，只要将backstyle设置为0-transp，就能令Label的背景呈现透明状态。 在VB程序语言设计的学习过程中，我深刻的认识到理论知识和实践操作具有同等的重要性，前者为后者提供基础，后者能进行更深层次的学习。理论知识是编写程序的重要基础，缺乏理论知识，无法进行设计；而没有实践操作，则理论知识的学习相当于白费了。 4
