教材课后习题参考答案（ch1-5）.docx
附录二教材课后习题参考答案第一章VisualBasic概述一、填空题1.3,学习版.专业版和企业版2.代码窗口,属性窗口3.窗口、事件和消息二、单选题一、选择题1-5CBABD二、填空题1.属性事件方法4. Form_Click()三、综合题1.控件自行添加,6-10ABADD1.B2.D3.B4.C5.C6.C7.C8.B9.D10.A第二章VB可视化编程基础2.文本信息Caption3.EnabledVisible参考代码如下:5.3*4=126.数值型PrivateSubForm_Load()Labell-Caption="长,Label2.Caption="宽"Label3.Caption="长方形面积”TextlText=m,Te×t2.Te×t=""Te×t3.Text=,"'Commandl-Caption=",计算”EndSub2.程序界面自行设计，无特殊要求。参考代码如下:PrivateSubForm_Click()r=InputBoM”请输入圆的半径:“课后题2-2")MsgBox”圆的面积为”&3.14*r*rEndSub第三章VisualBaSiC程序设计基础一、选择题15DDABC610DDBDC二、填空题1.352.×10+(×Mod10)*103.lnstr(2,sl,s2)4.yMod4=0AndNotyMod100=0OryMod400=05.VariantLong三、1.300String2.123234String3.FalseBoolean4.55.3Long6.91Double7.65Double8.0.5Double9.2Double10.2012String四、l.(2*Tan(A)(l-Tan(A)2)2.aA2+bA2-2*a*b*Cos(C)3.(-b+Sqr(b2-4*a*c)(2*a)4.Abs(A*x+B*y+C*z)/Sqr(AA2+BA2)Ap(l+尸五、.(l+"j六、参考程序如下：PrivateSubCommandl_Click()DimradAsDouble,degAsInteger,mintAsInteger,seedAsIntegerConstPi=3.1415926rad=VaI(TextlJext)*180/Pideg=Fix(rad)mint=Fix(rad-deg)*60)seed=Fix(rad-deg)*60-mint)*60)Text2.Text=deg&""&mint&”分”&secd&”秒”EndSub第四章控制结构一、选择题1-5DCCCA6-10CBBCA11-14DBDC二、程序填空题1.1x<202y=30-0.5*x3else2.1m=m102ls<=53.1Rnd*101+2002xmod54.1flag=l2i=i+l5.1x>=02x<Amin三、程序阅读题1.22.115.13.4324.15.59106.10四、编程题1 .参考代码:PrivateSubcmdCal_Click()DimaAsSingle,bAsSingle,cAsSingleDimxlAsSingle,×2AsSingle,mAsSinglea= Val(t×tA.Text)b = Val(txtB.Text)c = Val(txtC.Text) m=b2-4*a*cIf m < 0 Then MsgBox "方程无根, If m = OThentxtl.Text = Str(-b / 2 / a) txt2.Text = txt l.Text,fflval()函数将文本框中的字符型数据转换为数值类型，方程无根的情况'两根相等的情况EndIfIfm>OThen'两根不等的情况txtl.Text=Str(-b+Sqr(m)2a)'fflStr()函数将数值转换为字符串类型txt2.Text=Str(-b-Sqr(m)/2a)EndIfEndSub2 .参考代码:PrivateSubForm_Click()Dimsa,newsasa=Val(lnputBox("inputyoursalary:")SelectCasesaCaseIs<=2000newsa=sa*1.25CaseIs<=3000newsa=sa*1.2CaseElsenewsa=sa*1.15EndSelectMsgBox"yournewsalaryis:"&newsaEndSub3 .参考代码：DimnAsInteger,SAsLongs=l:n=0'变量赋初值Whiles<=400000n=n+l'统计数字个数s=s*n'累乘Printn;s，通过本行可以看到循环过程WendPrint”S不大于400000时,最大的N值为：”;n-l4 .参考代码：PrivateSubForm_Click()DimAstringAsString'输出上三角图形Fori=1To8Astring=String(i*2-1,"A")PrintTab(20);Space(8-i);AstringNexti'输出下三角图形Fori=8To1Step-1Astring=String(i*2-lz"A")PrintTab(20);Space(8-i);AstringNextiEndSub5.参考代码：Private Sub Form_Click()fruit = 1For i = 7 To 1 Step -1Print i; ”天的桃子数为:fruit = (fruit + 1) * 2Next iEnd Sub第五章常用控件一、选择题，初始，第7天的桃子数为1个"fruit，打印某天的桃子数'求前一天的桃子数1-5DCCBA6-10BBDCA11-15CCCBA二、填空题(1)Caption(2)组合框(3)容器(4)PiCtUrel.picture=LoadPicture(ue:tul.jpgv)SCrolI、Change(6)Timer(7)Style(8)Interval(9)标准的坐标系统用户自定义坐标系统(Io)SetFocus(Il)Optionl.VaIue=TrueOption2.Value=True(IZ)ListlJext(13)=Combol.List(i)Addltem(14)(1000)(True)(Format(Time,"h:m:sampm,')(15)TrueFaIseMoveLeft三、编程题1 .参考代码：PrivateSubOptionl_Click()Textl.FontName="黑体"EndSubPrivateSubOption2_Click()Textl.FontName="楷体_gb2312”EndSubPrivateSubOption3_Click()Textl.FontName="仿宋-gb2312”EndSubPrivateSubOption4_Click()Textl.BackCoIor=VbYeIIowEndSubPrivateSubOption5_Click()Textl.BackCoIor=vbGreenEndSubPrivateSubOption6_Click()Textl.BackCoIor=vbRedEndSub2 .参考代码：privateSubCommandl_Click()DimiAsIntegerFori=OToUstl.ListCount-1IfTextl,Text=Listl.List(i)ThenMSgBOX”输入内容已存在，请重新输入I”ExitForEndIfNextiIfi>Listl.ListCount-1ThenListl-AddltemTextl.TextTextlJext=""Textl-SetFocusEndSubPrivateSubCommand2_Click()DimiAsIntegeri=Listl.ListlndexIfi<>-1ThenListl.RemoveltemiEndIfEndSubPrivateSubCommand3_Click()ListKIearEndSubPrivateSubForm_Load()Ustl.Addltem”研发项目经理"Ustl.Addltem”主管”Ustl.Addltem"高级程序员"Ustl.Addltem”程序员及测试人员”Ustl.Addltem”售前支撑经理”Ustl.Addltem"综合管理员”EndSub3 .参考代码：PrivateSubHScrolll_Change()Labell-BackCoIor=RGB(HScrolll.Value,HScroll2.Value,HScroll3.Value)EndSubPrivateSubHScroll2_Change()Labell.BackCoIor=RGB(HScrolll.Value,HScroll2.ValuezHScroll3.Value)EndSubPrivateSubHScroll3_Change()Labell-BackCoIor=RGB(HScrolll.Value,HScroll2.Value,HScroll3.Value)EndSub4 .参考代码：PrivateSubCommandl_Click()Timerl1EnabIed=TrueEndSubPrivateSubForm_Load()Picturel.Scale(0,0)-(500,500)Imagel1Picture=LoadPicture(App.Path+"tul.jpg")EndSubPrivateSubTimerl_Timer()Iflmagel.Left+lmagel.Width<Picturel-ScaIeLeft+Picturel.ScaleWidthThenCommandlVisibIe=FalseImagel-Height=Imagel.Height+50lmagel.Width=lmagel.Width+50Elselmagel.Width=20Imagel-Height=20CommandlVisibIe=TrueEndIfEndSub5 .参考代码：PrivateSubCommandl_Click()Timerl1EnabIed=TrueTimerlJntervaI=100Commandl.Caption="开始"EndSubPrivateSubCommand2_Click()Timerl1EnabIed=FalseCommandl.Caption="重新开始”EndSubPrivateSubForm_Load()LabeIl.FontSize=20Labell.ForeCoIor=vbBlueLabeIl.FontBoId=TrueEndSubPrivateSubTimerl_Timer()IfLabell,Left+Labell-Width<Picturel.ScaIeLeft+Picturel.ScaIeWidthThenLabell.MoveLabeILLeft+10ElseLabellleft=Picturel.ScaIeLeftEndIfEndSub6 .参考代码：PrivateSubCommandl_Click()Timerl1EnabIed=TrueTimerlJntervaI=100Commandl.Caption="开始"EndSubPrivateSubCommand2_Click()Timerl1EnabIed=FalseCommandl.Caption="重新开始”EndSubPrivateSubForm_Load()LabeIl-FontSize=20Labell-ForeCoIor=vbBlueLabell.FontBoId=TrueEndSubPrivateSubTimerl_Timer()IfLabell.Left+Labell-Width<Picturel.ScaIeLeft+Picturel.ScaIeWidthThenLabell.MoveLabeILLeft+10ElseLabell.Left=Picturel-ScaIeLeftEndIfEndSub
