河南大學(xué)09級VB程序設(shè)計(jì)課后習(xí)題參考答案(編碼)2-1PrivateSubForm_Click()ClsEndSubPrivateSubForm_DblClick()FontSize=40FontName="隸書"ForeColor=vbRedPrint"熱烈慶祝"FontSize=60FontName="宋體"ForeColor=vbGreenPrint"河南大學(xué)運(yùn)動(dòng)會(huì)召開"EndSub2-2PrivateSubCommand1_Click()Label1.MoveWidth*Rnd,Height*RndEndSub2-3PrivateSubCommand1_Click()Label1.Visible=TrueEndSubPrivateSubCommand2_Click()Label1.Visible=FalseEndSub2-4PrivateSubTimer1_Timer()Text1.Text=NowCaption=Text1.TextEndSub2-5PrivateSubTimer1_Timer()IfBackColor=vbRedThenBackColor=vbYellowElseBackColor=vbRedEndIfEndSub2-6PrivateSubTimer1_Timer()IfLabel1.Left<Form1.WidthThenLabel1.Left=Label1.Left+200ElseLabel1.Left=-Label1.LeftEndIfEndSub2-7PrivateSubCommand1_Click()Text1.Visible=TrueEndSubPrivateSubCommand2_Click()Text1.Visible=FalseEndSub2-8PrivateSubText1_Change()Text2.Text=Text1.TextEndSub2-9PrivateSubCommand1_Click()FontSize=20FontBold=TruePrint"歡迎來到"Print"河南大學(xué)"EndSubPrivateSubCommand2_Click()ClsEndSubPrivateSubCommand3_Click()EndEndSub2-10PrivateSubCommand1_Click()r=Text1.TextText2.Text=3.14*2*rEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text1.SetFocusEndSub2-11PrivateSubForm_Load()Text1.Text="河南大學(xué)歡迎您！"Text1.FontName="宋體"Text1.FontSize=50Text1.BackColor=vbYellowText1.ForeColor=vbBlueEndSub2-12DimsAsStringPrivateSubCommand1_Click()s=Text1.SelTextEndSubPrivateSubCommand2_Click()Text2.SelText=sEndSub2-13PrivateSubTimer1_Timer()IfLabel1.Top>-Label1.HeightThenLabel1.Top=Label1.Top-100ElseLabel1.Top=Form1.HeightEndIfEndSub3-2PrivateSubForm_Click()DimnAsIntegerRandomizen=Int(90*Rnd)+10)PrintnEndSub3-3PrivateSubTimer1_Timer()ClsPrint"河南大學(xué)環(huán)境與規(guī)劃學(xué)院"FontSize=Int(71*Rnd+10)EndSub3-4PrivateSubCommand1_Click()n=Text1.TextText2.Text=Hex(Asc(Right(Text1.Text,1)EndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text1.SetFocusEndSub3-5PrivateSubCommand1_Click()DimmAsDatem=Text1.Textn=DateText2.Text=n-mEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text1.SetFocusEndSub3-6DimbAsStringDimnAsStringDimmAsStringPrivateSubCommand1_Click()m=Left(Text1,1)n=Right(Text1,1)b=Mid(Text1,2,1)Text2.Text=n&b&mEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text1.SetFocusEndSub3-7PrivateSubForm_click()r=InputBox("請輸入字符")PrintLeft(r,1)&Mid(r,3,1)&Right(r,1)EndSub3-8PrivateSubTimer1_Timer()Label1.FontSize=Rnd*40+10Label1.BackColor=RGB(Rnd*256,Rnd*256,Rnd*256)Label1.ForeColor=QBColor(Int(16*Rnd)EndSub3-10PrivateSubForm_Click()r!=InputBox("請輸入您的工資:")a=r100b=(r-100*a)50c=(r-100*a-b*50)10d=(r-100*a-b*50-c*10)5e=(r-100*a-b*50-c*10-d*5)2f=r-100*a-b*50-c*10-d*5-e*2Print"您的工資是:"&rPrint"100元張數(shù)："&aPrint"50元張數(shù)："&bPrint"10元張數(shù)："&cPrint"5元張數(shù)："&dPrint"2元張數(shù)："&ePrint"1元張數(shù)："&fEndSub4-1PrivateSubCommand1_Click()DimpAsSingle,rAsSingle,nAsSinglep=Text1r=Text2n=Text3s=p*(1+r)nMsgBox"您的本息是："&Round(s,2)EndSub4-2PrivateSubForm_click()DimmaxAsSingle,minAsSinglea!=InputBox("請輸入第一個(gè)實(shí)數(shù)")b!=InputBox("請輸入第二個(gè)實(shí)數(shù)")Ifa>bThenPrinta,bElsePrintb,aEndIfEndSub4-3PrivateSubForm_click()Clsa!=InputBox("請輸入年份")IfaMod4=0AndaMod100<>0&aMod400=0ThenPrint"您剛剛輸入的年份為閏年!"ElsePrint"您剛剛輸入的年份不是閏年!"EndIfEndSub4-4PrivateSubForm_click()a!=InputBox("a=")b!=InputBox("b=")c!=InputBox("c=")d!=b*b-4*a*cIfd>=0Thenm!=(-b+Sqr(d)/(2*a)n!=(-b-Sqr(d)/(2*a)Print"X1="m,",","X2="nElser=(-b)/(2*a)i=Sqr(Abs(-d)/(2*a)Print"X1="r&"+"&Abs(i)&"i",",","X2="r&"-"&Abs(i)&"i"EndIfEndSub4-4（2）Dim a, b, c, d As Singlea = InputBox("輸入數(shù)據(jù)")b = InputBox("輸入數(shù)據(jù)")c = InputBox("輸入數(shù)據(jù)")d = b 2 - 4 * a * cIf d >= 0 ThenX1 = (-b + Sqr(d) / (2 * a)X2 = (-b - Sqr(d) / (2 * a)Print "x1=" & X1 & " " & "x2=" & X2Elsex3 = -b / (2 * a) & "+" & Sqr(-d) / (2 * a) & "i"x4 = -b / (2 * a) & "-" & Sqr(-d) / (2 * a) & "i"Print "x3=" & x3 & " " & "x4=" & x4End If4-5PrivateSubCommand1_Click()Dimx!x=Text1Ifx<60ThenText2="重考！"ElseIfx<70ThenText2="及格！"ElseIfx<80ThenText2="中等！"ElseIfx<90ThenText2="良好！"ElseText2="優(yōu)秀！"EndIfEndSubPrivateSubCommand2_Click()Text1=""Text2=""EndSub4-6PrivateSubCommand1_Click()Dimx!x=Text1SelectCasexCaseIs<60Text2="重考！"CaseIs<70Text2="及格！"CaseIs<80Text2="中等！"CaseIs<90Text2="良好！"CaseElseText2="優(yōu)秀！"EndSelectEndSubPrivateSubCommand2_Click()Text1=""Text2=""EndSub4-7DimsAsStringPrivateSubForm_Click()s=InputBox("請輸入年齡")Ifs<30ThenPrint"您的年齡為"s,",","請參加長跑運(yùn)動(dòng)"ElseIfs<40ThenPrint"您的年齡為"s,",","請參加跳繩運(yùn)動(dòng)"ElseIfs<50ThenPrint"您的年齡為"s,",","請參加競走運(yùn)動(dòng)"ElsePrint"您的年齡為"s,",","請參加慢跑運(yùn)動(dòng)"EndIfEndSub4-8PrivateSubForm_Click()Forn=2To100Step2Printn;IfnMod20=0ThenPrintNextnEndSub4-9PrivateSubForm_click()Forn=100To1000IfnMod3=2AndnMod5=3AndnMod7=2ThenPrintn;NextnPrintEndSub4-10PrivateSubForm_click()m=0:n=0Dor%=InputBox("請輸入學(xué)生成績")m=m+rn=n+1LoopUntilr=-1Print"學(xué)生平均成績="(m+1)/(n-1)EndSub4-11PrivateSubForm_click()DimaAsIntegerDimsAsIntegera=1Dos=s+(-1)(a+1)*aa=a+1LoopUntila>100Print"1-2+3-4+5-6+99-100="sEndSub4-12PrivateSubForm_Click()DimnAsIntegerDimmAsIntegerDimsAsIntegerm%=InputBox("請輸入正整數(shù)m(m>=1)","階乘")n%=InputBox("請輸入正整數(shù)n(n>=m)","階乘")Form=mTont=1Fori=1Tomt=t*iNextis=s+tNextmPrint"m!+(m+1)!+n!="sEndSub4-13PrivateSubForm_click()Dima%Dimb%Dimc%Fora=1To20Forb=1To20Forc=1To20Ifa*a+b*b=c*cThenPrinta,b,cEndIfNextcNextbNextaEndSub4-14PrivateSubForm_click()Forn=1To500Fori=1Ton-1IfnModi=0Thens=s+iNextiIfs=nThenPrinti;s=0NextnPrintEndSub4-15PrivateSubForm_click()DimiAsIntegerDimnAsLongn=1t=1DoWhilet>0.00001e=e+ti=i+1n=n*it=1/nLoopPrint"e的近似值是"eEndSub51Private Sub Form_Click()Dim i%, x(1 To 5) As StringFor i = LBound(x) To UBound(x)x(i) = InputBox(" x ( " & i & " ) ")Next iFor i = UBound(x) To LBound(x) Step -1Print x(i)Next iPrintEnd Sub5-2PrivateSubForm_Click()Dimi%,ss=Array(1,2,3,4,5,6,7,8,9,10)Fori=0To9Ifs(i)Mod3=0ThenPrints(i);iElsePrint""EndIfNextiPrintEndSub5-3OptionBase1PrivateSubCommand1_Click()Dimx()x=Array(1,2,3,4,5,6,7,8,9,10)t=x(1)Fori=1To9x(i)=x(i+1)Printx(i);Nextx(10)=tPrintx(i)EndSubPrivateSubCommand2_Click()Dimx()x=Array(1,2,3,4,5,6,7,8,9,10)t=x(10)Fori=9To1Step-1x(i+1)=x(i)Nextix(1)=tFori=1To10Printx(i);NextiEndSub5-4PrivateSubForm_Click()Dima(5,5)Fori=1To5Sum=0Forj=1To5a(i,j)=Int(Rnd*51+10)Sum=Sum+a(i,j)Printa(i,j);NextjPrintSumNextiPrintFori=1To5Forj=1To5Ifi=jThenPrinta(i,j);NextjNextiPrintEndSub5-5PrivateSubForm_Click()Dima()AsIntegerDimMaxAsInteger,iMaxAsInteger,jMaxAsIntegerDimMinAsInteger,iMinAsInteger,jMinAsIntegerM=InputBox("輸入M")N=InputBox("輸入N")ReDima(M,N)Fori=1ToMForj=1ToNa(i,j)=Int(Rnd*900)+100NextjNextiFori=1ToMForj=1ToNPrinta(i,j);NextjPrintNextiMax=a(1,1):Min=a(1,1)Fori=1ToMForj=1ToNIfa(i,j)>MaxThenMax=a(i,j):iMax=i:jMax=jfa(i,j)<MinThenMin=a(i,j):iMin=i:jMin=jNextjNextiPrint"Max="Max,"iMax="iMax,"jMax="jMaxPrint"Min="Min,"iMin="iMin,"jMin="jMinEraseaEndSub5-6PrivateSubForm_Click()n=InputBox("n")ReDima(n,n)Fori=1TonForj=1TonIfi=jThena(i,j)=1Elsea(i,j)=0EndIfNextjNextiFori=1TonForj=1TonPrinta(i,j);NextjPrintNextiEraseaEndSub5-7PrivateSubForm_Click()DimxAsVariantx=Array(1,2,3,4,5,6,7,8,9,10)Fori=1To10Printx(i);NextiPrintFori=1To7x(i)=x(i+3)Printx(i);NextiPrintReDimPreservex(i)x=Array(1,2,3,4,5,6,7)ori=1To7Printx(i);NextiPrintEndSub5-8OptionBase1PrivateSubCommand1_Click(IndexAsInteger)SelectCaseIndexCase1Text3=Val(Text1)+Val(Text2)Case2Text3=Text1-Text2Case3Text3=Text1*Text2Case4Text3=Text1/Text2EndSelectEndSub6-1PrivateSubForm_click()DimxAsSingleDimyAsSingleDimzAsSinglex=InputBox("請輸入圓柱體的半徑")y=InputBox("請輸入圓柱體的高度")volumex,y,zPrint"圓柱體的體積為"zEndSub6-2窗體模塊PrivateSubForm_click()Dima!,b!,c!a=InputBox("請輸入圓柱體的半徑")b=InputBox("請輸入圓柱體的高度")c=volume(a,b)Print"圓柱體的體積為"cEndSub標(biāo)準(zhǔn)模塊Functionvolume(rAsSingle,hAsSingle)AsSinglevolume=3.14*r*r*hEndFunction6-3PrivateSubForm_Click()Dimy%y=InputBox("請輸入一個(gè)整數(shù)")Callweek(y)EndSub6-4窗體模塊PrivateSubForm_click()DimaAsInteger,bAsStringa=InputBox("請輸入一個(gè)整數(shù)")b=week(a)Printb標(biāo)準(zhǔn)模塊Functionweek(sAsInteger)AsStringSelectCasesCase0week="星期日"Case1week="星期一"Case2week="星期二"Case3week="星期三"Case4week="星期四"Case5week="星期五"Case6week="星期六"CaseElseMsgBox"數(shù)據(jù)無效"EndSelectEndFunction6-5窗體模塊PrivateSubForm_click()DimnAsSingle,wAsStringn=InputBox("請輸入一個(gè)正整數(shù)")SelectCasewCasejudge=0Print"此數(shù)為偶數(shù)"CaseElsePrint"此數(shù)為奇數(shù)"PrintwEndSelectEndSub標(biāo)準(zhǔn)模塊Functionw(nAsSingle)AsStringw=n2SelectCasewCasew=0Print"此數(shù)為偶數(shù)"CaseElsePrint"此數(shù)為奇數(shù)"EndFunction6-7SublenUL(ByValsAsString,U%,L%)DimiAsIntegerFori=1ToLen(s)SelectCaseMid(s,i,1)Case"A"To"Z"U=U+1Case"a"To"z"L=L+1EndSelectNextiEndSubPrivateSubCommand1_Click()DimU%,L%CalllenUL(Text1,U,L)Text2=UText3=LEndSubPrivateSubCommand2_Click()Text1=""Text2=""Text3=""Text1.SetFocusEndSub7-1PrivateSubCommand1_Click()Image1.Picture=LoadPicture("c:圖片picture5.JPG")EndSubPrivateSubCommand2_Click()Image1.Picture=LoadPicture("c:圖片picture3.JPG")EndSubPrivateSubCommand3_Click()Image1.Picture=LoadPicture("c:圖片picture4.JPG")EndSub7-2PrivateSubCommand1_Click()StaticaAsIntegera=a+1IfaMod2<>0ThenImage1.Picture=LoadPicture("c:圖片p2.JPG")Image2.Picture=LoadPicture("c:圖片p1.JPG")ElseImage1.Picture=LoadPicture("c:圖片p1.JPG")Image2.Picture=LoadPicture("c:圖片p2.JPG")EndIfEndSubPrivateSubForm_Load()Image1.Picture=LoadPicture("c:圖片p1.JPG")Image2.Picture=LoadPicture("c:圖片p2.JPG")EndSub7-3PrivateSubTimer1_Timer()Form1.Picture=Image3.PictureImage3.Picture=Image2.PictureImage2.Picture=Image1.PictureImage1.Picture=Form1.PictureEndSub7-4PrivateSubForm_Load()Timer1.Enabled=FalseEndSubPrivateSubTimer1_Timer()IfImage2.Top>=-Image2.HeightThenImage2.Top=Image2.Top-100ElseImage2.Top=-Image2.HeightEndIfEndSub7-5PrivateSubForm_Load()HScroll1.Min=0HScroll1.Max=Image1.WidthImage1.Width=0EndSubPrivateSubHScroll1_Scroll()Image1.Width=HScroll1Label1="當(dāng)前圖片寬度："&HScroll1.ValueEndSub7-6PrivateSubCommand1_Click()Fori=ProgressBar1.MinToProgressBar1.MaxProgressBar1.Value=i(Forj=1To20000Nextj)（延時(shí)）NextiEndSub7-7PrivateSubCommand1_Click()a=IIf(Option1,"男","女")b=IIf(Option3,"碩士","博士")c=IIf(Check1,"音樂","")d=IIf(Check2,"演講","")e=IIf(Check3,"體育","")f=IIf(Check4,"集郵","")Text2="姓名:"&Text1.Text&","&"性別:"&a&","&"學(xué)歷:"&b&","&"特長:"&c&","&d&","&e&","&fEndSubPrivateSubCommand2_Click()Text1=""Text2=""Text1.SetFocusEndSub7-8PrivateSubForm_Load()Combo1.AddItem"河南省"Combo1.AddItem"開封市"Combo1.AddItem"河南大學(xué)"Combo1.AddItem"金明校區(qū)"Combo1.AddItem"環(huán)境與規(guī)劃學(xué)院"Combo1.AddItem"09級"Combo1.AddItem"地理科學(xué)專業(yè)"Combo1.AddItem"劉彬"Combo1.AddItem"畢業(yè)于"Combo1.AddItem"湖南省"Combo1.AddItem"衡山縣"Combo1.AddItem"第二中學(xué)"Combo1.AddItem"218班"EndSubPrivateSubCombo1_Click()List1.AddItemCombo1.TextEndSubPrivateSubList1_DblClick()List1.RemoveItemList1.ListIndexEndSub8-1DimxAsSingle,yAsSinglePrivateSubPt1_Click()Pt1.Scale(0,100)-(100,0)Pt1.DrawWidth=2Forx=0To100Step0.02Pt1.PSet(x,2),vbRedNextxFory=0To100Step0.02Pt1.PSet(2,y),vbRedNextyPt1.CurrentX=2Pt1.CurrentY=5Pt1.Print"(0,0)"EndSub8-2PrivateSubP1_Click()P1.Scale(0,100)-(100,0)P1.FillStyle=7P1.DrawWidth=5P1.FillColor=vbGreenP1.Line(10,90)-(90,10),vbRed,BEndSub8-3PrivateSubForm_click()Scale(-100,100)-(100,-100)Line(-100,0)-(100,0)Line(0,-100)-(0,100)CurrentX=2CurrentY=6Print"(0,0)"EndSub8-4PrivateSubForm_click()Scale(-100,100)-(100,-100)Line(-100,0)-(100,0)Line(0,-100)-(0,100)Forx=-100To100Step0.02y=10*Sin(x)-10*Cos(2*x)PSet(x,y),vbRedNextxEndSub8-7PrivateSubForm_Click()Timer1.Enabled=TrueEndSubPrivateSubTimer1_Timer()RandomizeScale(-120,120)-(120,-120)DrawWidth=2Ifr<100Thenr=r+2Forr=0To100Circle(0,0),r,RGB(255*Rnd,255*Rnd,255*Rnd)NextrEndIfEndSub9-1PrivateSubText1_KeyPress(KAsInteger)K=K+3EndSub9-2PrivateSubText1_KeyPress(KAsInteger)SelectCaseKCase48To57K=KCaseElseK=0EndSelectEndSub9-6PrivateSubCommand1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)MousePointer=5EndSubPrivateSubText1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)MousePointer=11EndSubPrivateSubPicture1_Click()MouseIcon=Picture1.MouseIconPicture1.MouseIcon=Image1.MouseIconImage1.MouseIcon=Form1.MouseIconEndSub9-7SubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfShift=vbCtrlMaskAndButton=vbLeftButtonThenPrint"Ctrl+左鍵+移動(dòng)"IfShift=vbAltMaskAndButton=vbRightButtonThenPrint"Alt+右鍵+移動(dòng)"EndSubSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)ClsEndSub9-8SubPicture1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=vbLeftButtonThenPicture1.PrintStr(X)+","+Str(Y)BackColor=RGB(Rnd*256,Rnd*256,Rnd*256)EndSub10-1PrivateSubCommand1_Click()Open"d:data1.txt"ForOutputAs#1Write#1,"601","楊大昌""4550"Write#1,"603","李文圣""3886"Write#1,"605","張燕""2235"Close#1EndSubPrivateSubCommand2_Click()Open"d:data1.txt"ForInputAs#2DoWhileNotEOF(2)Input#2,X1,X2,x3PrintX1,X2,x3LoopCloseEndSub10-2PrivateSubCommand1_Click()Open"d:data1.txt"ForAppendAs#3Write#3,Text1,Text2,Text3Text1=""Text2=""Text3=""CloseEndSubPrivateSubCommand2_Click()CloseEndEndSub10-5PrivateSubForm_Click()DimsumAsLongForn=1To100Step2sum=sum+nNextnPrintsumEndSubPrivateSubForm_Load()Open"d:data5.txt"ForOutputAs#1Forn=1To100Step1Print#1,n;NextnCloseEndSub10-6PrivateSubForm_Click()DimsumAsIntegerForn=10To100Step10sum=sum+nNextPrintsumEndSubPrivateSubForm_Load()Open"d:data6.dat"ForRandomAs#1Forn=1To100Put#1,nNextEndSub11-1PrivateSubCommand1_Click()CommonDialog1.Action=3Text1.BackColor=CommonDialog1.ColorEndSubPrivateSubCommand2_Click()CommonDialog1.Flags=263CommonDialog1.Action=4Text1.FontSize=CommonDialog1.FontSizeText1.FontName=CommonDialog1.FontNameText1.FontBold=CommonDialog1.FontBoldText1.FontStrikethru=CommonDialog1.FontStrikethruText1.ForeColor=CommonDialog1.ColorText1.FontUnderline=CommonDialog1.FontUnderlineEndSubPrivateSubCommand3_Click()CommonDialog1.Action=2EndSub11-2PrivateSubCommand1_Click()CD1.InitDir="C:DocumentsandSettingsAdministrator桌面"CD1.Filter="圖片|*.jpg|文本文件|*.txt"CD1.ShowOpenIfCD1.FilterIndex=1ThenImage1.Picture=LoadPicture(CD1.FileName)ElseOpenCD1.FileNameForInputAs#1DoWhileNotEOF(1)LineInput#1,nText1=Text1+n+vbNewLineLoopEndIfEndSub113Private Sub Form_Load()Text1.Text = "河南大學(xué)首頁"Text1.FontName = "黑體"Text1.FontSize = 20End SubPrivate Sub Form_Resize()Text1.Left = 50Text1.Top = 50Text1.Width = Width - 500Text1.Height = Height - 1000End SubPrivate Sub mnublue_Click()Text1.ForeColor = vbBlueEnd SubPrivate Sub mnuclear_Click()Text1.Text = ""End SubPrivate Sub mnugreen_Click()Text1.ForeColor = vbGreenEnd SubPrivate Sub mnured_Click()Text1.ForeColor = vbRedEnd Sub11-4PrivateSubForm_Resize()Text1.Left=50Text1.Top=50Text1.Width=Width-2000Text1.Height=Height-5000EndSubPrivateSubmnuName_Click(IndexAsInteger)SelectCaseIndexCase5Text1.FontName="宋體"Case10Text1.FontName="黑體"Case15Text1.FontName="隸書"EndSelectEndSub11-5Private Sub mnuinput_Click()Dim a As Integera = InputBox("輸入整數(shù)")If a < 0 Then MsgBox ("輸入無效")Label4.Caption = aEnd SubPrivate Sub mnuoct_Click()Dim a As Integera = InputBox("輸入整數(shù)")If a < 0 Then MsgBox ("輸入無效")Label5.Caption = Oct(a)End SubPrivate Sub mnuhex_Click()Dim a As Integera = InputBox("輸入整數(shù)")If a < 0 Then MsgBox ("輸入無效")Label6.Caption = Hex(a)End Sub11-6PrivateSubForm_Load()Text1.Width=WidthText1.Height