vb实验报告
- 格式：wps
- 大小：222.50 KB
- 文档页数：6
VB程序设计实验报告
实验设计目的：
将理论数学中设计到的知识点贯穿起来，对不同的数据类型，程序控制结构，数据结构作一比较和总结，结合设计题目进行综合性练习，以达到对所学知识的熟练掌握，灵活应用的目的。
1：对于自己所设想的vb程序进行分析，理解以做到思路清晰。
2：掌握自顶而下的设计方法，将大问题进行模块化分解，领会结构化程序设计的方法，同时深刻认识到面向对象程序设计与面向过程程序设计的根本区别。
3：熟练掌握vb常用控件的使用，灵活应用各种数据类型。
4：学会应用函数进行程序设计。
5：进一步掌握在集成环境下调试程序和修改程序的方法和技巧。
重新设计思路：
了解五个学生的成绩情况；
程序界面包括，一个form显示五个学生的成绩情况，包括五个学生的最高分，最低分，及格人数和优秀人数。
五个labei显示个个项目情况的标题，对应五个text作为学生成绩显示框，两个command按钮分别用于开始输入五个学生的成绩和退出程序。
1：在窗体中添加五个labei，五个text和两个command按钮。
2：编辑个个控件属性。
3：编辑程序代码，运用循环结构输入学生成绩，并使用数组使程序设计和运行简单化。
4：试运行vb程序，对错误代码进行调试和完善，使程序可以运行并符合逻辑思路。
代码注释；
Private Sub Command1_Click()
Dim val(1 To 5) As Integer
Dim pass%, good%, i%, j%, temp%, sum%
’输入五个学生的成绩
For i = 1 To 5
7 val(i) = InputBox("输入第" & i & "个学生的成绩：", "输入学生成绩")
‘计算总成绩
sum = sum + val(i)
’计算及格（大于60分）人数和优秀（大于90分）人数
If val(i) > 59 Then pass = pass + 1
If val(i) > 89 Then good = good + 1
Next i
‘对五个学生成绩按从小到大排序
For i = 1 To 5
For j = i + 1 To 5
If val(i) > val(j) Then
temp = val(i): val(i) = val(j): val(j) = temp
End If
Next j
Next i
Text1 = val(1) ’最低分
Text2 = val(5) ‘最高分
Text3 = sum/5 ’平均分
Text4 = pass ‘及格人数
Text5 = good ’优秀人数
End sub
Private Sub Command2_Click()
End
End Sub ‘结束程序运行
功能：
1：操作项目包括；输入数组，求数组最大值，最小值，平均分，及格人数和优秀人数。
2；单击“输入学生成绩”按钮，开始依次输入五个学生的成绩，根据选择完成一项或多项操作，单击退出按钮来结束程序运行。
3；InputBox 完成数
4；最后输出学生成绩情况在文本框中显示。
源代码;
Private Sub Command1_Click()
Dim val(1 To 5) As Integer
Dim pass%, good%, i%, j%, temp%, sum%
For i = 1 To 5
7 val(i) = InputBox("输入第" & i & "个学生的成绩：", "输入学生成绩")
sum = sum + val(i)
If val(i) > 59 Then pass = pass + 1
If val(i) > 89 Then good = good + 1
Next i
For i = 1 To 5
For j = i + 1 To 5
If val(i) > val(j) Then
temp = val(i): val(i) = val(j): val(j) = temp
End If
Next j
Next i
Text1 = val(1)
Text2 = val(5)
Text3 = sum / 5
Text4 = pass
Text5 = good
End Sub
Private Sub Command2_Click()
End
End Sub
叶方磊104100210 10C
实验日期：2012/06/16。
