数组:dim 数组名(数值)
访问:数组名(下标)
实例:成绩输入+求平均分
dim cj(40)
dim i
i=0
while(i<5)
cj(i)=inputbox("")
i=i+1
wend
dim sum
sum=0
sum=sum+cj(i)
msgbox sum/i