vb判斷一個(gè)數(shù)是不是完數(shù)

1、1、判斷一個(gè)數(shù)是不是完數(shù)PrivateSubCommand1_Click()DimmAsInteger,iAsInteger,jAsInteger,sumAsIntegerDima()AsIntegerFori=1Tom-1IfmModi=0Thensum=sum+ij=j+1ReDimPreservea(i)AsIntegera(i)=iEndIfNextiIfm=sumThenPicture1.Printm&"是完數(shù)，因?yàn)?quot;Picture1.Printm;"="Fori=1ToUBound(a)-1Picture1.Printa(i);&qu

2、ot;+"NextiPicture1.Printa(i)ElsePicture1.Printm&"不是完數(shù)"EndIfEndSubPrivateSubCommand2_Click()Text1.Text=""EndSubPrivateSubCommand3_Click()EndEndSub2 、選擇排序法OptionExplicitOptionBase1PrivateSubCommand1_Click()Dima(10)AsInteger,tAsIntegerDimiAsInteger,jAsIntegerRandomizeFori=1

3、To10a(i)=Int(Rnd*100)+1Text1=Text1&Str(a(i)NextiFori=1To9Forj=i+1To10Ifa(i)>a(j)Thent=a(i)a(i)=a(j)a(j)=tEndIfNextjText2=Text2&Str(a(i)NextiText2=Text2&Str(a(i)EndSub3 、冒泡排序法PrivateSubForm_Click()Dima(5)AsDoubleDimi,jAsInteger'給數(shù)組賦值Fori=1To5temp=InputBox("請(qǐng)輸入"+Str(i)+&qu

4、ot;個(gè)數(shù)字","輸入")IfIsNumeric(temp)Then'是數(shù)字就將數(shù)字賦值給數(shù)組a(i)=tempElse'不是數(shù)字就將數(shù)組置0a(i)=0EndIfNexti'排序Fori=1To4Forj=1To5-iIfa(j)<a(j+1)Thentemp=a(j)a(j)=a(j+1)a(j+1)=tempEndIfNextjNextiPrintStr(a(1)+","+Str(a(2)+","+Str(a(3)+","+Str(a(4)+","+

5、Str(a(5)EndSub4 、判斷一個(gè)數(shù)是不是素?cái)?shù)PrivateSubForm_Click()DimiAsIntegerDimjAsIntegerDimxAsIntegerx=Val(InputBox("請(qǐng)輸入一個(gè)自然數(shù)：","輸入提示")Fori=2Tox-1IfxModi=0ThenExitForNextiIfi=xThen'此處假設(shè)i的值變?yōu)閤那么說明所以上面的循環(huán)全被執(zhí)行完P(guān)rintx&"是素?cái)?shù)"ElsePrintx&"不是素?cái)?shù)"'假設(shè)i<x那么說明循環(huán)的中途x就能

6、被除盡了EndIfEndSub5 、求水仙花數(shù)PrivateSubForm_Click()DimiAsInteger,aAsInteger,bAsInteger,cAsInteger,stAsStringFora=1To9Forb=0To9Forc=0To9i=a*100+b*10+cIfi=aA3+bA3+cA3Thenst=i&"="&a&"A3+"&b&"A3+"&c&"人3"PrintstEndIfNextcNextbNextaEndSub6 、顯示系

7、統(tǒng)時(shí)間PrivateSubForm_Load()DimsAsString,nAsIntegern=Weekday(Now,2)Ifn=7Thens="日"ElseIfn=6Thens="六"ElseIfn=5Thens="五"ElseIfn=4Thens="四"ElseIfn=3Thens="三"ElseIfn=2Thens="二”Elselfn=1Thens="一"EndIf月"& Day(Now)Labell.Caption="今天是

8、"&Year(Now)&"年"&Month(Now)&6 "日"&"星期"&sLabel2.Caption=Time()EndSub7 、求三個(gè)數(shù)的最小公倍數(shù)OptionExplicitPrivateSubCommand1_Click()DimaAsInteger,bAsIntegerDimlAsLong,cAsIntegera=Text1b=Text2c=Text3l=lcm(lcm(a,b),c)Text4=lEndSubPrivateFunctionlcm(ByValxA

9、sInteger,ByValyAsInteger)DimmAsLong,flgAsBooleanflg=FalseDoUntilflgm=m+xIfmMody=0Thenflg=TrueEndIfLooplcm=mEndFunction8、求三個(gè)數(shù)的最大公約數(shù)PrivateFunctionmaxgongyueshu(a,b)Dimmin,max,iAsLongIfa<=bThenmin=a:max=bElse:min=b:max=aEndIfi=maxModminIfi=0Thenmaxgongyueshu=minExitFunctionEndIfDoUntilaModi=0AndbMo

10、di=0i=maxModminmax=minmin=iLoopmaxgongyueshu=iEndFunctionPrivateSubForm_Load()Dima,b,cAsLonga=InputBox("a=")b=InputBox("b=")c=InputBox("c=")a=maxgongyueshu(a,b)a=maxgongyueshu(a,c)MsgBoxaEndSub9、隨機(jī)生成15個(gè)數(shù)，對(duì)稱位置對(duì)調(diào)后顯示在另一個(gè)文本框中6-2務(wù)2數(shù)組對(duì)熟交換匚|亍X原數(shù)據(jù)：474321347.272027877331S8437827

11、.對(duì)調(diào)后：227R弟SR3173R72T072223421434Trn清除退出LnA!JUIIMBIIIIKMIIaimOptionExplicitOptionBase1PrivateSubCommand1_Click()DimiAsInteger,tAsIntegerDima(15)AsIntegerRandomizeFori=1To15a(i)=Int(100*Rnd)Text1=Text1&Str(a(i)NextiFori=1To7t=a(i)a(i)=a(16-i)a(16-i)=tNextiFori=1To15Text2=Text2&Str(a(i)NextiEnd

12、SubPrivateSubCommand2_Click()Text1=""Text2=""EndSubPrivateSubCommand3_Click()EndEndSub10、隨機(jī)生成20個(gè)數(shù)，統(tǒng)計(jì)有多少個(gè)數(shù)不一樣6-3OptionExplicitDima(20)AsIntegerPrivateSubCommand1_Click()DimiAsIntegerRandomizeFori=1To20a(i)=Int(90*Rnd)+10Text1=Text1&Str(a(i)NextiEndSubPrivateSubCommand2_Click()

13、DimiAsInteger,jAsInteger,fAsBooleanDimnAsIntegerFori=1To20f=TrueForj=i+1To20Ifa(i)=a(j)Thenf=FalseNextjIff=TrueThenn=n+1NextiText2=nEndSubPrivateSubCommand3_Click()Textl=""EndSubPrivateSubCommand4_Click()EndEndSub11、20個(gè)隨機(jī)數(shù)圍成一圈，求相鄰四個(gè)數(shù)和中的最大值，并指出哪四個(gè)數(shù)6-4OptionExplicitDima(20)AsIntegerPrivateSu

14、bCommand1_Click()DimiAsIntegerRandomizeFori=1To20a(i)=Int(90*Rnd)+10Text1=Text1&Str(a(i)NextiEndSubPrivateSubCommand2_Click()DimiAsInteger,jAsInteger,maxAsIntegerDimnAsInteger,wAsInteger,pAsIntegerFori=1To20n=0:p=iForj=1To4Ifi>20Thenp=p-20n=n+a(p)NextjIfn>maxThenmax=nw=iEndIfNextiText2=max

15、Picturel.Printw&"-"&w+4EndSubPrivateSubCommand3_Click()Textl=""EndSubPrivateSubCommand4_Click()EndEndSub12、求一個(gè)隨機(jī)數(shù)組每一行每一列的和6-5Dima(5,5)AsIntegerPrivateSubCommand1_Click()Fori=1To4Forj=1To5a(i,j)=Int(9*Rnd)+1Picture1.Printa(i,j);NextjNextiEndSubPrivateSubCommand2_Click()For

16、j=1To5s=0Fori=1To4s=s+a(i,j)NextiText1=Text1&Str(s)NextjEndSubPrivateSubCommand3_Click()Fori=1To4s=0Forj=1To5s=s+a(i,j)NextjText2=Text2&Str(s)&Chr(13)&Chr(10)NextiEndSubPrivateSubCommand4_Click()Text1=""Text2=""EndSubPrivateSubCommand5_Click()EndEndSub13 、統(tǒng)計(jì)字母?jìng)€(gè)數(shù)p1

17、13OptionExplicitPrivateSubCommand1_Click()DimstAsString,tAsIntegerDima(0To25)AsIntegerDimiAsInteger,jsAsIntegerDimchAsString*1,lAsIntegerl=Len(st)Fori=1Tolch=Mid(st,i,1)Ifch>="A"Andch<="Z"Thent=Asc(ch)-Asc("A")a(t)=a(t)+1ElseIfch>="a"Andch<="z

18、"Thent=Asc(ch)-Asc("a")a(t)=a(t)+1EndIfNextiFori=0To25Ifa(i)<>0Thenjs=js+1Text2=Text2&Chr(i+Asc("A")&":"&Str(a(i)&""EndifIfjsMod5=0ThenText2=Text2&Chr(13)&Chr(10)EndIfNextiEndSub14 、求階乘PrivateSubCommand1_Click()n=InputBox("輸入自然數(shù)","輸入")JieChengnIfn>1ThenForj=nTo2Step-1Printj&"*"NextjEndIfPrint"1="PrintJieCheng(n)EndSubPrivateFunctionJieCheng(ByVali&)AsLongIfi>1ThenJieCheng=i*JieCheng(