用VB编程输入10名学生某一门课的成绩,求出其中的最高分,最低分和所有学生的平均分.

Option Base 1
Dim score(10) As Integer
Dim max As Integer, min As Integer, average As Single
Private Sub Form_Load()
For i = 1 To 10
score(i) = Val(InputBox("请输入第 " & Str(i) & "个学生的成绩", "成绩统计", ""))
Text1.Text = Text1.Text & Str(score(i))
Next i
s = 0: max = score(1): min = score(1)
For i = 1 To 10
If score(i) > max Then max = score(i)
If score(i) < min Then min = score(i)
s = s + score(i)
Next i
average = s / 10
Text2.Text = max
Text3.Text = Format(average, "0.00")
Text4.Text = min
End Sub

hello啊我可以搞定哈