VB能力拓展训练

附件1：
课程设计
题目
学院
专业
班级
姓名
指导教师
年月日
课程设计任务书
学生姓名：专业班级：
指导教师：工作单位：
题目:
初始条件：
自设一个班的某门课学生成绩（0~100分），设计该班的成绩查找及统计程序，显示最高分、最低分、平均分，计算优、良、中、及格、不及格学生数及所占比例。

要求完成的主要任务:（包括课程设计工作量及其技术要求，以及说明书撰写等具体要求）
（1）学习并掌握Visual Basic程序设计语言；
（2）应用VB软件开发工具完成指定题目的编程设计；
（3）完成能力拓展训练总结报告。

时间安排：
指导教师签名：年月日
系主任（或责任教师）签名：年月日
总结报告1.程序设计分析及流程图
1.1程序设计分析
1.2程序流程图
功能说明：首先在文本框Text1输入姓名，单击“查找”按钮( Command1)，将会在文本框Text2中显示对应学生的控制成绩。

单击“统计”按钮(Command2),将会在文本框Text3, Text4,Text5,Text6,Text7,Text8,Text9,Text10,Text11,Text12,Text13,Text14,Text15中分别显示最高分、最低分、平均分、优秀人数、优秀率、良好人数、良好率、中等人数、中等率、及格人数、及格率、不及格人数、不及格率。

当单击“结束”按钮，则退出程序。

查找程序
统计程序
2.1 编写程序代码并解释
Dim cx(1 To 36, 1 To 2) As Variant
Private Sub Form_Load() '输入数组数据，一个存放一个学生信息cx(1, 1) = "汪俊": cx(1, 2) = 87
cx(2, 1) = "任坤": cx(2, 2) = 84
cx(3, 1) = "赵晖文": cx(3, 2) = 77
cx(4, 1) = "罗启进": cx(4, 2) = 86
cx(5, 1) = "黄瑜": cx(5, 2) = 87
cx(6, 1) = "杨建新": cx(6, 2) = 82
cx(7, 1) = "张轩": cx(7, 2) = 85
cx(8, 1) = "付航": cx(8, 2) = 82
cx(9, 1) = "李相超": cx(9, 2) = 80
cx(10, 1) = "成军伟": cx(10, 2) = 84
cx(11, 1) = "熊小双": cx(11, 2) = 94
cx(12, 1) = "朱关伟": cx(12, 2) = 83
cx(13, 1) = "邓广新": cx(13, 2) = 86
cx(14, 1) = "李牧野": cx(14, 2) = 91
cx(15, 1) = "胡建龙": cx(15, 2) = 79
cx(16, 1) = "高凡": cx(16, 2) = 82
cx(17, 1) = "胡学术": cx(17, 2) = 86
cx(18, 1) = "周啸尘": cx(18, 2) = 86
cx(19, 1) = "杨冰": cx(19, 2) = 77
cx(20, 1) = "王珏": cx(20, 2) = 71
cx(21, 1) = "王明勇": cx(21, 2) = 89
cx(22, 1) = "谢迪": cx(22, 2) = 93
cx(23, 1) = "宋小伟": cx(23, 2) = 86
cx(24, 1) = "陈露": cx(24, 2) = 85
cx(25, 1) = "聂臻": cx(25, 2) = 83
cx(26, 1) = "周光华": cx(26, 2) = 89
cx(27, 1) = "鲍婷": cx(27, 2) = 82
cx(28, 1) = "董丽影": cx(28, 2) = 96
cx(29, 1) = "任爱萍": cx(29, 2) = 90
cx(30, 1) = "安丛雪": cx(30, 2) = 82
cx(31, 1) = "冉凤霞": cx(31, 2) = 83
cx(32, 1) = "李慧": cx(32, 2) = 85
cx(33, 1) = "伍梦琪": cx(33, 2) = 90
cx(34, 1) = "郑媛媛": cx(34, 2) = 88
cx(35, 1) = "秦慧琳": cx(35, 2) = 84
cx(36, 1) = "王慧": cx(36, 2) = 89
End Sub
Private Sub Command1_Click()
Dim name As String, score As Integer
score = 0 '查找标记，0表示未找到
name = Text1.Text '输入学生姓名
For i = 1 To 36
If name = cx(i, 1) Then
Text2.Text = cx(i, 2) '显示学生成绩
score = 1 '表示找到
Exit For
End If
Next i
End Sub
Private Sub Command2_Click()
Dim max As Integer, min As Integer
Dim n1 As Integer, n2 As Integer, n3 As Integer, n4 As Integer, n5 As Integer, total As Integer max = cx(1, 2) '设定初值
min = cx(1, 2)
total = 0
For i = 1 To 36 '与后面的数字逐一比较
If max < cx(i, 2) Then '找最高分
max = cx(i, 2)
End If
If min > cx(i, 2) Then '找最低分
min = cx(i, 2)
End If
Next i
For i = 1 To 36
total = total + cx(i, 2) '计算总成绩
If cx(i, 2) >= 90 Then '统计优秀的人数
n1 = n1 + 1
ElseIf cx(i, 2) >= 80 Then '统计良好的人数
n2 = n2 + 1
ElseIf cx(i, 2) >= 70 Then '统计中等的人数
n3 = n3 + 1
ElseIf cx(i, 2) >= 60 Then '统计及格的人数
n4 = n4 + 1
Else '统计不及格的人数
n5 = n5 + 1
End If
Next i
Text3.Text = Str(max) '显示最高分
Text4.Text = Str(min) '显示最低分
Text5.Text = total / 36 '显示平均分
Text6.Text = n1 '显示优秀的人数
Text7.Text = n1 / 36 * 100 & "%" '显示优秀人数所占的比例Text8.Text = n2 '显示良好的人数
Text9.Text = n2 / 36 * 100 & "%" '显示良好人数所占的比例Text10.Text = n3 '显示中等的人数
Text11.Text = n3 / 36 * 100 & "%" '显示中等人数所占的比例Text12.Text = n4 '显示及格的人数
Text13.Text = n4 / 36 * 100 & "%" '显示及格人数所占的比例Text14.Text = n5 '显示不及格的人数
Text15.Text = n5 / 36 * 100 & "%" '显示不及格人数所占的比例End Sub
Private Sub Command3_Click()
End
End Sub
2.2窗体设计
3. 结果分析
输入学生姓名后单击查找按钮，然后再单击统计按钮，显示如下。

分析得知，所得结果与理论值完全相符，可证明程序设计正确，操作正确。

4.心得体会
附件6：
本科生课程设计成绩评定表
指导教师签字：
年月日。