分別求1--100之間3的倍數和7的倍數的和

分別求1--100之間3的倍數和7的倍數的和

Dim I As Integer '迴圈引用變數Dim Sum3 As Integer '存儲3的倍數的和Dim Sum7 As Integer '存儲7的倍數的和For I = 1 To 100 '求3的倍數的和If I Mod 3 = 0 Then Sum3 = Sum3 + I End If '求7的倍數的和If I Mod 7 = 0 Then Sum7 = Sum7 + I End If Next I '列印結果Print Sum3，Sum7我的回答應該是你想要的答案吧？

在1~100這100個數中，所有3的倍數的和是多少？

=3*（1+2+3+4+…+32+33）這個不用解釋吧
=3*（1+33）*33/2求和公式
=1683

所以有比100小，同時是2、3、5的倍數的數，有哪些？

30 60 90

1，2，3，5，8，13，21，34，55，…；這串數的前100個中有______個偶數.

除了第一個數位之外，其他數位都是按照：偶奇奇偶奇奇偶奇奇偶…即一個偶數和兩奇數交替迴圈出現，週期為3，而（100-1）÷3=33，故有偶數33個.故答案為：33.