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

来源：学生作业帮编辑：搜搜做题作业网作业帮分类：综合作业时间：2024/05/04 00:22:12

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

编写一个程序,同时计算1~1000之间的所有3的倍数之和与所有7的倍数之和编写一个程序.编写一个程序,同时计算1到1000之间所有3的倍数之和和所有7的倍数之和. 编写一个程序,求所有的三位正整数（即100~999之间）中有多少个整数其各个数字之和为7的倍数. 如何用excel 计算0到1000之间所有5的倍数之和减去所有3的倍数之和的差 1000以内3的倍数之和程序怎么编写 1-1000以内所有3的倍数之和是多少设计一个程序求1~1000中3的倍数的数之和和7的倍数的数之和 c++ 编写一个程序实现如下功能：计算1～100之间所有含8的数之和用C#编写一个程序求1到99之间的所有奇数之和编写一个程序实现如下功能：计算1～100之间所有含某个数字的数之和（例如：含2的数之和是693）. 6．编写一个程序,求所有的三位正整数（即100~999之间）中有多少个整数其各个数字之和为7的倍数.（例如：编写程序,求在四位数的奇数中,所有各位数字之和是25倍数的数的和.