步長設為 5：For 迴圈高效求特定倍數總和

同樣利用 Step 參數，將迴圈變數直接以 5 為間距遞增/遞減，無需 Mod 判斷，瞬間完成 1-1000 間 5 的倍數加總。

遞增版（從 0 開始）

Sub MultiplesOf5_Asc()
    Dim i As Long, total As Long
    For i = 0 To 1000 Step 5
        total = total + i
    Next i
    MsgBox "5 的倍數和：" & total
End Sub

遞減版（從 1000 開始）

Sub MultiplesOf5_Desc()
    Dim i As Long, total As Long
    For i = 1000 To 1 Step -5
        total = total + i
    Next i
    MsgBox "5 的倍數和：" & total
End Sub

注意細節

• 遞減版起始值 1000 本身即為 5 的倍數，故包含在內；若上限非倍數，需先算出最大倍數（如 Int(1000/5)*5）。
• 結果驗算：5 × (1+2+...+200) = 5 × 200×201/2 = 100,500。
• 同理可推廣至任意倍數 k：Step k / Step -k。