大一計算機課后習(xí)題答案

3.4PrivateSubCommand1_Click()Image1.Width=Image1.Width*1.2Image1.Height=Image1.Height*1.2EndSubPrivateSubCommand2_Click()Image1.Width=Image1.Width/1.2Image1.Height=Image1.Height/1.2EndSubPrivateSubCommand3_Click()Image1.Width=Form1.WidthImage1.Height=Form1.HeightEndSubPrivateSubForm_Load()Image1.Left=0Image1.Top=0Image1.Picture=LoadPicture(App.Path&"\back.jpg")EndSub3.5DimmleftAsLongPrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubPrivateSubTimer1_Timer()mleft=Label1.Left+100Ifmleft+Label1.Width>Picture1.WidthThenmleft=0EndIfLabel1.Left=mleftEndSub4.1PrivateSubForm_Load()Form1.ShowSum=0Fori=1To4a=InputBox("請輸入數(shù)值型數(shù)據(jù)")Sum=Sum+aave=Sum/4NextPrintSum;aveEndSub4.3PrivateSubCommand1_Click()a=5b=2.5c=7.8pi=3.14159265y=pi*a*b/a+b*cPrintyEndSub4.4PrivateSubCommand1_Click()a=Val(Text1.Text)tian=a\86399xiaoshi=(a-tian*86400)\1439fenzhong=(a-tian*86400-xiaoshi*1440)\59miao=a-tian*86400-xiaoshi*1440-fenzhong*60Text2.Text=tian&"天"&xiaoshi&"小時"&fenzhong&"分鐘"&miao&"秒"EndSub4.5PrivateSubCommand1_Click()ConstgAsSingle=9.81t=InputBox("請輸入t的值")v0=InputBox("請輸入v0的值")s=1/2*g*t*t+v0*tPrintFormat(s,"0.##")EndSub4.6PrivateSubCommand1_Click()Sum=0Fori=2To100Step2Sum=Sum+iNextLabel1.FontSize=20Label1.Caption="2+4+6+……+100="&SumEndSub4.7PrivateSubCommand1_Click()Doa=InputBox("請輸入三角形的第一條邊長")a1=Val(a)Ifa1=-1ThenEndEndIfb=InputBox("請輸入三角形的第二條邊長")b1=Val(b)Ifb1=-1ThenEndEndIfc=InputBox("請輸入三角形的第三條邊長")c1=Val(c)Ifc1=-1ThenEndEndIfIf(a1+b1>c1)And(a1+c1>b1)And(b1+c1>a1)Thens=a1+b1+c1ExitDoElseError1=MsgBox("您輸入的數(shù)據(jù)不能構(gòu)成三角形")EndIfLoopLabel4.Caption="您輸入的邊長分別為："&a1&","&b1&","&c1&""&"面積為："&sEndSub4.8PrivateSubCommand1_Click()IfText1.Text<>""Thena=Text1.TextSelectCaseaCaseIs<=200s=0CaseIs<=400s=(a-200)*0.03CaseIs<5000s=200*0.03+(a-400)*0.04CaseIs>=5000s=(400-200)*0.03+(5000-400)*0.04+(a-5000)*0.05EndSelectText2.Text=sElseerror1=MsgBox("請輸入您的收入！")EndIfEndSubPrivateSubForm_Load()Text2.Locked=TrueEndSubPrivateSubText1_Change()IfNotIsNumeric(Text1.Text)Thenerror1=MsgBox("請輸入數(shù)字")EndIfEndSub4.9PrivateSubText1_Change()a=Text1.TextSelectCaseaCase0Label2.Caption="休息"Text1.SelStart=0Text1.SelLength=1Case1,3Label2.Caption="講計算機課"Text1.SelStart=0Text1.SelLength=1Case2,4Label2.Caption="講程序設(shè)計課"Text1.SelStart=0Text1.SelLength=1Case5Label2.Caption="進修英語"Text1.SelStart=0Text1.SelLength=1Case6Label2.Caption="政治學(xué)習(xí)"Text1.SelStart=0Text1.SelLength=1CaseElseError1=MsgBox("您確認退出程序？",52,"確認")IfError1=6ThenEndElseText1.SelStart=0Text1.SelLength=1EndIfEndSelectEndSub4.10PrivateSubCommand1_Click()Fori=1To9PrintTab(30-3*i);Forj=1ToiPrintj;NextjFork=i-1To1Step-1Printk;NextkPrintNextiEndSub4.11PrivateSubCommand1_Click()Fori=1To30Forj=iTo30Fork=jTo30Ifi*i+j*j=k*kThenPrintTab(10);i,Tab(23);j,Tab(36);kEndIfNextk,j,iEndSub4.12PrivateSubForm_Click()DimmAsInteger,nAsIntegerm=CInt(Val(InputBox("請輸入計算范圍的初值")))n=CInt(Val(InputBox("請輸入計算范圍的終值")))Fori=mTons=0Forj=1Toi-1IfiModj=0Thens=s+jEndIfNextjIfs=iThenPrintiNextiEndSub4.13PrivateSubForm_Click()DimaAsString,cAsStringDimbAsIntegera=InputBox("請輸入學(xué)生姓名")b=InputBox("請輸入學(xué)生成績")SelectCasebCaseIs<=39c="Fail"CaseIs<=49c="Poor"CaseIs<=59c="Fair"CaseIs<=79c="Good"CaseElsec="VeryGood"EndSelectPrint"姓名："&aPrint"成績："&bPrint"評語："&cEndSub4.14PrivateSubCommand1_Click()DimaAsIntegera=Val(Text1.Text)Ifa<10Ora>99Thenerror1=MsgBox("您輸入的不是兩位正整數(shù)，請重新輸入")ElseFori=10To99a1=a\10+(aMod10)*10i1=i\10+(iMod10)*10If(a+i=a1+i1)And(a1>9)And(i1>9)ThenLabel2.Caption=Label2.Caption&Chr(13)&a&"+"&i&"="&a1&"+"&i1Form1.Height=Label2.Height+Label2.Top+1000EndIfNextEndIfEndSub4.15Dima,b,sAsDoubleDimflag,comAsIntegerPrivateSubCommand1_Click()Ifflag=0ThenText1.Text=Text1.Text&Command1.Captiona=Val(Text1.Text)ElseText1.Text=""flag=0Text1.Text=Text1.Text&Command1.Captiona=Val(Text1.Text)EndIfEndSubPrivateSubCommand2_Click()Ifflag=0ThenText1.Text=Text1.Text&Command2.Captiona=Val(Text1.Text)ElseText1.Text=""flag=0Text1.Text=Text1.Text&Command2.Captiona=Val(Text1.Text)EndIfEndSubPrivateSubCommand3_Click()Ifflag=0ThenText1.Text=Text1.Text&Command3.Captiona=Val(Text1.Text)ElseText1.Text=""flag=0Text1.Text=Text1.Text&Command3.Captiona=Val(Text1.Text)EndIfEndSubPrivateSubCommand4_Click()Ifflag=0ThenText1.Text=Text1.Text&Command4.Captiona=Val(Text1.Text)ElseText1.Text=""flag=0Text1.Text=Text1.Text&Command4.Captiona=Val(Text1.Text)EndIfEndSubPrivateSubCommand5_Click()Ifflag=0ThenText1.Text=Text1.Text&Command5.Captiona=Val(Text1.Text)ElseText1.Text=""flag=0Text1.Text=Text1.Text&Command5.Captiona=Val(Text1.Text)EndIfEndSubPrivateSubCommand6_Click()Ifflag=0ThenText1.Text=Text1.Text&Command6.Captiona=Val(Text1.Text)ElseText1.Text=""flag=0Text1.Text=Text1.Text&Command6.Captiona=Val(Text1.Text)EndIfEndSubPrivateSubCommand7_Click()Ifflag=0ThenText1.Text=Text1.Text&Command7.Captiona=Val(Text1.Text)ElseText1.Text=""flag=0Text1.Text=Text1.Text&Command7.Captiona=Val(Text1.Text)EndIfEndSubPrivateSubCommand8_Click()Ifflag=0ThenText1.Text=Text1.Text&Command8.Captiona=Val(Text1.Text)ElseText1.Text=""flag=0Text1.Text=Text1.Text&Command8.Captiona=Val(Text1.Text)EndIfEndSubPrivateSubCommand9_Click()Ifflag=0ThenText1.Text=Text1.Text&Command9.Captiona=Val(Text1.Text)ElseText1.Text=""flag=0Text1.Text=Text1.Text&Command9.Captiona=Val(Text1.Text)EndIfEndSubPrivateSubCommand10_Click()Ifflag=0ThenText1.Text=Text1.Text&Command10.Captiona=Val(Text1.Text)ElseText1.Text=""flag=0Text1.Text=Text1.Text&Command10.Captiona=Val(Text1.Text)EndIfEndSubPrivateSubCommand11_Click()Ifflag=0ThenText1.Text=Text1.Text&Command11.Captiona=Val(Text1.Text)ElseText1.Text=""flag=0Text1.Text=Text1.Text&Command11.Captiona=Val(Text1.Text)EndIfEndSubPrivateSubCommand12_Click()SelectCasecomCase1a=b+aText1.Text=aflag=1Case2a=b-aText1.Text=aflag=1Case3a=b*aText1.Text=aflag=1Case4a=b/aText1.Text=aflag=1EndSelectEndSubPrivateSubCommand13_Click()b=aflag=1com=1EndSubPrivateSubCommand14_Click()b=aflag=1com=2EndSubPrivateSubCommand15_Click()b=aflag=1com=3EndSubPrivateSubCommand16_Click()b=aflag=1com=4EndSub5.1PrivateSubForm_Click()Dima(1To20)Fori=1To20a(i)=InputBox("請輸入第"&i&"個元素")NextiFori=1To20Printa(i);"";NextiPrintFori=1To10t=a(i)a(i)=a(21-i)a(21-i)=tNextiFori=1To20Printa(i),NextiEndSub5.2PrivateSubForm_Click()Dima(1To10,1To10)Fori=1To10Forj=1To10Ifi=jThena(i,j)=1ElseIfi+j=11Thena(i,j)=1Elsea(i,j)=0EndIfNextjNextiFori=1To10Forj=1To10Printa(i,j);NextjPrintNextiEndSub5.3PrivateSubForm_Click()Dima()AsIntegern=InputBox("請輸入n")m=InputBox("請輸入m")Print"數(shù)組為"&n&"行"&m&"列"ReDima(n,m)Fori=1TonForj=1Toma(i,j)=InputBox("請輸入第"&i&"行"&j&"列")NextjNextiFori=1TonForj=1TomPrinta(i,j);NextjPrintNextis=0Fori=1TonForj=1Toms=s+a(i,j)NextjNextiv=s/(n*m)Print"平均值為："&vFori=1TonForj=1TomIfa(i,j)>vThenPrint"元素："&a(i,j)&"行號："&i&"列號："&jEndIfNextjNextiEndSub5.4PrivateSubForm_Click()Dima(1To50,1To4)AsIntegerFori=1To50Forj=1To4a(i,j)=Int(Rnd*90+10)NextjNexti'顯示滿足條件的行Fori=1To50Forj=1To4Ifa(i,j)>90ThenFork=1To4Printa(i,k)&"";NextkPrintExitForEndIfNextjNexti'顯示完整數(shù)組Fori=1To50Forj=1To4Printa(i,j)&"";NextjPrintNextiEndSub5.5PrivateSubForm_Click()DimnAsInteger,mAsIntegerDima()AsIntegern=InputBox("請輸入行數(shù)n")m=InputBox("請輸入列數(shù)m")ReDima(1Ton,1Tom)Fori=1TonForj=1Toma(i,j)=InputBox("請輸入第"&i&"行"&j&"列的元素")NextjNextiFori=1TonForj=1TomPrintFormat(a(i,j),"000")&"";NextjPrintNextian_num=0Fori=1Tonhmax=a(i,1)lhao=1Forj=1TomIfa(i,j)>hmaxThenhmax=a(i,j)lhao=jEndIfNextjlmin=a(i,lhao)Fork=1TonIfa(k,lhao)<lminThenlmin=a(k,lhao)EndIfNextkIflmin=hmaxThenPrint"鞍點為："&i&"行"&lhao&"列"an_num=an_num+1EndIfNextiIfan_num=0ThenPrint"無鞍點"EndSub5.6PrivateSubForm_Click()Dima(1To3,1To3)AsIntegerDimb(1To3,1To3)AsIntegerDimc(1To3,1To3)AsIntegerFori=1To3Forj=1To3a(i,j)=Int(Rnd*90+10)b(i,j)=Int(Rnd*90+10)NextjNextiPrint"數(shù)組A:"Fori=1To3Forj=1To3Printa(i,j)&"";NextjPrintNextiPrint"數(shù)組B:"Fori=1To3Forj=1To3Printb(i,j)&"";NextjPrintNextiFori=1To3Forj=1To3c(i,j)=a(i,j)+b(i,j)NextjNextiPrint"數(shù)組C:"Fori=1To3Forj=1To3Printc(i,j)&"";NextjPrintNextiEndSub5.7PrivateSubForm_Click()Dima(1To10,1To3)DimsAsInteger,avAsIntegerFori=1To10a(i,1)=InputBox("請輸入第"&i&"個學(xué)生的姓名")a(i,2)=InputBox("請輸入第"&i&"個學(xué)生的學(xué)號")a(i,3)=InputBox("請輸入第"&i&"個學(xué)生的成績")NextiPrint"原始數(shù)據(jù)為:"Print"姓名","學(xué)號","成績"Fori=1To10Forj=1To3Printa(i,j),NextjPrintNextis=0Fori=1To10s=s+a(i,3)Nextiav=s/10Print"平均成績?yōu)?"&avPrint"姓名","學(xué)號","成績","獎金等級"Fori=1To10Ifa(i,3)>av*1.1ThenPrinta(i,1),a(i,2),a(i,3),"一等獎"ElseIfa(i,3)>av*1.05ThenPrinta(i,1),a(i,2),a(i,3),"二等獎"EndIfNextiEndSub5.8PrivateSubForm_Click()Dima(1To10,1To4)Fori=1To10a(i,1)=InputBox("請輸入第"&i&"個學(xué)生的姓名")a(i,2)=Val(InputBox("請輸入第"&i&"個學(xué)生的語文成績"))a(i,3)=Val(InputBox("請輸入第"&i&"個學(xué)生的數(shù)學(xué)成績"))a(i,4)=(a(i,2)+a(i,3))/2NextiPrint"姓名","語文","數(shù)學(xué)","平均分"Fori=1To10Forj=1To4Printa(i,j),NextjPrintNextiFori=10To2Step-1Forj=1Toi-1Ifa(j,4)<a(j+1,4)Thent=a(j,1)a(j,1)=a(j+1,1)a(j+1,1)=tt=a(j,2)a(j,2)=a(j+1,2)a(j+1,2)=tt=a(j,3)a(j,3)=a(j+1,3)a(j+1,3)=tt=a(j,4)a(j,4)=a(j+1,4)a(j+1,4)=tEndIfNextjNextiPrint"姓名","語文","數(shù)學(xué)","平均分"Fori=1To10Forj=1To4Printa(i,j),NextjPrintNextiEndSub5.9PrivateSubForm_Click()Dima,b,c(0To5)AsIntegera=Array(2,8,7,6,4,28,70,25)b=Array(79,27,32,41,57,66)Print"A數(shù)組的內(nèi)容:"ForEachxInaPrintx,NextxPrintPrint"B數(shù)組的內(nèi)容:"ForEachxInbPrintx,NextxPrintPrint"C數(shù)組的內(nèi)容:"Fori=0To5c(i)=a(i)+b(i)Printc(i),NextiEndSub5.10PrivateSubForm_Click()Dima(1To4,1To4)AsIntegerFori=1To4Forj=1To4a(i,j)=InputBox("請輸入第"&i&"行第"&j&"列的元素")NextjNextiPrint"原始數(shù)組:"Fori=1To4Forj=1To4Printa(i,j),NextjPrintNextiPrint"主對角線:"Fori=1To4Printa(i,i),NextiPrintPrint"另一條對角線:"Fori=1To4Printa(i,5-i),NextiPrintFori=1To4s=0Forj=1To4s=s+a(i,j)NextjPrint"第"&i&"行的和為:"&sNextiFori=1To4s=0Forj=1To4s=s+a(j,i)NextjPrint"第"&i&"列的和為:"&sNextiFori=1To4t=a(1,i)a(1,i)=a(3,i)a(3,i)=tNextiFori=1To4t=a(i,2)a(i,2)=a(i,4)a(i,4)=tNextiPrint"成果數(shù)組:"Fori=1To4Forj=1To4Printa(i,j),NextjPrintNextiEndSub5.11PrivateSubForm_Click()Dima()DimnAsIntegern=InputBox("請輸入人數(shù)N")ReDima(1Ton,1To5)Fori=1Tona(i,1)=InputBox("請輸入第"&i&"個人的姓名")a(i,2)=InputBox("請輸入第"&i&"個人的性別")a(i,3)=InputBox("請輸入第"&i&"個人的年齡")a(i,4)=InputBox("請輸入第"&i&"個人的文化程度")a(i,5)=InputBox("請輸入第"&i&"個人的籍貫")NextiPrint"原始數(shù)據(jù):"Print"姓名","性別","年齡","文化程度","籍貫"Fori=1TonForj=1To5Printa(i,j),NextjPrintNextiPrint"查找的成果:"x=6DoWhilex=6sn=InputBox("請輸入要查找的人的姓名")Fori=1TonIfsn=a(i,1)ThenForj=1To5Printa(i,j),NextjPrintExitForEndIfNextiIfi>nThenPrint"沒有找到該人"x=MsgBox("你與否還要繼續(xù)查找??",vbInformation+vbYesNo,"提問")LoopEndSub5.12PrivateSubForm_Click()Dima(1To10,1To2)Fori=1To10a(i,1)=CStr(InputBox("請輸入運動員號"))a(i,2)=Val(InputBox("請輸入成績"))NextiPrint"原始的次序"Print"運動員號","成績"Fori=1To10Forj=1To2Printa(i,j),NextjPrintNextiFori=10To2Step-1Forj=1Toi-1Ifa(j,2)>a(j+1,2)Thent=a(j,2)a(j,2)=a(j+1,2)a(j+1,2)=tt=a(j,1)a(j,1)=a(j+1,1)a(j+1,1)=tEndIfNextjNextiPrint"排列的次序"Print"名次","運動員號","成績"Fori=1To10Printi,Forj=1To2Printa(i,j),NextjPrintNextiEndSub5.13PrivateSubForm_Click()Dima(11,11)Fori=1To11a(i,1)=1a(i,i)=1NextiFori=3To11Forj=2To10a(i,j)=a(i-1,j-1)+a(i-1,j)NextjNextiFori=1To11Forj=1ToiPrintFormat(a(i,j)),NextjPrintNextiEndSub6.4PrivateSubForm_Click()DimiAs