Private Sub Command1_Click()
Dim mark%(), i%, n%, sum!, aver!
n = InputBox("输入人数")
Dim mark(n - 1)
For i = 0 To n - 1
mark(i) = InputBox("输入成绩¨")
sum = sum + mark(i)
aver = sum / n
MsgBox ("平均成绩" + Str(aver))
Next i
End Sub
程序运行没法运行,说翻译错误,要求常数表达式!