vb陣列..幫我一下好麼....拜託

Question

1. 輸入5份資料.然後依照輸入順序顛倒印出來
2.
寫一程式讀取inputbox輸入ㄉ數值.並存入陣列中.直到輸入ㄉ數值等於0為止.最後在計算陣列中所有數值ㄉ平均數.

這只是基本ㄉ... 但因為我剛學所以不會...
可以做好寄給我ㄇ....
謝謝各位大大唷^6^~
我晚上11點以後會上線...
trading22002

Answer 1

第一題
Dim A()
For i = 0 To 4
ReDim Preserve A(i)
A(i) = InputBox("輸入資料")
Next
For i = 4 To 0 Step -1
Print A(i)
Next
第二題
Dim A() As Integer, S As String, I As Integer, T As Integer
Do
S = InputBox("輸入數字")
If IsNumeric(S) Then
ReDim Preserve A(I)
A(I) = CInt(S)
I = I + 1
End If
Loop Until S = "0"
For I = 0 To UBound(A) - 1
T = T + A(I)
Next
Print T / UBound(A)

Answer 2

(只給思考邏輯,不給答案!!)
1.前者已述。
2.
do
a=InputBox("輸入資料")
i=i+1
T=T+a
loop until a=0
print T/(i-1)

i:代表輸入的次數,因最後一次輸入的0為終止程式,所以要減1
a:代表每次輸入的值
T:代表所有輸入值的總和

供參考!

Answer 3

我已經教過你了.如有問題再問我,謝謝.