资源描述：
《VB程序设计教程课后参考答案》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、杨飞整理第16页共16页2021/9/15VB程序设计教程课后参考答案习题一一、填空题1．对象、事件驱动2．窗体、控件3．属性4．属性窗口、编程设置5．事件过程6．对象名、下划线、事件名7．Form_click8．Printform1.print“我的VB”9．主窗口、属性、工具箱、代码、窗体、工程资源管理10．菜单、快捷键二、选择题1．C2.A3.B4.B5.D6.BC7.A三、简答题（略）习题二一、选择题1.D2.C3.C4.B5.C6.B7.C8.B9.A10.B11.B12.C13.D14.B15.A16.A17.A18.A19.B20.C21.A22.B23.
2、B24.A25.C26.A27.B28.B29.C30.B31.D32.D33.C二、填空题1．Controlbox、Maxbutton、Minbutton2．MultilineTRUE3．******4．单文档界面（SDI）多文档界面（MDI）5．窗体显示6．Passwordchar7．_change()三、编程题（略）习题三一、基础知识题（略）二、填空题1．整型、长整型、单精度、双精度2．(xmod10)*10+x103．Sin(3.14*15/180)+sqr(x+exp(3))/abs(x-y)-log(3*x)4．(a+b)/(1/(c+5)-c*d/2)5
3、．Xmod5=0orxmod9=06．False7．-4、3、－3、3、－4、48．CDEF9．GBCDEFA杨飞整理第16页共16页2021/9/151．TRUE2．变量、属性3．‘_:4．(略)5．“”＃6．Public、通用/模块、Dim、static、private7．+、&、+8．Now()、time()、日期9．Inputbox()、字符串、val()10．Msgbox()一、选择题1．B2.C3.A4.BD此题有误5.B6.A7.D8.B9.B10.C11.D12.B13.C14.B15.A16.C17.A18.D19.A20.D21.A22.C23.C2
4、4.D25.A26.D27.D28.B29.C30.B31.C32.B33.CD此题有误34.C35.A36.D37.C38.A39.B40.A41.C42.C43.D44.C45.D46.A二、编程题1.OptionExplicitPrivateSubCommand1_Click()Dima%,b%,c%,delta%Dimx1#,x2#,x#a=Val(InputBox("pleaseinputdatatoa:","info",1))b=Val(InputBox("pleaseinputdatatob:","info",1))c=Val(InputBox("plea
5、seinputdatatoc:","info",1))Ifa=0Andb<>0Thenx=-c/bPrint"所构成的方程是："&b&"x"&"+"&c&"=0"Print"该一元一次方程的根是：",xEndIfIfa=0Andb=0ThenPrint"很抱歉，不能构成合法的方程！"EndIfIfa<>0Thendelta=b*b-4*a*cIfdelta>=0Thenx1=(-b+Sqr(delta))/(2*a)x2=(-b-Sqr(delta))/(2*a)Print"所构成的方程是："&a&"x2"&"+"&b&"x"&"+"&c&"=0"Print"该方程的根
6、是："Print"第一个根是：",x1Print"第二个根是：",x2ElsePrint"所构成的方程是："&a&"x2"&"+"&b&"x"&"+"&c&"=0"杨飞整理第16页共16页2021/9/15Print"该方程有两个虚根："Print"第一个虚根是："&-b/(2*a)&"+"&Sqr(Abs(delta))/(2*a)&"i"Print"第二个虚根是："&-b/(2*a)&"－"&Sqr(Abs(delta))/(2*a)&"i"EndIfEndIfEndSub2.OptionExplicitPrivateSubCommand1_Click()Dimi%
7、,s%s=0Fori=1To99Step2s=s+iNextPrintsEndSub3.OptionExplicitPrivateSubCommand1_Click()Dimi%Dims#s=0Fori=1To100s=s+1/i*(-1)^(i+1)NextPrintsEndSub4.OptionExplicitPrivateSubCommand1_Click()Dimi%,n%Dimt#,s#n=Val(InputBox("pleaseinputdata:","info",5))s=0t=1Fori=1Tont=t*is=s+tNex
