教材課后習(xí)題習(xí)題與講解(ch1-5)

附錄二教材課后習(xí)題參考答案第一章VisualBasic概述一、填空題1.3，學(xué)習(xí)版.專業(yè)版和企業(yè)版2.代碼窗口,屬性窗口3.窗口、事件和消息二、單選題1.B2.D3.B4.C5.C6.C7.C8.B9.D10.A第二章VB可視化編程基礎(chǔ)一、選擇題1-5CBABD6-10ABADD二、填空題1.屬性事件方法2.文本信息Caption3.EnabledVisible4.Form_Click()5.3*4=126.數(shù)值型三、綜合題1.控件自行添加，參考代碼如下：PrivateSubForm_Load()Label1.Caption="長"Label2.Caption="寬"Label3.Caption="長方形面積"Text1.Text=""Text2.Text=""Text3.Text=""Command1.Caption="計算"EndSub2.程序界面自行設(shè)計，無特殊要求。參考代碼如下：PrivateSubForm_Click()r=InputBox("請輸入圓的半徑：","課后題2-2")MsgBox"圓的面積為"&3.14*r*rEndSub第三章VisualBasic程序設(shè)計基礎(chǔ)一、選擇題1——5DDABC二、填空題6——10DDBDC1.352.x\10+(xMod10)*103.Instr(2,s1,s2)4.yMod4=0AndNotyMod100=0OryMod400=05.Variant三、1.300String2.123234String3.FalseBoolean4.5Long5.3Long6.91Double10.2012String7.65Double8.0.5Double9.2Double四、1.(2*Tan(A))/(1-Tan(A)^2)2.a^2+b^2-2*a*b*Cos(C)3.(-b+Sqr(b^2-4*a*c))/(2*a)4.Abs(A*x+B*y+C*z)/Sqr(A^2+B^2)Ap(1p)m4Pi2*r3五、1.(1p)m1GM2.六、參考程序如下：PrivateSubCommand1_Click()DimradAsDouble,degAsInteger,mintAsInteger,secdAsIntegerConstPi=3.1415926rad=Val(Text1.Text)*180/Pideg=Fix(rad)mint=Fix((rad-deg)*60)secd=Fix(((rad-deg)*60-mint)*60)Text2.Text=deg&"度"&mint&"分"&secd&"秒"EndSub第四章控制結(jié)構(gòu)一、選擇題1-5DCCCA6-10CBBCA11-14DBDC二、程序填空題1.【1】x<20【2】y=30-0.5*x【3】else2.【1】m=m\10【2】Is<=53.【1】Rnd*101+200【2】xmod54.【1】flag=1【2】i=i+15．【1】x>=0【2】x<Amin三、程序閱讀題3.4324.15.59106.10四、編程題1．參考代碼：PrivateSubcmdCal_Click()DimaAsSingle,bAsSingle,cAsSingleDimx1AsSingle,x2AsSingle,mAsSinglea=Val(txtA.Text)b=Val(txtB.Text)c=Val(txtC.Text)'用val()函數(shù)將文本框中的字符型數(shù)據(jù)轉(zhuǎn)換為數(shù)值類型m=b^2-4*a*cIfm<0ThenMsgBox"方程無根"Ifm=0Then'方程無根的情況'兩根相等的情況txt1.Text=Str(-b/2/a)txt2.Text=txt1.TextEndIfIfm>0Then'兩根不等的情況txt1.Text=Str((-b+Sqr(m))/2/a)'用Str（）函數(shù)將數(shù)值轉(zhuǎn)換為字符串類型txt2.Text=Str((-b-Sqr(m))/2/a)EndIfEndSub2．參考代碼：PrivateSubForm_Click()Dimsa,newsasa=Val(InputBox("inputyoursalary:"))SelectCasesaCaseIs<=2000newsa=sa*1.25CaseIs<=3000newsa=sa*1.2CaseElsenewsa=sa*1.15EndSelectMsgBox"yournewsalaryis:"&newsaEndSub3．參考代碼：DimnAsInteger,sAsLongs=1:n=0Whiles<=400000n=n+1'變量賦初值'統(tǒng)計數(shù)字個數(shù)'累乘s=s*nPrintn;s'通過本行可以看到循環(huán)過程WendPrint"S不大于400000時，最大的N值為：";n-14．參考代碼：PrivateSubForm_Click()DimAstringAsString'輸出上三角圖形Fori=1To8Astring=String(i*2-1,"A")PrintTab(20);Space(8-i);AstringNexti'輸出下三角圖形Fori=8To1Step-1Astring=String(i*2-1,"A")PrintTab(20);Space(8-i);AstringNextiEndSub5．參考代碼：PrivateSubForm_Click()fruit=1'初始，第7天的桃子數(shù)為1個Fori=7To1Step-1Print"第";i;"天的桃子數(shù)為：";fruit'打印某天的桃子數(shù)'求前一天的桃子數(shù)fruit=(fruit+1)*2NextiEndSub第五章常用控件一、選擇題1-5DCCBA6-10BBDCA11-15CCCBA二、填空題(1)Caption(2)組合框(3)容器(4)Picture1．picture=LoadPicture(“e:\tu1.jpg”)(6)Timer(7)Style(8)Interval(9)標(biāo)準(zhǔn)的坐標(biāo)系統(tǒng)用戶自(5)Scroll、Change定義坐標(biāo)系統(tǒng)(10)SetFocus（11）Option1.Value=TrueOption2.Value=True（12）List1.Text（13）=Combo1.List(i)AddItem（14）（1000）（True）（Format(Time,"h:m:sam/pm")）（15）TrueFalseMoveLeft三、編程題1.參考代碼：PrivateSubOption1_Click()Text1.FontName="黑體"EndSubPrivateSubOption2_Click()Text1.FontName="楷體_gb2312"EndSubPrivateSubOption3_Click()Text1.FontName="仿宋_gb2312"EndSubPrivateSubOption4_Click()Text1.BackColor=vbYellowEndSubPrivateSubOption5_Click()Text1.BackColor=vbGreenEndSubPrivateSubOption6_Click()Text1.BackColor=vbRedEndSub2.參考代碼：privateSubCommand1_Click()DimiAsIntegerFori=0ToList1.ListCount-1IfText1.Text=List1.List(i)ThenMsgBox"輸入內(nèi)容已存在，請重新輸入!"ExitForEndIfNextiIfi>List1.ListCount-1ThenList1.AddItemText1.TextText1.Text=""Text1.SetFocusEndSubPrivateSubCommand2_Click()DimiAsIntegeri=List1.ListIndexIfi<>-1ThenList1.RemoveItemiEndIfEndSubPrivateSubCommand3_Click()List1.ClearEndSubPrivateSubForm_Load()List1.AddItem"研發(fā)項目經(jīng)理"List1.AddItem"主管"List1.AddItem"高級程序員"List1.AddItem"程序員及測試人員"List1.AddItem"售前支撐經(jīng)理"List1.AddItem"綜合管理員"EndSub3.參考代碼：PrivateSubHScroll1_Change()Label1.BackColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value)EndSubPrivateSubHScroll2_Change()Label1.BackColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value)EndSubPrivateSubHScroll3_Change()Label1.BackColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value)EndSub4.參考代碼：PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubForm_Load()Picture1.Scale(0,0)-(500,500)Image1.Picture=LoadPicture(App.Path+"\tu1.jpg")EndSubPrivateSubTimer1_Timer()IfImage1.Left+Image1.Width<Picture1.ScaleLeft+Picture1.ScaleWidthThenCommand1.Visible=FalseImage1.Height=Image1.Height+50Image1.Width=Image1.Width+50ElseImage1.Width=20Image1.Height=20Command1.Visible=TrueEndIfEndSub5.參考代碼：PrivateSubCommand1_Click()Timer1.Enabled=TrueTimer1.Interval=100Command1.Caption="開始"EndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseCommand1.Caption="重新開始"EndSubPrivateSubForm_Load()Label1.FontSize=20Label1.ForeColor=vbBlueLabel1.FontBold=TrueEndSubPrivateSubTimer1_Timer()IfLabel1.Left+Label1.Width<Pic