VisualBasic試驗參考指導書程序代碼

1、VisualBasic試驗參考指導書程序代碼9-1OptionExplicitOptionBase1PrivateSubCommand1_Click(Dimx(10AsInteger,maxvAsInteger,minvAsIntegerDimiAsIntegerFori=1To10x(i=Int(90*Rnd+10Text1.Text=Text1&Str(x(iNextiCallmaxmin(x,maxv,minvText2.Text=maxvText3.Text=minvEndSubPrivateSubCommand2_Click(Text1.Text=Text2.Text=EndEndS

2、ubPrivateSubmaxmin(a(AsInteger,maxAsInteger,minAsIntegerDimiAsIntegermax=a(1:min=a(1Fori=LBound(a+1ToUBound(aIfa(imaxThenmax=a(iElseIfa(iminThenmin=a(iEndIfNextiEndSub9-2PrivateSubCommand1_Click(DimxAsLongx=Val(Text1.TextIfverify(xThenListl.AddItemxElseMsgBoxStr(x&不是自守數。,vbInformationEndIfEndSubPriv

3、ateSubCommand2_Click(Text1.Text=EndSubPrivateSubCommand3_Click(EndEndSubPrivateFunctionverify(xAsLongAsBooleanDimyAsLong,sAsIntegerverify=Falses=Len(CStr(xy=x*xIfx=Val(Right(CStr(y,sThenverify=TrueEndIf9-3OptionExplicitOptionBase1PrivateSubCommand1_Click(DimaAsInteger,bAsInteger,iAsIntegera=Val(Text

4、1.Text:b=Val(Text2.TextFori=aTobIfsx(i=TrueThenList1.AddItemi8EndIfNextiIfList1.ListCount=0ThenList1.AddItem無升序數EndSubPrivateSubCommand2_Click(Text1.Text=Text2.Text=List1.ClearEndEndSubPrivateFunctionsx(ByValnAsIntegerAsBooleanDima(AsInteger,kAsInteger,iAsIntegerDok=k+1ReDimPreservea(ka(k=nMod10n=n1

5、0LoopUntiln=a(iThenExitFunctionNextisx=TrueEndFunction9-4OptionExplicitPrivateSubCommand1_Click(Textl.Text=Text2.Text=Text3.Text=EndSubPrivateSubCommand2_Click(EndEndSubPrivateFunctioncommon(ByValaAsInteger,ByValbAsIntegerAsIntegerDimrAsIntegerDor=aModba=bb=rLoopWhiler0common=aEndFunctionPrivateSubO

6、ption1_Click(IndexAsIntegerDimaAsInteger,bAsIntegerDimmAsInteger,dAsIntegera=Textlb=Text2m=common(a,bIfIndex=0ThenText3=mElsed=a*b/mText3=dEndIfEndSub9-5OptionExplicitPrivateFunctionJudge(nAsIntegerAsBooleanDimiAsIntegerFori=2ToSqr(nIfnModi=0ThenExitFunctionNextiJudge=TrueDimxAsInteger,iAsIntegerx=T

7、extl.TextIfx=4ThenText2=2+2”Elsei=3DoWhileText2=IfJudge(iAndJudge(x-iThenText2=i&+&x-iElsei=i+2EndIfLoopEndIfEndSubPrivateSubCommand3_Click(EndEndSub9-6PrivateFunctionchange(sAsString,nAsIntegerAsStringDimiAsInteger,kAsInteger,sumAsIntegerDimpAsString*1,qAsIntegerk=0Fori=Len(CStr(Text2.TextTo1Step-1

8、p=Mid(CStr(Text2.Text,i,1Ifp=0Andp=Len(Text1.Textnx=Val(stEndFunction9-8PrivateSubCommand1_Click(DimnAsInteger,iAsInteger,sAsString,a(AsIntegerForn=153To9999Ifarm(n=TrueThenReDima(Len(CStr(na(i=Mid(CStr(n,i,1Nextis=Fori=1ToLen(CStr(n-1s=s&CStr(a(i&A&CStr(Len(CStr(n&+NextiList1.AddItemCStr(n&=&s&CStr

9、(a(i&A&CStr(Len(CStr(nEndIfNextnEndSubEndEndSubPrivateFunctionarm(nAsIntegerAsBooleanDima(AsInteger,iAsInteger,stAsString,sumAsIntegerarm=Falsest=CStr(nReDima(Len(stFori=1ToLen(sta(i=Mid(st,i,1sum=Val(a(iA(Len(st+sumNextiIfn=sumThenarm=TrueElseExitFunctionEndIfEndFunction9-9Dimsco(5AsSinglePrivateSu

10、bCommand1_Click(DimiAsIntegerFori=0To5sco(i=(Int(Rnd*61+40/10Text1(i.Text=sco(iNextiEndSubDimiAsInteger,sumAsInteger,minAsSingle,maxAsSingleCalla(min,maxNextiText7.Text=(sum-min-max/4EndSubPrivateSuba(minAsSingle,maxAsSingleDimiAsInteger,kAsIntegermax=sco(0:min=sco(0Fori=1To5Ifsco(imaxThenmax=sco(iE

11、lseIfsco(iminThenmin=sco(iEndIfNextiEndSubFori=0To5NextiText7.Text=PrivateSubCommand4_Click(EndEndSub9-10PrivateSubCommand1_Click(DimmaxAsLong,minAsLongCallat(max,minText2.Text=maxText3.Text=minEndSubPrivateSubCommand2_Click(Text1.Text=Text2.Text=Text3.Text=EndSubEndEndSubPrivateSubat(maxAsLong,minA

12、sLongDimsAsString,iAsInteger,a(AsInteger,kAsInteger,tempAsInteger,stAsString,st1AsStrings=CStr(Text1.TextReDima(Len(sFori=1ToLen(sk=k+1a(k=Val(Mid(s,i,1Nextimax=a(1:min=a(1Fori=1ToLen(sForj=1ToLen(sIfa(ia(jThentemp=a(ia(i=a(ja(j=tempEndIfNextjNextiIfa(1=0ThenFori=2ToLen(sIfa(i0ThenExitForNextitemp=a

13、(ia(i=a(1a(1=tempEndIfFori=1ToLen(sst=st&a(iNextimin=Val(stFori=1ToLen(sForj=1ToLen(sIfa(ia(jThentemp=a(ia(i=a(ja(j=tempNextjNextiFori=1ToLen(sst1=st1&a(iNextimax=Val(st1EndSub7-2OptionExplicitOptionBase1PrivateSubCommand1_Click(Dima(20AsInteger,iAsInteger,stAsStringDimmaxAsInteger,minAsInteger,maxp

14、AsInteger,minpAsIntegerFori=1To20a(i=Int(Rnd*(100-1+1+1st=st&Str(a(iIfiMod10=0Thenst=st&vbCrLfNextiTextl.Text=stmax=a(1:min=a(1maxp=1:minp=1Fori=2To20Ifa(imaxThenmax=a(imaxp=iElseIfa(iminThenmin=a(iminp=iEndIfNextiText2.Text=max&位置是&maxpText3.Text=min&位置是&minpEndSubPrivateSubCommand2_Click(Text1.Tex

15、t=Text2.Text=:Text3.Text=EndEndSub7-5PrivateSubcmdExit_Click(UnloadMeEndSubPrivateSubcmdJudge_Click(DimmAsInteger,iAsInteger,jAsInteger,sumAsIntegerDima(m=Text1.TextFori=1Tom/2IfmModi=0Thensum=sum+ij=j+1ReDimPreservea(ja(j=iEndIfNexti=iOHAUMdE一j0dEbbrE+=AH-=odUAUMdbCD一EM-=bad?-Epurlo)dU5H當BbM1-JAUMd

16、*DpunDzsmoNxoi=PedEl-瓦CDuoAdoJI-dW9,zO:qI=成3AHpunsXsBJdb(DSBrnuoAdoA)x.2olbPuBEEOoq3Dimfn(AsInteger,iAsInteger,kAsIntegerDimjAsInteger,stAsStringFori=10To50k=0Forj=1Toi-1IfiModj=0Thenk=k+1ReDimPreservefn(kfn(k=jEndIfNextjIfUBound(fn=3Thenst=i&:Forj=1ToUBound(fn-1st=st&fn(j&,NextjList1.AddItemst&fn(j

17、EndIfPrivateSubCommand2_Click(Listl.ClearEndSub7-7PrivateSubCommand1_Click(Dimword(AsString,SAsStringDimnAsInteger,kAsInteger,maxwAsStringS=Text1.TextDon=InStr(S,”Ifn0Thenk=k+1ReDimPreserveword(kword(k=Left(S,n-1List1.AddItemword(kS=Right(S,Len(S-nEndIfLoopUntiln=0ReDimPreserveword(k+1word(k+1=Left(

18、S,Len(S-1Listl.AddItemword(k+1maxw=word(k+1Forn=2ToUBound(wordIfLen(word(nLen(maxwThenmaxw=word(nEndIfNextnText2.Text=maxwEndSubPrivateSubCommand2_Click(Text1.Text=Text2.Text=List1.ClearText1.SetFocusEndSubPrivateSubCommand3_Click(EndEndSub7-9OptionBase1PrivateSubCommand1_Click(DimrndArray(10AsIntegerDimiAsInteger,jAsInteger,tempAsIntegerRandomizePicture1.Print啪E序前:Fori=1To10rndArray(i=Int(90*Rnd+10Picture1.PrintrndArray(i;N