Dim x()
sum = 0
n = 0
Data = InputBox("输入资料")
While Data <> "0" ..

访客只能看到部份内容，免费 加入会员 或由脸书 Google 可以看到全部内容

应该没有必要需要阵列吧
Dim x()
Sum = 0
n = 0
Data = InputBox("输入资料")
While Data <> "0"
' ReDim preserre x(n + 1)
' x(0) = Data
Sum = Sum + Data
n = n + 1
Data = InputBox("输入资料")
Wend
Print Sum / n

哇!!原来不用做那一个喔~~
谢谢你~~疑惑一段时间了~~谢谢你