Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
題目說明:計算 1 加到 N 的總和<br />
檔案名稱:<strong>03</strong> \ ch9 \ P.10<br />
表單:<br />
程式碼:<br />
Sub N_Sum(a As Integer)<br />
Dim sum As Integer, i As Integer<br />
sum = 0<br />
For i = 1 To a<br />
sum = sum + i<br />
Next i<br />
MsgBox "1+2+3..+" & a & " = " & sum, , "1+2+3+... n 總合"<br />
End Sub<br />
Private Sub Form_Activate()<br />
Dim N As Integer<br />
N = InputBox("請輸入 N 值", "數值累加")<br />
Call N_Sum(N)<br />
End Sub<br />
執行結果: