VB要求常数表达式

Question

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
程序运行没法运行，说翻译错误，要求常数表达式！

Answer 1

想要在过程中声明一个动态数组，请用 ReDim 声明此数组并用变量来指定元素的个数。 有疑问多看帮助塞
ReDim mark(n - 1)
另外MsgBox ("平均成绩" + Str(aver))这句要放到next i的外面

Answer 2

是数组吗，试试mark(0 to n-1)

Answer 3

这里应该用 ReDim 而不是 Dim。