欢迎来到天天文库
浏览记录
ID:37157991
大小:67.50 KB
页数:10页
时间:2019-05-19
《VB教程课后参考答案》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、VB程序设计教程课后参考答案习题1一、填空题1.对象、事件驱动2.窗体、控件3.属性4.属性窗口、编程设置5.Vbp,Frm,bas6.对象名、下划线、事件名7.Form_click8.运行,设计,中断9.主窗口、窗体窗口、工程资源管理器窗口、属性窗口、工具箱窗口、窗体布局窗口、10.菜单、快捷键一、选择题1.C2.A3.B4.B5.D6.BC7.C8.D9.C10.A三、判断题1.×2.×3.√4.×5.×6.×习题2一、选择题1.D2.C3.C4.C5.B6.C7.B8.C9.C10.B11.A1
2、2.B13.B14.C15.D16.B17.A18.B19.A20.A21.B22.C23.A24.B25.B26.A27.C28.A29.B30.B31.C32.B33.D34.D35.C36.D二、填空题1.Controlbox、Maxbutton、Minbutton2.MultilineTRUE3.******4.显示Form1窗体5.Passwordchar6._change()7.Label1.FontSize=208.Cmd1.Enabled=false9.MaxButton10.Auto
3、Size三、判断题1.×2.×3.√4.×5.×6.×7.√8.√9.√10.×习题3一、基础知识题(略)二、选择题1.B2.C3.A4.D5.B6.A7.D8.B9.B10.C11.D12.B13.C14.B15.A16.C17.A18.D19.A20.D21.A22.C23.C24.D1025.D26.D27.B28.C29.D30.C31.D32.C33.A34.B35.A36.C37.C38.D39.C40.C41.D42.A43.B44.D45.D46.A47.D48.D49.B50.D一、
4、填空题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.Xmod5=0orxmod9=06.False7.-4、3、-3、3、-4、48.CDEF9.GBCDEFA10.TRUE11.变量、属性12.‘,_,:13.(略)14.“”#15.Unicode,一个,两个16.Public、通用/模块、Dim、static、private17
5、.+、&、+18.Now()、time()、日期19.Inputbox()、字符串、val()20.Msgbox21.YYY22.SelectCasex,caseElse23.1224.1025.x>=0,x6、7.×18..√19.√20.×五、阅读选择题1.B2.A3.D4.C5.C(改成aAA)6.D7.C8.C9.A10.D11.D12.B13.A14.C15.C16.D17.C18.A19.B20.aebd(没有可选项)六、编程题1.OptionExplicitPrivateSubCommand1_Click()10Dima%,b%,c%DimP#,Q#a=Val(InputBox("pleaseinput数toa:"))b=Val(InputBox("pleaseinput数tob:"))c=Va7、l(InputBox("pleaseinput数toc:"))P=-b/(2*a):Q=Sqr(Abs(b^2-4*a*c))/(2*a)Ifb^2-4*a*c>=0ThenPrint"x1=";P+Q,"x2=";P-QElsePrint"x1=";P&"+"&Q&"i","x2=";P&"-"&Q&"i"EndIfEndSub2.OptionExplicitPrivateSubForm_Click()Dimn,ss=0Forn=1To99Step2s=s+nNextPrint“S=”;sEndSu8、b3.OptionExplicitPrivateSubForm_Click()Dimn,SS=0Forn=1To100S=S+(-1)^(n+1)/nNextPrint“S=”;SEndSub4.OptionExplicitPrivateSubForm_Click()DimP,S,n,mP=1n=Val(InputBox("请输入自然数n"))Form=1TonP=P*mS=S+PNextPrint"S=";SEndSub105.OptionExplic
6、7.×18..√19.√20.×五、阅读选择题1.B2.A3.D4.C5.C(改成aAA)6.D7.C8.C9.A10.D11.D12.B13.A14.C15.C16.D17.C18.A19.B20.aebd(没有可选项)六、编程题1.OptionExplicitPrivateSubCommand1_Click()10Dima%,b%,c%DimP#,Q#a=Val(InputBox("pleaseinput数toa:"))b=Val(InputBox("pleaseinput数tob:"))c=Va
7、l(InputBox("pleaseinput数toc:"))P=-b/(2*a):Q=Sqr(Abs(b^2-4*a*c))/(2*a)Ifb^2-4*a*c>=0ThenPrint"x1=";P+Q,"x2=";P-QElsePrint"x1=";P&"+"&Q&"i","x2=";P&"-"&Q&"i"EndIfEndSub2.OptionExplicitPrivateSubForm_Click()Dimn,ss=0Forn=1To99Step2s=s+nNextPrint“S=”;sEndSu
8、b3.OptionExplicitPrivateSubForm_Click()Dimn,SS=0Forn=1To100S=S+(-1)^(n+1)/nNextPrint“S=”;SEndSub4.OptionExplicitPrivateSubForm_Click()DimP,S,n,mP=1n=Val(InputBox("请输入自然数n"))Form=1TonP=P*mS=S+PNextPrint"S=";SEndSub105.OptionExplic
此文档下载收益归作者所有