大學(xué)計(jì)算機(jī)VB程序設(shè)計(jì)教程課后答案-

第1章概述二.選擇題:1.C2.B.3.C.4.C.5.A6.C7.D8.B9.B10.B三.填空題:1.面向?qū)ο?事件驅(qū)動(dòng)2.編譯,解釋3.設(shè)計(jì),運(yùn)行,中斷4.F55.調(diào)試6.切換文件夾四.編程及上機(jī)調(diào)試:1.略2.SubForm_Click(Label1.Caption=“你單擊了窗體”EndSubSubForm_DblClick(Label1.Caption=“你雙擊了窗體”EndSub第2章面向?qū)ο缶幊袒A(chǔ)二.選擇題:1.C2.C.3.B.4.B.5.D6.D7.B8.B9.C10.D11.B12.B13.B14.C15.A16.B17.B18.B19.C20.B三.填空題:1.窗體,控件2.屬性,事件,方法3.command2_click4.picture5.中部,代碼四.編程及上機(jī)調(diào)試:1.PrivateSubCommand1_Click(Form1.WindowState=2EndSubPrivateSubCommand2_Click(Form1.WindowState=0PrivateSubCommand3_Click(Form1.WindowState=1EndSub2.PrivateSubCommand1_Click(Form1.Picture=LoadPicture("d:\picture\flower.wmf"Command1.Visible=FalseCommand2.Visible=FalseEndSubPrivateSubCommand2_Click(EndEndSubPrivateSubForm_DblClick(Form1.Picture=LoadPicture(""Command1.Visible=TrueCommand2.Visible=TrueEndSub第3章常用標(biāo)準(zhǔn)控件二.選擇題:1.C2.B3.C.4.D5.B6.B7.A8.C9.B10.C三.編程及上機(jī)調(diào)試:1.PrivateSubCheck1_Click(IfCheck1.Value=1ThenText1.FontBold=TrueElseText1.FontBold=FalseEndIfEndSubPrivateSubCheck2_Click(IfCheck2.Value=1ThenText1.FontItalic=TrueElseText1.FontItalic=FalseEndIfEndSubPrivateSubCheck3_Click(IfCheck1.Value=1ThenText1.FontUnderline=TrueElseText1.FontUnderline=FalseEndIfEndSubPrivateSubCommand1_Click(Text1.Text=""EndSub2.PrivateSubCommand1_Click(Text2.Text=List1.ListCountEndSubPrivateSubCommand2_Click(List1.AddItemText1.TextText1.Text=""EndSubPrivateSubCommand3_Click(DimiAsIntegeri=List1.ListIndexList1.RemoveItemiCommand3.Enabled=FalseText1.SetFocusText2.Text=List1.ListCountEndSubPrivateSubForm_Load(Command3.Enabled=FalseEndSubPrivateSubList1_Click(Command3.Enabled=TrueEndSub第4章VB語言基礎(chǔ)二.選擇題:1.A2.D3.D.4.A5.A6.A7.C8.D9.C10.B三.編程及上機(jī)調(diào)試:1.PrivateSubForm_Load(DimxAsInteger,sAsString,dAsIntegerRandomizex=Int(Rnd*9000+1000s=Trim(CStr(xd=Val(Right(s,1+Mid(s,3,1+Mid(s,2,1+Left(s,1ShowPrint"產(chǎn)生的數(shù);";x;"倒序數(shù)";dEndSub2.PrivateSubForm_KeyPress(KeyAsciiAsIntegerPrint"輸入字符:";Chr(KeyAscii,"ASCII碼為:";KeyAsciiEndSubPrivateSubForm_DblClick(ClsEndSub3.PrivateSubForm_Click(MsgBox"在這里顯示提示"&vbCrLf&"提示信息",2+16,"請(qǐng)確認(rèn)"EndSub或PrivateSubForm_Click(MsgBox"在這里顯示提示"+Chr(13+"提示信息",vbAbortRetryIgnore_+vbCritical,"請(qǐng)確認(rèn)"EndSub第5章程序控制結(jié)構(gòu)二.單選題1.D2.C3.C.4.D.5.B6.C7.A8.A9.D10.C11.C12.C13.B14.B四.編程及上機(jī)調(diào)試1.PrivateSubForm_Click(DimxAsInteger,yAsIntegerx=InputBox("請(qǐng)輸入一個(gè)數(shù)值"Ifx>20Theny=x^2+3*x+2ElseIfx>=10Theny=Sqr(3*x-2ElseIfx>0Theny=1/x+Abs(xEndIfPrint"x=";x,"y=";yEndSub(2SelectCase實(shí)現(xiàn):PrivateSubForm_Click(DimxAsInteger,yAsIntegerx=InputBox("請(qǐng)輸入一個(gè)數(shù)值"SelectCasexCaseIs>20y=x^2+3*x+2CaseIs>=10y=Sqr(3*x-2CaseIs>0y=1/x+Abs(xEndSelectPrint"x=";x,"y=";yEndSub2.PrivateSubForm_Click(DimaAsInteger,bAsInteger,cAsIntegerFori=100To999a=i\100b=(i-a*100\10c=iMod10Ifa^3+b^3+c^3=iThenPrinti;k=k+1IfkMod2=0ThenPrintEndIfNextiEndSub3.PrivateSubCommand1_Click(p=60:r=0.014Dop=p*(1+rn=n+1LoopUntilp>=70Printn;"年后世界人口達(dá)到";p;"億"EndSub4.PrivateSubCommand1_Click(DimsAsSingle,xAsInteger,tAsSingle,nAsIntegerx=Val(InputBox("請(qǐng)輸入x的值",,2s=1n=1m=1Don=n+1m=-mt=m*n/x^(n-1IfAbs(t<0.00001ThenExitDos=s+tLoopPrintsEndSub第6章數(shù)組二.單選題:1.A2.A.3.A4.C5.D6.D7.A8.D9.B10.B四.編程及上機(jī)調(diào)試:1.OptionBase1PrivateSubForm_Click(Dima(10AsIntegerDimiAsInteger,tAsIntegerPrint"數(shù)組的原始數(shù)據(jù)為:";Fori=1To10a(i=Int(11*Rnd+10Printa(i;NextiPrintPrint"變化后數(shù)組數(shù)據(jù)為:";Fori=1To5t=a(ia(i=a(10-i+1a(10-i+1=tNextiFori=1To10Printa(i;NextiEndSub2.OptionBase1PrivateSubForm_Click(Dima(3,4AsInteger,iAsInteger,jAsInteger,kAsInteger,pAsIntegerRandomizeFori=1To3Forj=1To4a(i,j=Int(90*Rnd+10Printa(i,j;NextjPrintNextiMax=a(1,1:k=1:p=1Fori=1To3Forj=1To4Ifa(i,j>MaxThenMax=a(i,jk=ip=jEndIfNextjNextiPrint"最大的數(shù)為第"&k&"行,第"&p&"列的數(shù):"&MaxEndSub3.OptionBase1Dima(4,5AsInteger'在窗體聲明段聲明數(shù)組DimiAsInteger,jAsIntegerPrivateSubcmdmatrix_Click('"生成數(shù)組"按鈕RandomizeFori=1To4Forj=1To5a(i,j=Int(Rnd*10'一位的隨機(jī)數(shù)Picture1.Printa(i,j;'輸出元素NextjPicture1.PrintNextiEndSubPrivateSubcmdcol_Click('"求列和"按鈕DimcolsumAsIntegertxtcol.Text=""Forj=1To5'列變量先循環(huán)colsum=0Fori=1To4colsum=colsum+a(i,jNextitxtcol.Text=txtcol.Text&Str(colsumNextjEndSubPrivateSubcmdrow_Click('"求行和"按鈕DimrowsumAsIntegertxtrow.Text=""Fori=1To4'行變量先循環(huán)rowsum=0Forj=1To5rowsum=rowsum+a(i,jNextjtxtrow.Text=txtrow.Text&CStr(rowsum&vbCrLfNextiEndSubPrivateSubcmdclear_Click('"清除"按鈕Picture1.Clstxtcol.Text=""txtrow.Text=""EndSubPrivateSubcmdexit_Click('"結(jié)束"按鈕EndEndSub4.OptionBase1PrivateSubForm_Click(Dima(AsInteger,b(AsInteger,iAsInteger,jAsInteger,xAsInteger,yAsIntegerx=InputBox("第一維上界"DoWhileNotIsNumeric(xx=Int(InputBox("第一維上界"Loopy=InputBox("第二維上界"DoWhileNotIsNumeric(xy=Int(InputBox("第二維上界"LoopReDima(x,yPrint"原數(shù)組元素為:"Fori=1ToxForj=1Toya(i,j=Int(90*Rnd+10Printa(i,j;NextjPrintNextiPrint"轉(zhuǎn)置后數(shù)組元素為:"Fori=1ToyForj=1ToxPrinta(j,i;NextjPrintNextiEndSub5.OptionBase1PrivateSubForm_Click(Dima(10,10AsInteger,iAsInteger,jAsIntegerFori=1To10Forj=1To10Ifi=jOri+j=11Thena(i,j=0Elsea(i,j=1EndIfPrinta(i,j;NextjPrintNextiEndSub6.OptionExplicitOptionBase1PrivateSubCommand1_Click(DimiAsInteger,jAsInteger,nAsInteger,kAsInteger,a(11AsIntegerj=1Fori=3To21Step2a(j=iPrinta(j;j=j+1NextiPrintn=InputBox("請(qǐng)輸入一個(gè)數(shù)"Fori=1To10Ifn=a(iThenForj=iTo10a(j=a(j+1k=k+1NextjEndIfNextiFori=1To9Printa(i;NextiEndSub7.OptionBase1PrivateSubForm_Click(DimaAsVariant,kAsInteger,iAsInteger,jAsIntegerDimbAsVariantb=Array(17,35,128,235,89,121,143,189,231,94a=Array(11.3,12.3,12#,11.8,12.6,11.6,12.8,11.8,12.4,12.1Fori=1To9'對(duì)數(shù)組a的元素排序k=iForj=i+1To10Ifa(k>a(jThenk=jNextjIfk<>iThen'數(shù)組b的元素隨數(shù)組a的元素一起變動(dòng)t=a(ia(i=a(ka(k=tt=b(ib(i=b(kb(k=tEndIfNextiPrint"按名字的排列順序?yàn)?"Fori=1To10IfLen(b(i=2Thenb(i="0"&b(i'補(bǔ)上數(shù)組b中長(zhǎng)度為2的編號(hào)前的"0"Print"第"&i&"名的號(hào)碼為:"&b(i&",成績(jī)?yōu)?"&a(iNextiEndSub第7章過程二、單選題1.C2.D3.C4.D5.B6.A7.B8.B9.C10.D11.C12.D13.B14.B15.C三、填空題1.52512.4118353.135四.編程及上機(jī)調(diào)試:1.PrivateSubCommand1_Click(DimnAsIntegerForn=100To1600Step500Print"n=";n;"時(shí)π的近似值是:";pi(nNextnEndSubPrivateFunctionpi(xAsIntegerAsSingleDimsAsSingle,kAsInteger,mAsIntegers=0k=1m=1Dos=s+m/km=-mk=k+2LoopWhilek<=xpi=4*sEndFunctionPrivateSubCommand2_Click(EndEndSub2.PrivateSubCommand1_Click(DimxAsInteger,iAsIntegerx=Val(Text1Fori=1ToxIfprime(iAndprime(x-iThenLabel2=Str(x&"是"&Str(i&"和"&Str(x-i&"兩個(gè)素?cái)?shù)之和"ExitSubEndIfNextiEndSubPrivateFunctionprime(xAsIntegerAsBooleanFori=2ToInt(Sqr(xIfxModi=0Thenprime=FalseExitFunctionEndIfNextiprime=TrueEndFunctionPrivateSubCommand2_Click(EndEndSub3.OptionExplicitOptionBase1Dima(10AsIntegerPrivateSubCommand1_Click(RandomizeDimiAsIntegerFori=1To10a(i=Int(Rnd*90+10Text1=Text1+Str(a(iNextiCallsort(aFori=1To10Text2=Text2+Str(a(iNextiEndSubPrivateSubsort(a(AsIntegerDimkAsInteger,iAsInteger,jAsInteger,tAsIntegerk=UBound(aFori=1Tok-1Forj=i+1TokIfa(i<a(jThent=a(ia(i=a(ja(j=tEndIfNextjNextiEndSubPrivateSubCommand2_Click(EndEndSub4.OptionExplicitPrivateSubCommand1_Click(DimiAsInteger,jAsInteger,sAsIntegerFori=2To1000S=0Forj=1Toi-1IfImodj=0Thens=s+jNextjIfs=iThenPrintI,NextiEndSub5.Publica(10AsIntegerPublicSubsort(a(AsIntegerDimiAsInteger,jAsInteger,tAsIntegerFori=1ToUBound(a-1Forj=i+1ToUBound(aIfa(i>a(jThent=a(ia(i=a(ja(j=tEndIfNextjNextiEndSubPublicFunctionmax(a(AsIntegerAsIntegermax=a(1Fori=2ToUBound(aIfmax<a(iThenmax=a(iEndIfNextiEndFunction窗體Form1代碼PrivateSubCommand1_Click(DimiAsIntegerRandomizeFori=1ToUBound(aa(i=Int(Rnd*90+11Text1=Text1&Str(a(iNextiEndSubPrivateSubCommand2_Click(Form1.HideForm2.ShowEndSubPrivateSubCommand3_Click(Text2=max(aEndSubPrivateSubCommand4_Click(EndEndSub窗體Form2代碼PrivateSubCommand1_Click(Callsort(aFori=1ToUBound(aText1=Text1&Str(a(iNextiEndSubPrivateSubCommand2_Click(Form2.HideForm1.ShowEndSub第8章程序調(diào)試二.上機(jī)調(diào)試題1.OptionExplicitPrivateSubForm_Click(Dima(AsSingle,iAsIntegerDimyAsSinglei=1DoReDima(i…改為ReDimPreserveA(Ia(i=1/fib(iIfa(i<=0.0001ThenExitDo…改為a(i<0.0001y=y+a(ii=i+1LoopPrint"y=";yFori=1ToUBound(aPrinta(i;NextiEndSubPrivateFunctionfib(iAsIntegerAsIntegerIfi=1Thenfib=1ElseIfi=2Thenfib=2ElseFib(i=fib(i-1+fib(i-2…改為Fib=Fib(I-1+Fib(I-2EndIfEndFunction2.OptionExplicitPrivateSubCommand1_Click(DimiAsInteger,kAsInteger,stAsStringFori=10To500Ifwanshu(iThenst=CStr(iText1.Text=Text1.Text&stCalltest(stText1.Text=Text1.Text&Chr(13&Chr(10EndIfNextiEndSubPrivateFunctionwanshu(nAsIntegerAsBoolean第1章概述DimiAsInteger,sumAsIntegerFori=2Ton–1IfnModi=0Thensum=sum+iEndIfNextiIfsum=nThenwanshu=TrueEndFunctionPrivateSubtest(sAsStringDimiAsInteger,sumAsIntegersum=0DoWhileLen(s>1Fori=1ToLen(ssum=sum+Val(Mid(s,i,1NextiText1.Text=Text1.Text&"->"&Str(sums=Str(sumLoopEndSub‘改為i=1‘位置錯(cuò)，和for語句位置調(diào)換‘改為s=CStr(sum第9章數(shù)據(jù)文件一、單選題1．B2．C3．A4．B5．C6．B7．C8．B9．10．A11.12.A13.14.15.A16.B二、編程及上機(jī)調(diào)試1．PrivateSubForm_Load(