Question

vb评分系统源代码

一、实验目的

掌握文本框、标签和命令按钮的属性和应用；
掌握消息框的应用；
掌握程序设计的顺序、分支、循环等基本结构。

二、实验内容及要求

设计一个评分系统。由十名裁判进行打分，选手的最终得分将由这十个分数中去掉一个最高分，再去掉一个最低分后的平均分来决定。分数用text输入

若以下回答无法解决问题，邀请你更新回答

Answer 1

设分数输入框为Text1(0)～Text1(9)，执行按钮为Command1，最终得分显示在Label1中。代码如下：
--------------------------
Private Sub Command1_Click()
Dim a(9) As Single, i As Integer, sum As Single, ave As Single, max As Single, min As Single
min = Val(Text1(0).Text)
For i = 0 To 9
a(i) = Val(Text1(i).Text)
sum = sum + a(i)
If a(i) > max Then max = a(i)
If a(i) < min Then min = a(i)
Next
ave = (sum - max - min) / 8
Label1.Caption = ave
End Sub