1.求1-100之间的偶数之和,要求程序中使用LOOP语句。

2.编程并显示出结果:计算机300-500以内的奇数之和。
2024-11-27 02:19:57
推荐回答(1个)
回答1:

Sub s()
    Dim i%, n&
    i = 301
    Do While i < 500
        n = n + i
        i = i + 2
    Loop
    Debug.Print n
End Sub