程序设计3

楼上的怎么用啊？
建一个Command1，代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Dim a(9) As Integer, s As Single, i As Integer, n As Integer, d As Integer, max As Single, min As Single, sum As Single

Private Sub Command1_Click()
min = 100
n = InputBox("请输入学生人数")
For i = 1 To n
s = InputBox("请输入第" & i & "个学生的成绩")
sum = sum + s
If s > max Then max = s
If s < min Then min = s
d = IIf(s \ 10 = 10, 9, s \ 10)
a(d) = a(d) + 1
Next
Print "平均成绩" & sum / i
Print "最好成绩" & max
Print "最差成绩" & min
For i = 0 To 8
Print "分数为" & 10 * i & "～" & 10 * i + 9 & "的人数为" & a(i) & "人"
Next
Print "分数为90～100的人数为" & a(9) & "人"
End Sub

Dim maxnum, minnum, kkk, ttt As Integer
Dim aaa(10) As Integer
Private Sub Command1_Click()
bbb = Val(InputBox("input score", "input&