上机测试:统计全班15位同学的VB考试成绩.要求:

Dim a(15) As Single
Dim b(3) As Single
Private Sub Command1_Click()
Text1 = ""
Randomize
b(0) = 100
b(1) = 0
For i = 1 To 15
a(i) = Int(101 * Rnd)
If a(i) < b(0) Then b(0) = a(i)
If a(i) > b(1) Then b(1) = a(i)
If a(i) < 0 Or a(i) > 100 Then MsgBox "错误的输入"
Sum = Sum + a(i)
If a(i) < 60 Then b(3) = b(3) + 1
Text1 = Text1 & a(i) & " "
Next i

b(2) = Round(Sum / 15, 2)

End Sub

Private Sub Command2_Click()
Text2 = "Max is " & b(1)
Text3 = "Min is " & b(0)
Text4 = "Average is " & b(2)
Label1 = "Failed:" & b(3)
End Sub