实验报告样例.doc

Visual Basic程序综合设计
实验报告
学号 14020157
机器号 059
姓名张浩然
院系数学与系统科学学院
专业数学与应用数学(师范)
指导教师邹丽娜
提交时间 2014-5-21
成绩
评语
一、实验要求:
本程序要求设计一个简单的竞赛评分系统,该评分系统可以输入10个评委的分数,并经过计算后显示出选手的最后得分。
具体要求:
程序可找出并显示出最高分和最低分;
最后得分应为去掉最高分和最低分后的平均分;
最后得分以醒目的方式显示再来。
二、界面设计
控件属性设置表
控件名称
属性名
设置属性值
Label1
Caption
裁判一
Label2
Caption
裁判二
Label3
Caption
裁判三
Label4
Caption
裁判四
Label5
Caption
裁判五
Label6
Caption
裁判六
Label7
Caption
裁判七
Label8
Caption
裁判八
Label9
Caption
裁判九
Label10
Caption
裁判十
Label11
Caption
最高分
Label12
Visible
False
Label13
Caption
最低分
Label14
Visible
False
Label15
Caption
最后得分
Label16
Visible
False
Command1
Caption
退出
Command2
Caption
最后结果
Command3
Caption
清除
Text1
MaxLength
5
Form1
Picture
自选图案
三、程序代码
Private mand1_Click()
End
End Sub
Private mand2_Click()
For j = 0 To 9
If Text1(j).Text = "" Then
y = MsgBox("裁判没有打分!", 0 + 16 + 0, "请重新输入")
Exit For
Text1(j).SetFocus
End If
Next j

m = Val(Text1(0))
For i = 1 To 9
If Val(Text1(i)) > m Then m = Val(Text1(i))
Next i
= True
= Format(m, "")

n = Val(Text1(0))
For i = 1 To 9
If Val(Text1(i)) < n Then n = Val(Text1(i))
Next i
= True
= Format(n, "")

Sum = 0
For i = 0 To 9
Sum = Sum + Val(Text1(i))
Next i
average = (Sum - m - n) / 8