《VB语言程序设计》实验报告.docVIP

广西工学院鹿山学院 《VB语言程序设计》实验报告 系 别： 专业班级： 姓 名： 学 号： 指导教师： 二〇一三 年 六 月 六 日 一. 实验目的 了解和掌握VB语言程序设计基本控件的应用；熟练应用VB常用界面设计的控件使用方法；掌握多窗体的方法应用；熟悉数组的输入输出及数组常用算法。 二. 实验内容 请编写一个《VB语言程序设计》课程管理系统，要求：系统包含三个窗体，分别是登录窗体、个人信息录入窗体和成绩统计窗体。其中各窗体功能包含如下： 首页登录窗口：用户许通过密码验证正确以后跳转到个人信息登录窗口； 个人信息录入窗口：在此用户可以添加和删除个人的基本信息，在此窗口点击成绩统计按钮可以跳转至成绩统计窗口； 成绩统计窗口：实现某班10个同学的所有成绩，并统计出其平均分，最高分和最低分。 三. 程序设计界面 1.首页登录窗口： 2. 个人信息录入窗口 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.个人信息录入 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 End Sub Private 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 = 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 五. 程序运行结果 六. 实验总结 这个程序用了两节课的时间制作出来，其间遇到的问题主要来自于相对复杂的程序语言在编写时没有足够的细心，导致语句出现错误。在编写程序时，没有注意到数据类型，错误地将字符型数据定义为单精度型数据，导致第二个窗口“个人信息录入”中“添加”无法执行。在第三个窗口“成绩统计”中，取最低分这一程序的编写过程中，由于定义min=0，导致最低分一直显示为0，无法显示最低分，重新阅读编写的程序后，发现min应该是一个大于100的数，程序便可以正常执行。 对于程序语言的编写，因为对各个类型的语句不熟悉和缺乏时间操作，所以在编写程序时，经常犹豫应该使用哪种结构语句。 又如combo控件，在程序运行是的选项除了可以直接在属性List进行录入外，还可以通过程序语言进行设置。如本次试验，可通过以下程序语句进行设置： Private Sub Form_Load()