vb求1~100以内能被m整除

privatesubform_click()dimnasinteger,iasintegerfori=7to1000ifimod7=0thenn=n+1nextprintnendsu

subcommand1_click()dimiasinteger,sasintegers=0fori=1to100if(imod3=0andimod7=0)thens=s+inextmsgboxsen

PrivateSubCommand1_Click()DimaAsIntegerDimiAsIntegerOpen"out.dat"ForOutputAs#1Fori=1To1000IfiMod357=

100÷7=14...2100以内能被7整除的正整数一共有14个分别是：7,14,21,...,91,98这是一个以7为首项,公差是7的等差数列它们的和是：(7+98)×14÷2=735即100以内能

#includemain(){inti=0;printf("100以内能被3整除的但不能被7整除的数:\n");for(i=0;i

不用编程,可以手工计算的.15*7>100>14*7结果就是(1+2+.+14)*7也就是[(1+14)*14/2]*7=15*7*7=735.编程时可以考虑使用这种思路,速度快的.以C#编程.pub

#includeintmain(void){inta;intmax[20];{for(a=0;a

100以内,能同时被3和5整除的偶数有30,60,90,它们的和为30+60+90=180

3再答：6再答：9再答：12再答：12再答：15再答：18再答：21再答：24再答：27再答：30再答：33再答：36再答：39再答：42再答：45再答：48再答：51再答：54再答：57再答：60再

count=0Fori=1To1000IFi%7==0Thencount++Nexti

DimiAsLongDimCountAsLongFori=1To100If(iMod3=0)And(iMod2=0)ThenCount=Count+1Debug.PrintiEndIfNextMsgB

clears=0fori=1to100ifi%3=0s=s+iendifendfor"100以内所有能被3整除的整数的和是：",s

完整函数：function[re]=int_mod3(m)%INT_MOD3用来求解m以内全部能被3整除的数%m:输入一个整型变量%[re]:输出m以内所以能被3整除的数%%EXAMPLE:若要求10

fori=1to100ifimod3=0orimod5=0thenlabel1=label1&i&""next

1填写imod6=0,指的是余数要等于0；2填写S,表示要把S输出.

PrivateSubForm_Click()DimiAsIntegerFori=1To100IfiMod3=0AndiMod7=0ThenPrintiEndIfNextEndSu

PrivateSubCommand1_Click()Dimi%Text1.Text=""Fori=1To1000IfiMod17=0AndiMod37=0ThenText1.Text=Text1.Te

在界面上放一个按钮就行了,然后将下面的代码复制到代码窗口.PrivateSubCommand1_Click()Me.Clsi=0Forj=1To500IfjMod17=0ThenIfi=5Theni=

dimsum%,i%fori=1to40ifimod5=0thensum=sum+inextprintsum再问：mod什么意思啊没怎么听课不懂啊谢谢啊

Dima%,b%,c%,s1,s2,sPrivateSubForm_Click()Fori=1To1000IfiMod7=0Thena=a+1s1=s1+iEndIfIfiMod17=0Thenb=b