《VB语言程序设计》实验报告
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
广西工学院鹿山学院
《VB语言程序设计》实验报告
系别:
专业班级:
姓名:
学号:
指导教师:
二〇一三年六月六日
一. 实验目的
了解和掌握VB语言程序设计基本控件的应用;熟练应用VB常用界面设计的控件使用方法;掌握多窗体的方法应用;熟悉数组的输入输出及数组常用算法。
二. 实验内容
请编写一个《VB语言程序设计》课程管理系统,要求:系统包含三个窗体,分别是登录窗体、个人信息录入窗体和成绩统计窗体。其中各窗体功能包含如下:
1.首页登录窗口:用户许通过密码验证正确以后跳转到个人信息登录窗口;
2.个人信息录入窗口:在此用户可以添加和删除个人的基本信息,在此窗口点
击成绩统计按钮可以跳转至成绩统计窗口;
3.成绩统计窗口:实现某班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 "最高分:"; 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()
Combo1.AddItem "男"
Combo1.AddItem "女"
Combo2.AddItem "土建121"
Combo2.AddItem "土建122"
End Sub
进行设置。
在窗口外观上,由于之前没有使用到一些属性设置,所以为了更改某些控件的属性,花了不少时间。如,让Label控件的背景透明,只好对各个属性进行尝试,最后发现该项属性名为backstyle,只要将backstyle设置为0-transp,就能令Label的背景呈现透明状态。
在《VB程序语言设计》的学习过程中,我深刻的认识到理论知识和实践操作具有同等的重要性,前者为后者提供基础,后者能进行更深层次的学习。理论知识是编写程序的重要基础,缺乏理论知识,无法进行设计;而没有实践操作,则理论知识的学习相当于白费了。