VB程序设计教程课后参考答案.docVIP

VB程序设计教程课后参考答案 习题一 填空题 对象、事件驱动 窗体、控件 属性 属性窗口、编程设置 事件过程 对象名、下划线、事件名 Form_click Print form1.print “我的VB” 主窗口、属性、工具箱、代码、窗体、工程资源管理 菜单、快捷键 选择题 1．C 2. A 3. B 4. B 5. D 6. B C 7. A 三、简答题（略） 习题二 选择题 1. D 2. C 3. C 4. B 5. C 6. B 7. C 8. B 9. A 10. B 11. B 12. C 13. D 14. B 15. A 16. A 17. A 18. A 19. B 20. C 21. A 22. B 23. B 24. A 25. C 26. A 27. B 28. B 29. C 30. B 31. D 32. D 33. C 填空题 Controlbox、Maxbutton、Minbutton Multiline TRUE ****** 单文档界面（SDI） 多文档界面（MDI） 窗体显示 Passwordchar _change() 编程题（略） 习题三 基础知识题（略） 填空题 整型、长整型、单精度、双精度 (x mod 10)*10+x\10 Sin(3.14*15/180)+sqr(x+exp(3))/abs(x-y)-log(3*x) (a+b)/(1/(c+5)-c*d/2) X mod 5=0 or x mod 9=0 False -4、3、－3、3、－4、4 CDEF GBCDEFA TRUE 变量、属性 ‘ _ : (略) “” ＃ Public、通用/模块、Dim、static、private + 、 、 + Now() 、 time()、 日期 Inputbox()、字符串、val() Msgbox() 选择题 1．B 2. C 3. A 4. B D此题有误 5. B 6. A 7. D 8. B 9. B 10. C 11. D 12. B 13. C 14. B 15. A 16. C 17.A 18. D 19. A 20. D 21. A 22. C 23. C 24. D 25. A 26. D 27. D 28. B 29. C 30. B 31. C 32. B 33. C D此题有误 34. C 35. A 36. D 37. C 38. A 39. B 40. A 41. C 42. C 43. D 44. C 45. D 46. A 编程题 1. Option Explicit Private Sub Command1_Click() Dim a%, b%, c%, delta% Dim x1#, x2#, x# a = Val(InputBox(please input data to a:, info, 1)) b = Val(InputBox(please input data to b:, info, 1)) c = Val(InputBox(please input data to c:, info, 1)) If a = 0 And b 0 Then x = -c / b Print 所构成的方程是： b x + c =0 Print 该一元一次方程的根是：, x End If If a = 0 And b = 0 Then Print 很抱歉，不能构成合法的方程！ End If If a 0 Then delta = b * b - 4 * a * c If delta = 0 Then x1 = (-b + Sqr(delta)) / (2 * a) x2 = (-b - Sqr(delta)) / (2 * a) Print 所构成的方程是： a x2 + b x + c =0 Print 该方程的根是： Print 第一个根是：, x1 Print 第二个根是：, x2 Else Print 所构成的方程是： a x2 + b x + c =0 Print 该方程有两个虚根： Print 第一个虚根是： -b / (2 * a) + Sqr(Abs(delta)) / (2 * a) i Print 第二个虚根是： -b / (2 * a) － Sqr(Abs(delta)) / (2 * a) i End If End If End