分别求1--100之间3的倍数和7的倍数的和
分别求1--100之间3的倍数和7的倍数的和
其他人气:412 ℃时间:2019-12-11 00:26:33
优质解答
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甲乙两人骑自行车从A.B两地相向而行,经过3小时两人相遇,经过3小时两人相遇时所行的道路程比是3:2,相遇时甲乙多行18千米,甲每小时行多少千米?
- 2求 《我送出一件特殊的礼物》作文600字 急用
- 3我国公民道德建设要( )为重点 A.遵纪守法 B.诚实守信 C、勤劳勇敢 D、明礼诚信
- 4根号(a平方+8a+16)+|b-1|=0,当k取何值时,kx平方+ax+b=0有两个不相等实数根
- 5I couldn't (what you said)at the meeting.
- 6若关于x,y的代数式mx的3次方+3nxy的平方-2x的3次方+xy的平方+y中不含三次项,则2m-3n等于( )
- 7解方程2.4x5-3x=8 前面一个是乘 后面是X 七分之六X-4.2x5=21 4.2x+2.7X=13.8
- 8科技小组与作文小组的人数比是9:10,作文小组与数学小组人数比是5:7.已知数学小组与科技小组共有69人.数学小组比作文小组多多少人?
- 9英语翻译
- 10管道内直径为17mm,管道长度为1米,气体压力为1100Pa,求每小时气体的流量是多少立方米?