10. 計算機程式---迴圈應用1

作業:  請撰寫一程式(用迴圈語法),以計算 3^2+6^2 +9^2+12^2+ .........+96^2+99^2= ?

Rem 解答1
Private Sub Command1_Click()

     Rem 迴圈基本語法  (初值、終值、增量直接以數值輸入)

     Sum = 0

     For  i = 3  To  99  Step  3

     Next  I

     Print " 終值 i = "; (i - 3);

     Print Spc(5); " 總和為 "; sum

End Sub

Private Sub Command2_Click()

     Rem 迴圈基本語法 (初值、終值、增量改用交談式輸入)

     Sum = 0

     a1 = InputBox("請輸入一個整數初值a1= ", , 3)

     a2 = InputBox("請輸入一個整數終值a2= ", , 99)

     a3 = InputBox("請輸入一個整數增量a3= ", , 3)

     Rem

     For  i = a1  To  a2  Step  a3

     Next  I

     Print " 終值 i = "; (i - a3);

     Print Spc(5); " 總和為 "; sum

End Sub