


版權說明:本文檔由用戶提供并上傳,收益歸屬內容提供方,若內容存在侵權,請進行舉報或認領
文檔簡介
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&不是自守數(shù)。,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無升序數(shù)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
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網頁內容里面會有圖紙預覽,若沒有圖紙預覽就沒有圖紙。
- 4. 未經權益所有人同意不得將文件中的內容挪作商業(yè)或盈利用途。
- 5. 人人文庫網僅提供信息存儲空間,僅對用戶上傳內容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內容本身不做任何修改或編輯,并不能對任何下載內容負責。
- 6. 下載文件中如有侵權或不適當內容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 急救人員裝備準備計劃
- 2025年IC卡售氣系統(tǒng)項目合作計劃書
- 2025年物料搬運機械項目合作計劃書
- 毛石擋土墻砌筑工程施工合同
- 智能投顧服務平臺開發(fā)合作協(xié)議
- 視頻抖音廣告合同
- 內部通知文件(調整辦公時間)
- 某項目執(zhí)行情況回顧與反思
- 磚廠股份轉讓協(xié)議書
- α-Amyrin-Standard-生命科學試劑-MCE
- 《道路建筑材料緒論》課件
- 第二十章手術減肥及體形塑造美容手術美容外科學概論講解
- 2025年廣西教育出版社有限公司招聘筆試參考題庫含答案解析
- 中醫(yī)膏方臨床應用與制備工藝規(guī)范 DB32/T 4870-2024
- JJG(交通) 208-2024 車貨外廓尺寸動態(tài)現(xiàn)場檢測設備
- 履帶式剪叉高空作業(yè)平臺安全操作規(guī)程
- 《水稻育秧技術新》課件
- 2024-2025年第一學期初中德育工作總結
- 圍手術期手術患者護理要點
- 2025年大連長興開發(fā)建設限公司工作人員公開招聘高頻重點提升(共500題)附帶答案詳解
- 貨物學 課件1.3貨物的計量
評論
0/150
提交評論