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

哇!!原來不用做那一個喔~~
謝謝你~~疑惑一段時間了~~謝謝你