VB要求常数表达式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 / nMsgBox ("平均成绩" + Str(aver

VB要求常数表达式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 / nMsgBox ("平均成绩" + Str(aver
VB要求常数表达式
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
程序运行没法运行,说翻译错误,要求常数表达式!

VB要求常数表达式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 / nMsgBox ("平均成绩" + Str(aver
想要在过程中声明一个动态数组,请用 ReDim 声明此数组并用变量来指定元素的个数. 有疑问多看帮助塞
ReDim mark(n - 1)
另外MsgBox ("平均成绩" + Str(aver))这句要放到next i的外面