vb编程能被37整除

privatesubcommand1_click()dimi,a,bfori=1to1000ifimod3=0thena=a+1ifimod7=0thenb=b+1nextprint"1~1000中能

PrivateSubCommand1_Click()Fori=100To999IfMid(i,2,1)Mod2=0AndMid(i,3,1)Mod3=0AndMid(i,3,1)Mod6=0ThenP

1.阶乘函数：FunctionFactorial(nAsLong)AsLongIfn=1ThenFactorial=1ElseFactorial=n*Factorial(n-1)EndFunction

抢个沙发!S=""fori=0to200step5ifimod30thenS=S&i&","nextiMsgboxS

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

PrivateSubCommand1_Click()Dima(50),i,nRandomizeFori=1To50a(i)=Int(Rnd*191)+10Printa(i);IfiMod10=0The

dim sum as longdim i as integerfor i = 2 to 1

'更快的方法PrivateSubCommand1_Click()Fori=300To500step5IfiMod3=0ThenPrintiNextEndSub'最快的方法：PrivateSubComm

代码如下:运行条件:form1上有一个文本框,名称text1,一个按钮,名称command1运行结果显示在text1里面PrivateSubCommand1_Click()DimiAsIntegerM

PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,kAsIntegerDimNAsDouble,MAsDoubleN=1993000Fori=0To

count=0sum=0fori=1to500ifi%3=0andi%50thencount=count+1sum=sum+inexti再问：请问这个可以用dowhile......做么？可以的话怎么

Sum=0Fori=100To300IfiMod21=0ThenSum=Sum+iEndIfNext==>优化一点：Sum=0Fori=100To300IfiMod21=0ThenSum=Sum+ii

PrivateSubForm_Click()DimiAsInteger,sumAsIntegerFori=1To100IfiMod3=0Thensum=sum+iNextPrintsumEndSu

#include#defineN200//200以内能被3整除也能被7整除voidmain(){inti,j=0;for(i=1;i

'单击窗体函数里面的代码：DimiAsInteger'从1~200DimcountAsInteger'保存所求的和Fori=1to200If(iMod5=0)And(iMod7=0)Thencount

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

PrivateSubForm_Load()ForI=1To1000IfIMod7=0ThenX=X+1IfXMod10=0ThenLabel1.Caption=Label1.Caption&vbNew

PrivateSubCommand1_Click()Fori=100To200IfiMod30Thens=s+iPrinti;n=n+1IfnMod10=0ThenPrintEndIfNextPrin

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