疑惑中~~這個寫不出來
Home
Home
登入
註冊
發表
列印
載入圖片
引用
|
編輯
extrablue
2005-06-14 22:48
樓主
▼
x
0
Dim x()
sum = 0
n = 0
Data = InputBox("輸入資料")
While Data <> "0" ..
訪客只能看到部份內容,免費
加入會員
x
0
引用
|
編輯
ziele
2005-06-14 23:16
1樓
▲
▼
應該沒有必要需要陣列吧
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
x
1
引用
|
編輯
extrablue
2005-06-14 23:47
2樓
▲
哇!!原來不用做那一個喔~~
謝謝你~~疑惑一段時間了~~謝謝你
x
0
完整版本
免責聲明
頂端