vb编程能被37整除
来源:学生作业帮助网 编辑:作业帮 时间:2024/10/05 12:30:57
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