vb課后實驗代碼A．1PrivateSubCommand1_Click()Label3=Text1EndSubA．2PrivateSubForm_Load()Timer1.Interval=0EndSubPrivateSubCommand1_Click()'自動Timer1.Interval=200EndSubPrivateSubCommand2_Click()'手動Timer1.Interval=0CallMyMoveEndSubPrivateSubTimer1_Timer()CallMyMoveEndSubSubMyMove()Label1.MoveLabel1.Left-50IfLabel1.Left<0ThenLabel1.Left=Form1.WidthEndSubA．3PrivateSubForm_Click()Text1=Val(Text1)+1EndSubPrivateSubForm_Load()Text1=0EndSubA．4PrivateSubForm_Click()Caption="單擊窗體，改變圖片"Picture=LoadPicture(App.Path+"\n_015.bmp")Print"歡迎使用VB"EndSubPrivateSubForm_DblClick()ClsCaption="雙擊窗體，卸去圖片"Picture=LoadPicture("")'EndSubPrivateSubForm_Load()Caption="裝入窗體"Picture=LoadPicture(App.Path+"\n_016.bmp")Print"裝入圖"EndSubPrivateSubForm_Resize()'該事件的作用窗體始終與圖一樣大'Caption="窗體大小不變"'Form1.Width=260*16'260是Tongji-2.bmp圖的寬度，象素單位'Form1.Height=260*16+200'260是圖的高度，象素單位，200是窗體的標(biāo)題欄高度EndSubA．5SubCommand1_Click()Text1.FontName="隸書"Text1.FontSize=25EndSubSubCommand2_Click()Text2.Text=Text1.SelTextText2.FontName=Text1.FontNameText2.FontSize=Text1.FontSizeEndSubB．1PrivateSubCommand1_Click()Text2=Format(5/9*(Val(Text1)-32),"0.00")EndSubPrivateSubCommand2_Click()Text1=Format(9/5*Val(Text2)+32,"0.00")EndSub或PrivateSubCommand1_Click()Dimf!,c!'聲明兩個變量f=Val(Text1)c=5/9*(f-32)Text2=Format(c,"0.00")'保留兩位小數(shù)EndSubPrivateSubCommand2_Click()Dimff!,cc!'聲明兩個變量cc=Val(Text2)ff=9/5*cc+32Text1=Format(ff,"0.00")'保留兩位小數(shù)EndSubB．2PrivateSubCommand1_Click()Label2=Format(Val(Text1)*Val(Text1)*3.14,"0.00")EndSubPrivateSubCommand2_Click()Label3=Format(Val(Text1)*3.14*2,"0.00")EndSubPrivateSubText1_LostFocus()警告IfNotIsNumeric(Text1.Text)Then警告MsgBox"輸入有非數(shù)字字符，請重新輸入Text1.Text=""Text1.SetFocusEndIfEndSub或PrivateSubCommand1_Click()Label2=Format(Val(Text1)*Val(Text1)*3.14,"0.00")EndSubPrivateSubCommand2_Click()Label3=Format(Val(Text1)*3.14*2,"0.00")EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenIfNotIsNumeric(Text1.Text)ThenText1.Text=""EndIfEndIfEndSubB．3PrivateSubCommand1_Click()n=Int(Log(2)/Log(1.008)+1)Label1=n&"年后人數(shù)超過26億"EndSubB．4PrivateSubCommand1_Click()Dimx,dx,cdx=Text1.Textdx=UCase(x)cd=Len(x)Print"大寫字母為:";dxPrint"字符串長度為:";cdEndSubB．5PrivateSubCommand1_Click()Text1=Int(Rnd*900+100)EndSubPrivateSubCommand2_Click()'分離出的個位數(shù)Dimx%,x1%,x2%,x3%x=Val(Text1)x1=xMod'分離出的個位數(shù)x2=(xMod100)\10'分離出的十位數(shù)x3=x\100'分離出的百位數(shù)Label1=x1*100+x2*10+x3EndSubB．6PrivateSubForm_Click()Label1=Left(Text1,11)Label2=Mid(Text1,12,6)Label3=Right(Text1,5)EndSubB．7PrivateSubCommand1_Click()PrintFori=1To5PrintTab(15-i*2);String(2*i-1,"★");Spc(18-4*(i-1));String(2*i-1,"★")NextiEndSubPrivateSubCommand2_Click()ClsEndSub進(jìn)一步要求：PrivateSubCommand1_Click()PrintFori=1To5PrintTab(15-i*2);String(2*i-1,"★");String(10-(2*i-1),"☆");String(2*i-1,"★")NextiEndSubPrivateSubCommand2_Click()ClsEndSubB．8PrivateSubForm_Click()x=Val(InputBox("輸入一正實數(shù)","計算",0))pf=Format(x*x,"0.000")pfg=Format(Sqr(x),"0.000")lf=Format(x*x*x,"0.000")Ifg=Format(xA(1/3),"0.000")Print"平方為:";pf;Space(5);"平方根為:";pfg;Space(5);"立方為:";lf;Space(5);"立方根為:"lfgEndSubC．1PrivateSubForm_Click()Dimx!,y!x=Val(InputBox("輸入x的值"))Ifx<1000Theny=xElseIfx<2000Theny=0.9*xElseIfx<3000Theny=0.8*xElsey=0.7*xEndIfPrintyEndSubC．2PrivateSubForm_Click()Dimx!,y!x=Val(InputBox("輸入上網(wǎng)時間"))Ifx<10Theny=30ElseIfx<50Theny=30+2.5*(x-10)Elsey=30+2.5*40+2*(x-50)EndIfIfy>150Theny=150EndIfPrintyEndSubC．3PrivateSubCommand1_Click()Dimx!,y!,z!x=InputBox("inputx")y=InputBox("inputy")z=InputBox("inputz")Print"xyz"Print"排序前";x;"";y;"";zTOC\o"1-5"\h\zIfx<yThent=x:x=y:y=tIfx<zThent=x:x=z:z=tIfy<zThent=y:y=z:z=tPrint"排序后"&x&""&y&""&zEndSubPrivateSubCommand2_Click()Dimx!,y!,z!x=InputBox("inputx")y=InputBox("inputy")z=InputBox("inputz")Print"xyz"Print"排序前";x;"";y;"";zIfx<yThent=x:x=y:y=tIfy<zThent=y:y=z:z=tIfx<yThent=x:x=y:y=tEndIfEndIfPrint"排序后"&x&""&y&""&zEndSubC．4Dima(3)AsIntegerPrivateSubCommand1_Click()Picture1.ClsFori=0To2a(i)=Int(Rnd*100+200)Picture1.Printa(i)NextiEndSubPrivateSubCommand2_Click()Picture2.ClsDimzAsIntegerFori=0To1Ifa(i)>a(i+1)Thenz=a(i+1)a(i+1)=a(i)a(i)=zEndIfNextiPicture2.Printa(0)Picture2.Printa(1)Picture2.Printa(2)EndSubC．5PrivateSubText2_LostFocus()Dimm%,n%,y%m=Val(Text1)n=Val(Text2)IfnMod2<>0ThenMsgBox("腳數(shù)必定為偶數(shù)")Text2=""Text2.SetFocusElsey=n/2-mIfy<0ThenMsgBox("腳數(shù)必須R2倍的頭數(shù)，請重新輸入”)Text2=""Text2.SetFocusElsex=n/2-mLabel2=yLabel3=m-yEndIfEndIfEndSubC．6PrivateSubCommand1_Click()Dima!,b!,c!,x1!,x2!,de!a=Text1b=Text2c=Text3de=b*b-4*a*ct=2*aIfde=0ThenText4=Format(-b/t,"0.00")Text5=Format(-b/t,"0.00")ElseIfde>0ThenText4=Format((-b+Sqr(de))/t,"0.00")Text5=Format((-b-Sqr(de))/t,"0.00")ElseText4=Format(-b/t,"0.00")&"+"&Format(Sqr(Abs(de))/t,"0.00")&"i"Text5=Format(-b/t,"0.00")&"-"&Format(Sqr(Abs(de))/t,"0.00")&"i"EndIfEndSubPrivateSubCommand2_Click()Text1=""Text2=""Text3=""Text4=""Text5=""EndSubC．7PrivateSubText3_LostFocus()SelectCaseTrim(Text3)Case"+"Text4=Val(Text1)+Val(Text2)Case"-"Text4=Val(Text1)-Val(Text2)Case"*"Text4=Val(Text1)*Val(Text2)Case"/"IfVal(Text2)=0ThenMsgBox"分母為零，重新輸入"Text2=""Text2.SetFocusElseText4=Val(Text1)/Val(Text2)EndIfEndSelectEndSubC．8PrivateSubText1_LostFocus()SelectCaseTrim(Text1)Text2="Monday"Text2="Tuesday"Text2="Wednesday"Text2="Thursday"Text2="Friday"Text2="Saturday"Text2="Sunday"CaseIs>7,Is<1MsgBox"數(shù)字為1~7，重新輸入"Text1=""Text1.SetFocusEndSelectEndSub或者PrivateSubText1_LostFocus()IfText1>7OrText1<1ThenMsgBox"數(shù)字為1~7，重新輸入Text1=""Text1.SetFocusElseText2=Choose(Text1,"Monday","Tuesday","Wednesday","Thursday","Friday","Saturday","Sunday")EndIfEndSubD．1PrivateSubForm_Click()Fori=1To9PrintTab(10-i);String(2*i-1,Trim(Str(i)))NextiEndSubD．2PrivateSubForm_Click()Fori=1To10Step1PrintTab(i);String((20-2*i),Chr(64+i))NextiEndSubD．3PrivateSubCommand1_Click()Dims!,t!,i&s=1t=1Fori=1To100000t=t+is=s+1/tIf1/t<0.00001ThenExitForNextiPrint"For結(jié)構(gòu)";s,i;"項"EndSubD．4PrivateSubCommand1_Click()Dimn&,pi#,i&n=InputBox("輸入n值")pi=2Fori=1Tonpi=pi*(2*i)/(2*i-1)*(2*i)/(2*i+1)NextiPrint"當(dāng)n="&n&"時，pi=";piEndSubD．5PrivateSubForm_Click()Dims!,t!,i!,a%,n%a=Int(Rnd*9+1)n=Int(Rnd*6+5)t=0:s=0Print"a=";a,"n=";nFori=1Tont=t*10+as=s+tPrintt;NextiPrintPrint"s=";sEndSubD．6PrivateSubCommand1_Click()DimsAsIntegers=0Fori=1To9Forj=0To9Fork=0To9s=i*100+j*10+kIfs=iA3+jA3+kA3ThenPrintsEndIfNextkNextjNextiEndSubPrivateSubCommand3_Click()formd6.Hidemain.ShowEndSubD．7PrivateSubCommand1_Click()Dima!,x0!,x1!a=27x0=2i=0Doi=i+1x1=2*x0/3+a/(3*x0*x0)IfAbs(x1-x0)<0.00001ThenExitDox0=x1LoopPrintx1,iEndSubD．8PrivateSubCommand1_Click()s=0x0=0.01Fori=1To30s=s+x0x0=x0*2NextiPrintsEndSubD．9PrivateSubCommand4_Click()Picture1.ClsPicture1.Print"x課安排在";"y課安排在";"z課安排在"Picture1.Print""Forz=5To6Forx=1Toz-2ForY=x+1Toz-1TOC\o"1-5"\h\zX1=Choose(Weekday(x),"周一","周二","周三","周四","周五","周六","周日")Y1=Choose(Weekday(Y),"周一","周二","周三","周四","周五","周六","周日")z1=Choose(Weekday(z),"周一","周二","周三","周四","周五","周六","周日")Picture1.Print"";X1;"";Y1;"";z1NextYNextxNextzEndSubE．1PrivateSubForm_Click()Dima(1To10)AsIntegerFori=1To10a(i)=Int(Rnd*71+30)Printa(i);"";NextiMax=a(1)Min=a(1)Avg=a(1)Fori=2To10Ifa(i)>MaxThenMax=a(i)Ifa(i)<MinThenMin=a(i)Avg=Avg+a(i)NextiAvg=Avg/10PrintPrint"Max=";Max;"Min=";Min;"Avg=";AvgEndSubE．2PrivateSubForm_Click()Dimaa=Array(56,78,98,88,76,78)Fori=0To5PrintString(a(i)\5,"?");a(i)PrintNextiEndSubE．3Dima%(19)PrivateSubCommand1_Click()Picture1.ClsFori=0To19a(i)=Int(Rnd*101)Picture1.Printa(i);"";If(i+1)Mod4=0ThenPicture1.PrintNextiEndSubPrivateSubCommand2_Click()Picture2.ClsDims(5To9)Fori=0To19k=a(i)\10SelectCasekCase0To5s(5)=s(5)+1Case9To10'90?100分的人數(shù)s(9)=s(9)+1Case6To8'存放其他三個分?jǐn)?shù)段的下標(biāo)有規(guī)律，根據(jù)K獲得s(k)=s(k)+1EndSelectNextiFori=5To9Ifs(i)<>0ThenPicture2.Print"s(";i;")的人數(shù)有";Format(s(i),"0");"個"NextiEndSubE．4PrivateSubCommand1_Click()Picture1.ClsDimd%(1To10)Fori3=1To10Randomized(i3)=Int(Rnd*91+10)Nexti3Fori=1To10Forj=1To10-iIfd(j)<d(j+1)Thent=d(j):d(j)=d(j+1):d(j+1)=tEndIfNextjNextiFori=1To10:Picture1.Printd(i);IfiMod5=0ThenPicture1.PrintNextiEndSubE．5Dima%(3,3),b%(3,3)PrivateSubForm_Load()Fori=0To3Forj=0To3a(i,j)=Int(Rnd*36+35)b(i,j)=Int(Rnd*41+100)NextjNextiEndSubPrivateSubCommand1_Click()Picture1.ClsFori=0To3Forj=0ToiPicture1.Printa(i,j);"";NextjPicture1.PrintNextiEndSubPrivateSubCommand2_Click()Picture2.ClsFori=0To3Forj=iTo3Picture2.PrintTab(j*6);b(i,j);NextjPicture2.PrintNextiEndSubPrivateSubCommand3_Click()Picture3.Cls

sa=0Fori=0To3sa=sa+a(i,i)Nextisb=0Fori=0To3sb=sb+b(i,3-i)Nexti";sa";sb";sa";sbPicture3.Print"B數(shù)組副對角線元素和為：EndSubE．6PrivateSubForm_Click()n=InputBox("輸入n值")ReDima6%(n+1,n+1)a6(0,0)=1:a6(1,1)=1:a6(1,0)=1Fori=2Ton+1Forj=2Toia6(i,j)=a6(i-1,j-1)+a6(i-1,j)Picture1.Printa6(i,j);"";NextjPicture1.PrintNextEndSubE．7PrivateSubForm_Load()List1.ClearTOC\o"1-5"\h\zList1.AddItem"大學(xué)計算機基礎(chǔ)"List1.AddItem"C/C++程序設(shè)計"List1.AddItem"VB程序設(shè)計"List1.AddItem"Web程序設(shè)計"List1.AddItem"多媒體技術(shù)與應(yīng)用"List1.AddItem"數(shù)據(jù)庫技術(shù)與應(yīng)用"List1.AddItem"網(wǎng)絡(luò)技術(shù)與應(yīng)用"List1.AddItem"硬件技術(shù)基礎(chǔ)"List1.AddItem"軟件技術(shù)技術(shù)基礎(chǔ)"EndSubPrivateSubList1_Click()IfList2.ListCount>=5ThenMsgBox("超過5門課程，不能再選")ExitSubElseList2.AddItemList1.TextList1.RemoveItemList1.ListIndexEndIfEndSubE．8SubCombo1_KeyPress(KeyAsciiAsInteger)SelectCaseKeyAsciiCase48To57,13CaseElseKeyAscii=0EndSelectIfKeyAscii=13ThenCombo1.AddItemCombo1.TextCombo1.Text=""EndIfEndSubPrivateSubCommand1_Click()Dimmin%,max%min=Val(Combo1.List(0))max=Val(Combo1.List(0))imin=0imax=0Fori=1ToCombo1.ListCount-1IfVal(Combo1.List(i))>maxThenimax=imax=Combo1.List(i)ElseIfVal(Combo1.List(i))<minThenimin=imin=Combo1.List(i)EndIfNextit=Combo1.List(0)Combo1.List(0)=Combo1.List(imin)Combo1.List(imin)=tt=Combo1.List(Combo1.ListCount-1)Combo1.List(Combo1.ListCount-1)=Combo1.List(imax)Combo1.List(imax)=tEndSubE．9PrivateSubForm_Click()Fori=0ToScreen.FontCount-1IfAsc(Left(Screen.Fonts(i),1))<0ThenPicture1.PrintScreen.Fonts(i)Picture2.FontName=Screen.Fonts(i)Picture2.Print"商丘師范學(xué)院EndIfNextiEndSubE．10PrivateTypeclerknumberAsString*3nameAsString*5salaryAsIntegerEndTypeDima(0To4)Asclerk,n%PrivateSubCommand1_Click()Ifn>=5ThenMsgBox("輸入人數(shù)超過數(shù)組聲明的個數(shù)")ElseWitha(n).number=T=Text2.salary=Text3Picture1.Printa(n).number,a(n).name,a(n).salaryPrintEndWithn=n+1Text1=""Text2=""Text3=""EndIfEndSubPrivateSubCommand2_Click()DimtAsclerk,i%,j%Fori=0Ton-1Forj=iTon-1Ifa(i).salary<a(j+1).salaryThent=a(i):a(i)=a(j+1):a(j+1)=tEndIfNextjNextiPicture1.ClsPicture1.Print"工號姓名工資"Fori=0Ton-1Picture1.Printa(i).number,a(i).name,a(i).salaryPrintNextiEndSubF．1PrivateSubForm_Click()Dima(1To10),amin,i%Fori=1To10a(i)=-Int(Rnd*101+300)Printa(i);NextiCalls(a(),amin)PrintPrint"min=";aminEndSubSubs(b(),min)Dimi%min=b(LBound(b))Fori=LBound(b)+1ToUBound(b)Ifb(i)<minThenmin=b(i)NextiEndSubF．2PrivateSubCommand1_Click()Dimmm%,nn%mm=Val(Text1)nn=Val(Text2)Picture1.Printmm;Tab(6);nn;Tab(12);gcd(mm,nn)EndSubFunctiongcd%(ByValm%,ByValn%)Ifm<nThent=m:m=n:n=tr=mModnDoWhile(r<>0)m=n:n=r:r=mModnLoopgcd=nEndFunctionF．3Dimx!PrivateSubCommand1_Click()Print"調(diào)用標(biāo)準(zhǔn)函數(shù)Sin的結(jié)果";Sin(x)EndSubPrivateSubCommand2_Click()Print"調(diào)用自定義函數(shù)MySin的結(jié)果";MySin(x)EndSubFunctionMySin(x!)AsDoubleDimi%,t!,s!t=xs=ti=1DoWhileAbs(t)>0.00001t=-1*t*x*x/((i+1)*(i+2))s=s+ti=i+2LoopMySin=sEndFunctionPrivateSubCommand3_Click()x=InputBox("輸入要計算正弦函數(shù)的角度值x")x=x*3.14/180EndSubF．4PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenIfNotIsNumeric(Text1)ThenMsgBox"輸入非數(shù)字串，重新輸入"Text1.Text=""Text1.SetFocusElseIfIsH(Text1)ThenPicture1.PrintText1;"★"ElsePicture1.PrintText1EndIfText1=""EndIfEndIfEndSubFunctionIsH(ssAsString)AsBooleanDimi%,Ls%IsH=Truess=Trim(ss)Ls=Len(ss)Fori=1ToLs\2IfMid(ss,i,1)<>Mid(ss,Ls+1-i,1)ThenIsH=FalseExitFunctionEndIfNextiEndFunctionF．5Functionprime(ByValmAsInteger)AsBooleanprime=TrueDimi%Fori=2Tom-1If(mModi)=0Thenprime=False:ExitFunction'注意冒號和exit的范圍NextiEndFunctionPrivateSubCommand1_Click()n=0Fori=6To100Step2Forj=3Toi\2Ifprime(j)ThenIfprime(i-j)ThenList1.AddItemi&"="&j&"+"&i-jn=n+1EndIfEndIfNextjNextiPicture1.Print"6和100之間共有";n;"對素數(shù)和"EndSubF．6Dima%()PrivateSubForm_Click()Print"1000以內(nèi)的完數(shù)為："Fori=1To1000IfIsWs(i)ThenPrinti;"=1";Forj=1ToUBound(a)Print"+";a(j);NextjPrintEndIfNextiEndSubFunctionIsWs(m)AsBooleanDims%s=0Fori=1Tom\2IfmModi=0ThenReDimPreservea(j)a(j)=ij=j+1s=s+iEndIfNextiIfm=sThenIsWs=TrueEndFunctionF．7PrivateSubDeleStr(s1AsString,ByVals2AsString)Dimi%ls2=Len(s2)i=InStr(s1,s2)DoWhilei>0si=Left(s1,i-1)+Mid(s1,i+ls2)'在si中去除s2子串i=InStr(s1,s2)LoopEndSubPrivateSubCommandi_Click()'調(diào)用DeleStr子過程DimssiAsStringssi=TextiCallDeleStr(ssi,Text2)Text3=ssiEndSubPrivateSubCommand2_Click()EndSubF．8PrivateSubCommandi_Click()Dimmaxw$maxlenTexti&"",maxwText2=maxwEndSubSubmaxlen(s$,maxw$)Dimword$maxw=""DoWhiles<>""i=InStr(s,"")word=Left(s,i-i)IfLen(word)>Len(maxw)Thenmaxw=words=Mid(s,i+i)LoopEndSubG．1PrivateSubCommand1_Click()List1.ClearList1.AddItemCombo1IfOption1ThenList1.AddItem"PentiumII"IfOption2ThenList1.AddItem"PentiumI"IfOption3ThenList1.AddItem"Celeron"List1.AddItemText1IfCheck1ThenList1.AddItem"聲卡"IfCheck2ThenList1.AddItem"Modem"IfCheck3ThenList1.AddItem"網(wǎng)絡(luò)適配器"EndSubPrivateSubText1_LostFocus()st=UCase(Trim(Text1))le=Len(st)IfNotIsNumeric(Left(st,le-2))OrRight(st,2)<>"MB"ThenMsgBox"有不合法字符！"Text1=""Text1.SetFocusEndIfEndSubG．2PrivateSubCheck1_Click()Picture1.Font.Bold=NotPicture1.Font.BoldEndSubPrivateSubCheck2_Click()Picture1.Font.Italic=NotPicture1.Font.BoldEndSubPrivateSubCommand1_Click()Picture1.ClsIfOption1ThenPicture1.PrintSin(Val(Text1))ElseIfOption2ThenPicture1.PrintExp(Val(Text1))ElseIfOption3ThenPicture1.PrintSqr(Val(Text1))EndIfEndSubPrivateSubreturn_Click(IndexAsInteger)Form6.ShowUnloadForm2EndSubG．3PrivateSubHScroll1_Change()Text1=VScroll1.ValueText2=HScroll1.ValueText3=HScroll2.ValueText4=Format(Val(Text1)*(Text3/100)*(Text2/12),"0.00")Text5=Format(Val(Text4)+Val(Text1),"0.00")EndSubPrivateSubHScroll2_Change()Text1=VScroll1.ValueText2=HScroll1.ValueText3=HScroll2.ValueText4=Format(Val(Text1)*(Text3/100)*(Text2/12),"0.00")Text5=Format(Val(Text4)+Val(Text1),"0.00")EndSubPrivateSubVScroll1_Change()Text1=VScroll1.ValueText2=HScroll1.ValueText3=HScroll2.ValueText4=Format(Val(Text1)*(Text3/100)*(Text2/12),"0.00")Text5=Format(Val(Text4)+Val(Text1),"0.00")EndSubG．4DimtAsSinglePrivateSubCommand1_Click()t=InputBox("輸入倒計時分鐘數(shù)")t=t*60ProgressBar1.Min=0ProgressBar1.Max=tProgressBar1.Value=tEndSubPrivateSubCommand2_Click()Timer1.Interval=1000ProgressBar1.Visible=TrueEndSubPrivateSubTimer1_Timer()Dimm%,s%t=t-1ProgressBar1.Value=tm=t\60s=tMod60Label1=m&"分"&s&"秒"Ift=0ThenMsgBox"時間到！"Timer1.Interval=0ProgressBar1.Visible=FalseEndIfEndSubG．5PrivateSubCommand1_Click()CommonDialog1.ShowColorLabel1.ForeColor=CommonDialog1.ColorEndSubPrivateSubCommand2_Click()CommonDialog1.ShowOpeni=Shell("C:\WINDOWS\NOTEPAD.exe"+CommonDialog1.FileName,vbNormalFocus)EndSubG．6rivateSubbold_Click()Text1.FontBold=NotText1.FontBoldbold.Checked=Notbold.CheckedEndSubPrivateSubdel_Click()Text1=""EndSubPrivateSubend_Click()EndEndSubPrivateSubfont12_Click()Text1.FontSize=12EndSubPrivateSubfont16_Click()Text1.FontSize=16EndSubPrivateSubForm_Load()bold.Checked=Falseitalic.Checked=FalseEndSubPrivateSubitalic_Click()Text1.FontItalic=NotText1.FontItalicitalic.Checked=Notitalic.CheckedEndSubPrivateSubText1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenumenu2EndSubG．7PrivateSubCommand1_Click()CommonDialog1.ShowColorLabel1.ForeColor=CommonDialog1.ColorEndSubPrivateSubCommand2_Click()CommonDialog1.ShowOpeni=Shell("C:\WINDOWS\NOTEPAD.exe"+CommonDialog1.FileName,vbNormalFocus)EndSubPrivateSubreturn_Click(IndexAsInteger)Form6.ShowUnloadForm5EndSubG．8G．9PrivateSub結(jié)束_Click()EndEndSubPrivateSub刪除最大值_Click()max=List1.List(0)Fori=1ToList1.ListCount-1Ifmax<List1.List(i)Thenmax=List1.List(i):j=iNextiList1.RemoveItemjEndSubPrivateSub刪除最小值_Click()min=List1.List(0)Fori=1ToList1.ListCount-1Ifmin>List1.List(i)Thenmin=List1.List(i):j=iPrivateSubexperimentG4_Click()PrivateSubexperimentG4_Click()Form4.ShowNextiList1.RemoveItemjEndSubPrivateSub隨機產(chǎn)生_Click()RandomizeFori=0To9List1.List(i)=Int(Rnd*30+70)NextiEndSubPrivateSub添加數(shù)據(jù)_Click()List1.AddItemInt(Rnd*30+70)EndSubPrivateSub統(tǒng)計_Click()Dimmax%,min%,ave!,m%,n%max=List1.List(0)min=List1.List(0)ave=List1.List(0)m=0n=0Fori=1ToList1.ListCount-1Ifmax<List1.List(i)Thenmax=List1.List(i):m=iIfmin>List1.List(i)Thenmin=List1.List(i):n=iave=ave+List1.List(i)NextiForm2.Text1=List1.List(n)Form2.Text2=List1.List(m)Form2.Text3=Format(ave/List1.ListCount,"0.00")Form2.ShowEndSubG．10PrivateSubexperimentG2_Click()Form2.ShowEndSubPrivateSubexperimentG3_Click()Form3.ShowEndSubEndSubPrivateSubexperimentG5_Click()Form5.ShowEndSubPrivateSubfont_12_Click()Text1.FontSize=12EndSubPrivateSubfont_16_Click()Text1.FontSize=16EndSubPrivateSubrnd10_Click()RandomizeFori=0To9List1.List(i)=Int(Rnd*30+70)NextiEndSubPrivateSubstat_Click()Dimmax%,min%,ave!,m%,n%max=List1.List(0)min=List1.List(0)ave=List1.List(0)m=0n=0Fori=1ToList1.ListCount-1Ifmax<List1.List(i)Thenmax=List1.List(i):m=iIfmin>List1.List(i)Thenmin=List1.List(i):n=iave=ave+List1.List(i)Nextistat2.Text1=List1.List(n)stat2.Text2=List1.List(m)stat2.Text3=Format(ave/List1.ListCount,"0.00")stat2.ShowEndSubPrivateSubText1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenucaidan2,vbPopupMenuCenterAlignEndSubPrivateSubxie_Click()Text1.Font.Italic=NotText1.Font.BoldEndSubH．1PrivateSubCommand1_Click()Open"c:\score"ForOutputAs#1TOC\o"1-5"\h\zPrint#1,"051023","王海濤",66Print#1,"052498","周文英",88Print#1,"050992","陳建東",77Open"c:\score1"ForOutputAs#2Write#2,"051023","王海濤",66Write#2,"052498","周文英",88Write#2,"050992","陳建東",77Closei1=Shell("NOTEPAD.exe"+"c:\score",vbNormalNoFocus)i2=Shell("NOTEPAD.exe"+"c:\score1",vbNormalNoFocus)EndSubPrivateSubCommand2_Click()DimnoAsString,nameAsString,sAsIntegerOpen"c:\score"ForInputAs#1DoWhileNotEOF(1)LineInput#1,linedataList1.AddItemlinedataLoopOpen"c:\score1"ForInputAs#2DoWhileNotEOF(2)Input#2,no,name,sList2.AddItemno&name&sLoopCloseEndSubH．2PrivateSubCommand1_Click()Dimfib%(0To9),i%Open"c:\fb.dat"ForOutputAs#1Fori=0To9Ifi=0Ori=1Thenfib(i)=iElsefib(i)=fib(i-1)+fib(i-2)EndIfPrint#1,"""Fib("&i&")"","&fib(i)NextiClose#1i=Shell("NOTEPAD.exe"+"c:\fb.dat",vbNormalNoFocus)EndSubPrivateSubCommand2_Click()Dimst$,n%,sum%Open"c:\fb.dat"ForInputAs#1DoWhileNotEOF(1)Input#1,st,nsum=sum+nList1.AddItemst&"="&nLoopClose#1List1.AddItem"合計："&sumList1.AddItem"平均："&sum/10EndSubH．3H．4PrivateTypestudtypenoAsString*4nameAsString*6markAsSingleEndTypeDimstudentAsstudtype,stud(1To5)Asstudtype,tAsstudtypePrivateSubCommand1_Click()Open"d:\score.dat"ForRandomAs#1Len=Len(student)Withstudent.no="0001".name="星期一".mark=66EndWithPut#1,1,studentWithstudent.no="0002".name="星期二".mark=99EndWithPut#1,2,studentWithstudent.no="0003".name="星期三".mark=88EndWithPut#1,3,studentWithstudent.no="0004".name="星期四".mark=55EndWithPut#1,4,studentWithstudent.no="0005".name="星期五".mark=77EndWithPut#1,5,studentClose#1EndSubPrivateSubCommand2_Click()Open"d:\score.dat"ForRandomAs#1Len=Len(student)Fori=1To5Get#1,i,studentPrintstudent.no,,student.markstud(i)=studentNextiClose#1Fori=1To5Forj=i+1To5Ifstud(i).mark>stud(j).markThent=stud(i):stud(i)=stud(j):stud(j)=tNextNextiOpen"d:\random1.dat"ForRandomAs#2Len=Len(student)Fori=1To5Put#2,i,stud(i)NextiClose#1EndSubPrivateSubCommand3_Click()Open"d:\random1.dat"ForRandomAs#1Len=Len(student)Fori=1To5Get#1,i,stud(i)Printstud(i).no;stud(i).name;stud(i).markNextiClose#1EndSubH．5PrivateTypestudtypenoAsIntegernameAsString*20sexAsString*1markAsSingleEndTypeDimstdAsstudtypeDimrecordAsIntegerPrivateSubCommand1_Click()Withstd.no=Val(Text1.Text).name=Text2.Text.sex=IIf(Option1.Value,"1","0").mark=Val(Text3.Text)EndWithOpen"c:\score"ForRandomAs#1Len=Len(std)record=LOF(1)/Len(std)+1Label1.Caption=recordPut#1,record,stdClose#1EndSubPrivateSubCommand2_Click()Open"c:\score"ForRandomAs#1Len=Len(std)record=Val(Text4.Text)Get#1,record,stdText1.Text=std.noText2.Text=Ifstd.sex="1"ThenOption1.Value=TrueElseOption2.Value=TrueEndIfText3.Text=std.markrecord=LOF(1)/Len(std)Close#1EndSubPrivateSubCommand3_Click()Withstd.no=Val(Text1.Text).name=Text2.Text.sex=IIf(Option1.Value,"1","0").mark=Val(Text3.Text)EndWithOpen"c:\score"ForRandomAs#1Len=Len(std)record=Val(Text4.Text)Put#1,record,stdClose#1EndSubPrivateSubCommand4_Click()Open"c:\score"ForRandomAs#1Len=Len(std)record=1Get#1,record,stdText1.Text=std.noText2.Text=Ifstd.sex="1"ThenOption1.Value=TrueElseOption2.Value=TrueEndIfText3.Text=std.markrecord=LOF(1)/Len(std)Close#1Text4.Text=1EndSubPrivateSubCommand5_Click()Open"c:\score"ForRandomAs#1Len=Len(std)record=Val(Text4.Text)-1IfVal(Text4.Text)<=1ThenMsgBox"超出記錄范圍",2+vbExclamation,"警告":Close#1ElseGet#1,record,stdText1.Text=std.noText2.Text=Ifstd.sex="1"ThenOption1.Value=TrueElseOption2.Value=TrueEndIfText3.Text=std.markrecord=LOF(1)/Len(std)Close#1Text4.Text=Val(Text4.Text)-1EndIfEndSubPrivateSubCommand6_Click()Open"c:\score"ForRandomAs#1Len=Len(std)record=Val(Text4.Text)+1Ifrecord>Val(Label1.Caption)ThenMsgBox"超出記錄范圍",2+vbExclamation,"警告":CloseElseGet#1,record,stdText1.Text=std.noTex