用vb编写一个给十个评委打分的程序1．编写一个评委打分的程序，实现以下功能：a)单击“评委给分”按钮时弹出InputBox对话框，用来接收10个评委给的分数，并将分数显示在文本框Text1中。

Question

用vb编写一个给十个评委打分的程序
1． 编写一个评委打分的程序，实现以下功能：
a) 单击“评委给分”按钮时弹出InputBox对话框，用来接收10个评委给的分数，并将分数显示在文本框Text1中。

b) 单击“最后得分”按钮时，将最高分、最低分分别显示在文本框Text2、Text3中，将最后的得分结果（除去最高分和最低分的平均值）显示在文本框Text4中。
c) 单击“清除”按钮时，清空所有的文本框。
d) 单击“退出”按钮时，退出程序。

Answer 1

Dim a(10) As Integer
Private Sub Command1_Click()
For i = 1 To 10
a(i) = InputBox("请输入第" & i & "个分数")
Text1.Text = Text1.Text & Str(a(i))
Next i
End Sub
Private Sub Command2_Click()
Max = a(1)
Min = a(1)
For i = 1 To 10
s = s + a(i)
If Max < a(i) Then Max = a(i)
If Min > a(i) Then Min = a(i)
Next i
s = (s - Max - Min) / 8
Text2.Text = Max
Text3.Text = Min
Text4.Text = s
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
Private Sub Command4_Click()
End
End Sub