VBA中1到100所有5的倍数的和

defmain():fornuminrange(1,124):ifnum%3==0andnum%5==0:print'C'elifnum%3==0:print'A'elifnum%5==0:print

settalkoffclearfori=1to100ifi%3=0.and.i%7=0?iendifendforsettalkon

先采纳

偶数：30,60,90奇数：15,45,75再问：能在问你一个问题么？就一个！

8、16、24、32、40、48、56、64、72、80、88、96.72符合条件要求.

1、在1到200的所有自然数中,既是3的倍数,又是4的倍数,又是5的倍数的数一共有多少个?3,4,5的最小公倍数是60,既是3的倍数,又是4的倍数,又是5的倍数的数是60的倍数,所以1到200的所有自

2,3,5的最小公倍数是2×3×5=30所以是30的倍数是30,60,90

（1）2的倍数1000/2=500,5的倍数1000/5=200,是2又是5的倍数1000/10=100,则2或5的倍数为500+200-100=600,减去是2且是7的倍数（1000/14=71余）

vba代码如下：Subtest()Dimsum,iFori=1To100IfiMod20Thensum=sum+iNextMsgBoxsumEndSu

3+6+9+...+999=3(1+2+3+...+333)=3*(1+333)*333/2=166833.再答：肯定正确，放心吧。再问：那好吧，今天我们老师已经讲过啦，我也就知道是什么意思啦，不过还

PrivateSubCommand1_Click()dimi,a(),basintegerfori=21to1000ifimod21=0thenb=b+1redimpreservea(b)a(b)=i

1到100这100个数中,是5的倍数的数的和是5+10+15+20+……+100=(5+100)×20÷2=1050,那么不是5的倍数的数的和是：5050-1050=4000再问：为什么要用5050-

先把1到200所有的数加起来1+2+...+200=20100把1到200中所有是2的倍数的数,即偶数加起来.2+4+..+200=10100把1到200中所有是3的倍数的数加起来.3+6+..+19

3,4,5的最小公倍数为3×4×5=60既是3的倍数,又是4的倍数,又是5的倍数的数,一定是它们三个的公倍数在1到200的所有自然数中有60,120,180,一共3个.很高兴为您解答,如果本题有什么不

在1到100的自然数中,既是2的倍数又是5的倍数10,20,30,40,50,60,70,80,90

：是2的倍数的有200÷2=100个，是3的倍数的有（200-2）÷3=66个．既是2的倍数又是3的倍数的有（200-2）÷6=33个．所以既不是2的倍数又不是3的倍数的整数共有200-（100+66

你的程序中的m和n都没列出来,应该控制起始位置的,假定这两个值都是0而且这段代码肯定是有问题的,中间那个Fork=97To100内的代码不对Fori=97To118------97开始是小写a的asc

5的倍数有：5,10,15,20,25,30,35,40,45,50,55,60,65,70,75,80,85,90,95,1007的倍数有：7,14,21,28,35,42,49,56,63,70,

1到100的自然数中，所有自然数的和是：1+2+3+…+100=5050，1到100的自然数中，所有2的倍数的自然数和是：2×1+22+…+2×50=2×（1+2+3+…+50）=2×1275=255

楼上不对.都不是,应同时满足不是5,6的倍数.6×16=966的倍数16个5×20=1005的倍数20个30×=906,5公倍数3个∴100-（16+20-3）=67个.