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

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/05 18:17:56
编写一个程序,同时计算1~1000之间的所有3的倍数之和与所有7的倍数之和

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

编写一个程序,同时计算1~1000之间的所有3的倍数之和与所有7的倍数之和
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 sub