新觀念的 VB5 教本

補充教材


98/01/04 如何計算 Sum = 1 + 2 + 3 + ... + 20?
這類問題出現在 p.246 的習題, 不少初學程式設計的讀者來函表示不知如何撰寫。

為了解這個問題, 我們可以把 Sum = 1 + 2 + 3 + … + 20 表示成:

簡單地說, Sum = 1 + 2 + 3 + … + 20 的計算結果等於 Sum = 0、Sum = Sum + 1、Sum = Sum + 2 … Sum = Sum + 20 連續運算的結果, 所以使用 For 迴圈來撰寫程式最合適,如下:

    Sum = 0 
    For I = 1 To 20 
        Sum = Sum + I 
    Next I 

再舉個問題:『Sum = 1 + 4 + 7 + 10 + … + 301』, 計算 Sum 的數值。

這一題與上一題相類似, 上一題的累加每次進 1(1、2、3…), 這一題的累加則是每次進 3(1、4、7…), 所以同樣是使用 For 迴圈, 但「步進值」等於 3, 程式如下:

    Sum = 0 
    For I = 1 To 301 Step 3 
        Sum = Sum + I 
    Next I