關於VB寫程式

Question

如果我要做一個程式
她一開始進去會跑出一個inputbox
寫說請打入第X個數字
上面可以打數字
打完3個
它會PRINT在表單上
同時會算出三個數字的總合和平均
PRINT在表單上
請問誰可以交我怎麼寫?

Answer 1

Dim n(2), sum As Integer

Private Sub Form_Activate()
For i = 0 To 2
Print "輸入的第" & i & "個數字：" & n(i)
Next i
Print "輸入數字的總和：" & sum
Print "輸入數字的平均：" & sum / 3
End Sub

Private Sub Form_Load()
For i = 0 To 2
n(i) = InputBox("請輸入第" & i + 1 & "個數字", "輸入視窗")
sum = sum + n(i)
Next i
End Sub