VB计算机答案第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二、选择题1．C 2．C 3．B 4．C 5．C6．D 7．B 8．A；D 9．B 10．B11．C 12．B 13．A 14．B 15．D16．A 17．A 18．A 19．D;D 20．B21．C 22．B 23．B 24．A 25．C26．D 27．D 28．C 29．C 30．C31．D第3章Visual Basic程序设计代码基础一、选择题1．A 2．D 3．C 4．D 5．A6．B 7．C 8．B 9．B；C；D；G；H；J；L；N；O；P10．C 11．C 12．B 13．A；B 14．A；B15．B 16．B；E 17．A 18．C 19．D二、求表达式的值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 IT"20. "1234"；"1234"；"1234"；46；46；"1234"21. 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 < 62.52. A + B > C And B + C > A And C + A > B3. (A = 0 Or B = 0)And(A * B <> 0)4. X <= -5 Or X >= 55. X >= -5 And X <= 56. Abs(A) >= B And A <> C7. X < 100 And 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, BAs Boolean2. Type SalaryENo As StringEname As StringESalary As SingleEnd TypeDim Department1 As Salary第4章Visual Basic的控制结构一、选择题（除了特别注明“多选”外，其余均为单选题）1．A；D；E；F 2．B 3．C 4．C 5．D6．B 7．C 8．B 9．A；B 10．B11．D 12．D 13．C 14．C二、判断程序执行结果1. 32. 2 23. 1 23 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. 122333444455555666666777777722. 123. 10 524. I= 7A= 1125. M1= 120 M2= 626. 3 2127. 2 4 -3 328. 1129. 14 6 330. ************************************31. ***************32. 633. 1034. 0 93 186 279 369 36第5章数组一、选择题1．C 2．A 3．B 4．D 5．C6．C 7．B；D 8．B二、填空题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 = "66112233"StdAddress(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 10 1 01 0 112. 1 2 3 43 4 5 65 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 <= N3. （1）K（2）Flag = 04. （1）B （2）D （3）A （4）B （5）C5. （1）C （2）B （3）A6. （1）A() （2）N （3）I+1 （4）A(J) （5）T7. （1）ReDim A(N) （2）P>N Or P<1 （3）P+1 （4）D8. （1）YO < Y(I) （2）I+1 （3）Text1.Text9. （1）X > 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章过程一、选择题（除了特别注明“多选”外，其余均为单选题）1．C 2．B；C；D 3．C 4．C；D；E 5．A、C6．C 7．C 8．B 9．A 10．A11．C 12．D 13．C 14．B；A 15．D16．D 17．A 18．D 19．D二、判断程序或程序段的执行结果1. 702. 3 34 73. 3 5 7 9 11 13 15 17 19 214. Tom5. 316. 3207. 218. 23 479. 1 1 11 2 32 2 21 2 33 3 31 2 310. 35；20第8章常用控件选择题（除了特别注明“多选”外，其余均为单选题）1．C 2．C 3．D 4．B 5．C6．A 7．C 8．B 9．C、D 10．B11．A、D 12．G；I；C；B；E 13．B、D 14．A15．B、D 16．C 17．B；C；A 18．C；D 19．B20．A 21．C 22．F；B；H；D 23．B 24．A25．D 26．A第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二、选择题（除了特别注明“多选”外，其余均为单选题）1．B、D、F 2．C 3．D 4．B、C 5．D第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.5 16. 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 "E"14. MkDir "E:\STUD"15. Kill "D:*.DAT"16. 文件长度；字节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, StuName, StuEng3．（1）Random（2）Put #1, , xData（3）Get #1, i, xData4．（1）Pattern（2）File1.Path = Dir1.Path（3）Dir1.Path = Drive1.Drive（4）Open Text1.Text For Input As #1第12章Visual Basic与数据库一、选择题（除了特别注明“多选”外，其余均为单选题）1． C 2．B 3．C 4．B 5．D6． B；D 7．C 8．C 9．A 10．B二、填空题1. 数据库；数据库管理系统2. 为网状数据库、层次数据库和关系数据库3. 一个到多；行；列4. 从“学生基本信息”表中选出“性别”字段值为“男”的所有记录，查询结果包含了表中的所有字段。