VB程序设计教程第1-12章习题答案.doc

2020年3月11日星期三Visual Basic程序设计教程邱李华郭全编著人民邮电出版社 习题答案 by Dr.Wang DechaoVisual Basic程序设计教程习题答案邱李华郭全编著人民邮电出版社2009年3月第1版第1章 Visual Basic简介1. 要使计算机能够按人的要求完成一系列的操作，就要求计算机能够理解并执行人们给出的各种命令，因此就需要在人和计算机之间制定一种二者都能识别的特定的语言，这种特定的语言就是程序设计语言。使用程序设计语言编写的、用来使计算机完成一定任务的、一系列命令的集合构成程序，编写程序的工作则称为程序设计2. 机器语言可以在计算机上直接运行。3. 翻译程序的作用是将源程序翻译成计算机能够理解并直接执行的目标程序；对高级语言源程序进行翻译可以有解释方式和编译方式。解释方式不生成可执行程序。4. 算法是指计算机解题的方法和步骤。5. 可视化界面设计指的是：把设计界面的复杂性向编程人员隐蔽起来，编程人员不需要编写大量的代码来描述界面，只需要使用系统提供的工具在界面上直接把各种对象“画”出来，并设置这些对象的一些属性就可以了；事件驱动的编程机制指的是：编写程序时，针对不同对象的不同事件编写相应的代码段，每一个代码段只有当运行时在相应对象上发生相应的事件才被执行。6. Visual Basic的3种工作模式是：设计模式、运行模式、中断模式。7. Visual Basic中的控件可以分为3大类：内部控件、ActiveX控件、可插入对象。8. ActiveX控件文件的扩展名是OCX。9. 工程组文件的扩展名是vbg；工程文件的扩展名vbp；窗体文件的扩展名frm；标准模块文件的扩展名bas；类模块文件的扩展名cls。10. 在代码窗口的对象下拉列表中，窗体的名称总是显示为Form。11. 在Visual Baisc中，要获取上下文相关帮助，只需要在上下文相关位置按F1键。第2章 Visual Basic简单工程的设计一、填空题1. 对象名.属性名 = 属性值2. Myform.BackColor = vbBlue3. 发生某一事件时要执行的代码；cmd1；Click；Form_Load4. 对象名.方法名；Form1.Show；Picture1.Cls5. 中央6. Ctrl7. Ctrl;Shift8. Shift+“方向箭头”; Ctrl+“方向箭头”9. vbp10. 窗体11. F512. 工程；工程1属性 （“工程1”为当前工程名）13. Top；Left；Width；Height二、选择题1C2C3B4C5C6D7B8A；D9B10B11C12B13A14B15D16A17A18A19D;AD 20B21A22B23B24A25C26D27D28C29C30C31D注：第13题无正确答案，要将选择A改为：visible第21题将题目的“运行时”改写为“设计时”第3章 Visual Basic程序设计代码基础一、选择题1A2D3C4D5A6B7C8B9B；C；D；G；H；J；L；N；O；P10C11C12B13A；B14A；B15B16B；E17A18D19D二、求表达式的值1. 02. -173. -0.24. 105. how6. jing7. HAI8. 69. 12344510. BASIC11. 312. 12.313. 3 77.714. 115. 0.516. 617. 118. 419.（1）5,459.40（2）335（3）0.67（4）.67（5）hello（6）THIS IS IT20. 1234；1234；1234；46；46；123421. True22. True三、写出下列代数式对应的Visual Basic表达式。1. (-a) 2 / (b + c / d)2. 2 * Sin(a) * Cos(2 * 3.1416 - a)3. Sqr(a 2 + b 2 - a * a * b * Cos(a)4. (x + y) 3 * (t + u) 2 / (t * (x - y)5. a (b * c) + c (a * b)6. 5 (1 / 3) * Cos(60 * 3.14 / 180)7. Cos(w) 3 - 3 * Cos(w) * Sin(w) 38. (Log(50) / Log(10) - Log(20) / (9 * Exp(5)9. X1 - Abs(a) + Log(10) + Sin(X2 + 2 * 3.1416) / Cos(57 * 3.1416 / 180)10. Sin(3.1416 - t) (2 / 3) / (a * b)四、写出下列条件对应的Visual Basic关系表达式或布尔表达式。1. T 1.7 And W C And B + C A And C + A B3. (A = 0 Or B = 0) And (A * B 0)4. X = 55. X = -5 And X = B And A C7. X = 08. (Y Mod 4 = 0 And Y Mod 100 0) Or Y Mod 400 = 09. A 0 And B 2 - 4 * A * C = 010. Y Mod 5 = 0 And Y Mod 2 = 0五、简答题1. Dim X1 As Single, X2 As Single, I1 As Integer, I2 As Integer, S1 As String, S2 As String, B As Boolean2. Type Salary ENo As String Ename As String ESalary As SingleEnd TypeDim Department1 As Salary第4章 Visual Basic的控制结构一、选择题（除了特别注明“多选”外，其余均为单选题）1A；D；E；F2B3C4C5D6B7C8B9A；B10B11D12D13C14C二、判断程序执行结果1. 32. 2 23. 1 2 3 54. 3 35. A( 17.4 )6. -17. he is ang8. 1 2 False9. 12332110. 44411. -3 312. 30 1013. False14. I= 215. I= 116. A17. *0*18. 7 2219. 2 3 520. 1 621. 1 22 333 4444 55555 666666 777777722. 123. 10 524. I= 7 A= 1125. M1= 120 M2= 626. 3 2127. 2 4 -3 328. 1129. 14 6 330. * * * * * *31. * * * * *32. 633. 1034. 0 9 3 18 6 27 9 36 9 36第5章 数组一、选择题1C2A3B4B5C6C7B；D8B二、填空题1. Dim A(1 To 5, -2 To 6) As String2. A(-1,-1) A(-1,0) A(-1,1)A(0,-1) A(0,0) A(0,1)A(1,-1) A(1,0) A(1,1)A(2,-1) A(2,0) A(2,1)3. 过程级；ReDim4. Dim StdAddress(1 To 100) As address5. Dim StdAddress(1 To 100) As addressStdAddress(1).Name = 李军StdAddress(1).telno = 66112233StdAddress(1).email = lijun 三、判断程序或程序段的执行结果1. 12 202. bdf3. 14. 0 2 2 35. 1 2 1 4 46. 0 0 0 0 0 12 14 16 18 207. 1 2 3 4 5 12 14 16 18 208. 159. 4210. 1 2 3 2 4 611. 1 0 1 0 1 0 1 0 112. 1 2 3 4 3 4 5 6 5 6 7 813. 20 25 30 35 40第6章 常用算法及应用程序举例程序填空（在程序中的划线位置填上适当内容，完成题目所要求的功能）1. （1）Max（2）Min（3）c Max（4）c Min2. （1）N Mod 2 0（2）C * (-1)（3）I + 1（4）I N Or P1（3）P+1 （4）D8. （1）YO A(10) Or X A(1) （2）X=A(I)（3）9 （4）数据没找到10. （1）a()（2）a(n, n) （3）j - i + 1（4）i - j + 1 （5）Picture1.Print （6）1 To n （7）1 To i （8）1 To n （9）i To n （10）1 To n （11）n + 1 - i To n (12) 1 To n （13）1 To n + 1 i第7章 过 程一、选择题（除了特别注明“多选”外，其余均为单选题）1C2B；C；D3C4C；D；E5A、C6C7C8B9A10A11C12D13C14B；A15D16D17A18D19D二、判断程序或程序段的执行结果1. 702. 3 34 73. 3 5 7 9 11 13 15 17 19 214. Tom5. 3 16. 3 207. 218. 23 479. 1 1 1 1 2 3 2 2 2 1 2 3 3 3 3 1 2 310. 35；20第8章 常用控件选择题（除了特别注明“多选”外，其余均为单选题）1C2C3D4B5C6A7C8B9C、D10B11A、D12G；I；C；B；E13B、D14A15B、D16C17B；C；A18C；D19B20A21C22F；B；H；D23B24A25D26A第9章 界面设计一、填空题1. 下拉式；弹出式；窗体；菜单编辑器2. 标题；-3. 文件(&F)4. 顶5. Caption；Name；Index；Checked；Enabled；Visible6. Click7. Load；Unload8. 菜单编辑器；顶9. MouseDown；PopupMenu10. 快捷菜单的顶级菜单名称 弹出式菜单的上框中央位于鼠标的单击位置 弹出式菜单的菜单项可以响应鼠标左、右键单击弹出式菜单中要显示为黑体的菜单项控件的名称为PMENU311. ToolTipText12. Microsoft Windows Common Controls 6.0；ToolBar13. Align14. ImageList15. Toolbar1.Buttons(4).Enabled = False16. 样式17. Toolbar1.Buttons(2).ButtonMenus(3).Enabled = False18. 1 Fixed Single19. 模式；无模式20. Show21. 将窗体Form2做为无模式对话框显示；将窗体Form3做为模式对话框显示22. Form2.Show vbModeless, Form323. Microsoft Common Dialog Controls 6.024. C1.ShowColor；C1.ShowFont二、选择题（除了特别注明“多选”外，其余均为单选题）1B、D、F2C3D4B、C5D第10章 图形操作填空题1. 左上角；右；下；缇2. ScaleMode；Picture1.ScaleMode = vbInches3. Picture1.ScaleLeft = -10Picture1.ScaleTop = 104. 205. （1，1）；（3，-1）6. Form1.Scale (0, 4)-(4, 0)7. Form1.CurrentX = 2Form1.CurrentY = 28. Picture1.BackColor = RGB(50, 100, 25)9. Shape10. BorderStyle11. x1,y1,x2,y212. (200, 300)13. (200, 200)；(400, 400)14. Line (100, 100)-(500, 500), vbRed, BLine (100, 100)-(500, 500), vbRed, BF15. Circle (0, 0), 0.5, vbRedCircle (0, 0), 0.5, vbRed, 0, 3.1415926 / 2Circle (0, 0), 0.5, vbRed, -0.00001, -3.1415926 / 2Circle (0, 0), 0.5, vbRed, , , 2 : Circle (0, 0), 0.5, vbRed, , , 0.516. Form1.FillStyle = 0Form1.FillColor = vbYellow17. ForeColor18. DrawWidth19. DrawStyle20. AutoRedraw21. Paint22. Resize23. 绿色；红色；蓝色24. 最下25. Label1.ZOrder 026. SavePicture Picture1.Image, d:MyPicture.bmp第11章 文件一、填空题1. 顺序文件；随机文件；二进制文件2. Open C:StuData.dat For Output As #13. Open C:StuData.dat For Input As #14. Open C:StuData.dat For Append As #15. Close #1, #3, #56. Write #2, A; B; C7. Print #2, A; B; C8. Open d:aa.txt For Input As #1Input #1, A, B, C9. Open d:B.dat For Random As #1 Len = 2010. Put；Get11. Open d:C.DAT For Binary As #3Put #3, 6, AGet #3, 10, B12. 返回某驱动器的当前路径13. ChDrive E14. MkDir E:STUD15. Kill D:*.DAT16. 文件长度；字节17. 复制文件；产生错误18. Drive19. Change20. Path21. FileName二、程序填空（在程序中的划线位置填上适当内容，以完成题目所要求的功能）1（1）Open C:StuData.txt For Output As #1 （2）Write #1, StuNo, StuName, StuEng（3）Close #12（1）Open C:StuData.txt For Input As #1 （2）While Not EOF(1) （3）Input #1, StuNo, Stu