Question

编写一个程序,同时计算1~1000之间的所有3的倍数之和与所有7的倍数之和

Answer 1

sub beisu()

dim beisu3 as integer

dim beixu7 as integer

beisu3 = 0

beisu7 = 0

for i = 1 to 1000

if i mod 3 = 0 then beisu3 = beisu3 + 1

if i mod 7 = 0 then beisu7 = beisu7 + 1

next i

msgbox "所有3的倍数之和为：" & beisu3 & chr(10) & "所有的7的倍数之和为：" & beisu7

end su