Private Sub Form_Click()
Dim mark(1 To 4) As Integer
Dim aver!, n%, i%
aver = 0
For i = 1 To 4
mark(i) = InputBox("输入第" & i & "位学生的成绩")
aver = aver + mark(i)
Next i
aver = aver / 100
n = 0
For i = 1 To 4
If mark(i) > aver Then n = n + 1
Next i
Print n
End Sub
这个怎么错了？？ 找了半天没找到哪错了...

语法上很对，运行了正常呀。

如果是计算分数大于平均值的学生个数的话，aver/4才对，而不是aver/100.