编写一个程序,同时计算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 su