VB习题答案

VB习题答案 第1章 Visual Basic简介 1. 要使计算机能够按人的要求完成一系列的操作，就要求计算机能够理解并执行人们给出 的各种命令，因此就需要在人和计算机之间制定一种二者都能识别的特定的语言，这种 特定的语言就是程序 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 语言。使用程序设计语言编写的、用来使计算机完成一定任务 的、一系列命令的集合构成程序，编写程序的工作则称为程序设计 2. 机器语言可以在计算机上直接运行。 3. 翻译程序的作用是将源程序翻译成计算机能够理解并直接执行的目标程序;对高级语言 源程序进行翻译可以有解释方式和编译方式。解释方式不生成可执行程序。 4. 算法是指计算机解题的方法和步骤。 5. 可视化界面设计指的是:把设计界面的复杂性向编程人员隐蔽起来，编程人员不需要编 写大量的代码来描述界面，只需要使用系统提供的工具在界面上直接把各种对象“画” 出来，并设置这些对象的一些属性就可以了;事件驱动的编程机制指的是:编写程序时， 针对不同对象的不同事件编写相应的代码段，每一个代码段只有当运行时在相应对象上 发生相应的事件才被执行。 6. Visual Basic的3种工作模式是:设计模式、运行模式、中断模式。 7. Visual Basic中的控件可以分为3大类:内部控件、ActiveX控件、可插入对象。 8. ActiveX控件文件的扩展名是OCX。 9. 工程组文件的扩展名是vbg;工程文件的扩展名vbp;窗体文件的扩展名frm; 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 模块 文件的扩展名bas;类模块文件的扩展名cls。 10. 在代码窗口的对象下拉列 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 中，窗体的名称总是显示为Form。 11. 在Visual Baisc中，要获取上下文相关帮助，只需要在上下文相关位置按F1键。 第2章 Visual Basic简单工程的设计 一、填空题 1. 对象名.属性名 = 属性值 2. Myform.BackColor = vbBlue 3. 发生某一事件时要执行的代码;cmd1;Click;Form_Load 4. 对象名.方法名;Form1.Show;Picture1.Cls 5. 中央 6. Ctrl 7. Ctrl;Shift 8. Shift+“方向箭头”; Ctrl+“方向箭头” 9. vbp 10. 窗体 11. F5 12. 工程;工程1属性 (“工程1”为当前工程名) 13. Top;Left;Width;Height 二、选择题 1(C 2(C 3(B 4(C 5(C 6(D 7(B 8(A;D 9(B 10(B 11(C 12(B 13(A 14(B 15(D 16(A 17(A 18(A 19(D;D 20(B 21(C 22(B 23(B 24(A 25(C 26(D 27(D 28(C 29(C 30(C 31(D 第3章 Visual Basic程序设计代码基础 一、选择题 1(A 2(D 3(C 4(D 5(A 6(B 7(C 8(B 9(B;C;D;G;H;J;L;N;O;P 10(C 11(C 12(B 13(A;B 14(A;B 15(B 16(B;E 17(A 18(C 19(D 二、求表达式的值 1. 0 2. -17 3. -0.2 4. 10 5. how 6. jing 7. HAI 8. 6 9. 123445 10. BASIC 11. 3 12. 12.3 13. 3 77.7 14. 1 15. 0.5 16. 6 17. 1 18. 4 19. (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. True 22. 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) ^ 3 8. (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.5 2. A + B > C And B + C > A And C + A > B 3. (A = 0 Or B = 0) And (A * B <> 0) 4. X <= -5 Or X >= 5 5. X >= -5 And X <= 5 6. Abs(A) >= B And A <> C 7. X < 100 And X >= 0 8. (Y Mod 4 = 0 And Y Mod 100 <> 0) Or Y Mod 400 = 0 9. A <> 0 And B ^ 2 - 4 * A * C >= 0 10. 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 Boolean 2. Type Salary ENo As String Ename As String ESalary As Single End Type Dim Department1 As Salary 第4章 Visual Basic的控制结构 一、选择题(除了特别注明“多选”外，其余均为单选题) 1(A;D;E;F 2(B 3(C 4(C 5(D 6(B 7(C 8(B 9(A;B 10(B 11(D 12(D 13(C 14(C 二、判断程序执行结果 1. 3 2. 2 2 3. 1 2 3 5 4. 3 3 5. A( 17.4 ) 6. -1 7. he is ang 8. 1 2 False 9. 123321 10. 444 11. -3 3 12. 30 10 13. False 14. I= 2 15. I= 1 16. A 17. **0** 18. 7 22 19. 2 3 5 20. 1 6 21. 1 22 333 4444 55555 666666 7777777 22. 1 23. 10 5 24. I= 7 A= 11 25. M1= 120 M2= 6 26. 3 21 27. 2 4 -3 3 28. 11 29. 14 6 3 30. * *** ***** ******* ********* *********** 31. ***** **** *** ** * 32. 6 33. 10 34. 0 9 3 18 6 27 9 36 9 36 第5章 数组 一、选择题 1(C 2(A 3(B 4(D 5(C 6(C 7(B;D 8(B 二、填空题 1. Dim A(1 To 5, -2 To 6) As String 2. 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. 过程级;ReDim 4. Dim StdAddress(1 To 100) As address 5. Dim StdAddress(1 To 100) As address StdAddress(1).Name = "李军" StdAddress(1).telno = "66112233" StdAddress(1).email = "lijun@ sohu.com" 三、判断程序或程序段的执行结果 1. 12 20 2. bdf 3. 1 4. 0 2 2 3 5. 1 2 1 4 4 6. 0 0 0 0 0 12 14 16 18 20 7. 1 2 3 4 5 12 14 16 18 20 8. 15 9. 42 10. 1 2 3 2 4 6 11. 1 0 1 0 1 0 1 0 1 12. 1 2 3 4 3 4 5 6 5 6 7 8 13. 20 25 30 35 40 第6章 常用算法及应用程序举例 程序填空(在程序中的划线位置填上适当内容，完成题目所要求的功能) 1. (1)Max (2)Min (3)c > Max (4)c < Min 2. (1)N Mod 2 <> 0 (2)C * (-1) (3)I + 1 (4)I <= N 3. (1)K (2)Flag = 0 4. (1)B (2)D (3)A (4)B (5)C 5. (1)C (2)B (3)A 6. (1)A() (2)N (3)I+1 (4)A(J) (5)T 7. (1)ReDim A(N) (2)P>N Or P<1 (3)P+1 (4)D 8. (1)YO < Y(I) (2)I+1 (3)Text1.Text 9. (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、C 6(C 7(C 8(B 9(A 10(A 11(C 12(D 13(C 14(B;A 15(D 16(D 17(A 18(D 19(D 二、判断程序或程序段的执行结果 1. 70 2. 3 34 7 3. 3 5 7 9 11 13 15 17 19 21 4. Tom 5. 3 1 6. 3 20 7. 21 8. 23 47 9. 1 1 1 1 2 3 2 2 2 1 2 3 3 3 3 1 2 3 10. 35;20 第8章 常用控件 选择题(除了特别注明“多选”外，其余均为单选题) 1(C 2(C 3(D 4(B 5(C 6(A 7(C 8(B 9(C、D 10(B 11(A、D 12(G;I;C;B;E 13(B、D 14(A 15(B、D 16(C 17(B;C;A 18(C;D 19(B 20(A 21(C 22(F;B;H;D 23(B 24(A 25(D 26(A 第9章 界面设计 一、填空题 1. 下拉式;弹出式;窗体;菜单编辑器 2. 标题;- 3. 文件(&F) 4. 顶 5. Caption;Name;Index;Checked;Enabled;Visible 6. Click 7. Load;Unload 8. 菜单编辑器;顶 9. MouseDown;PopupMenu 10. 快捷菜单的顶级菜单名称 弹出式菜单的上框中央位于鼠标的单击位置 弹出式菜单的菜单项可以响应鼠标左、右键单击 弹出式菜单中要显示为黑体的菜单项控件的名称为PMENU3 11. ToolTipText 12. Microsoft Windows Common Controls 6.0;ToolBar 13. Align 14. ImageList 15. Toolbar1.Buttons(4).Enabled = False 16. 样式 17. Toolbar1.Buttons(2).ButtonMenus(3).Enabled = False 18. 1 – Fixed Single 19. 模式;无模式 20. Show 21. 将窗体Form2做为无模式对话框显示;将窗体Form3做为模式对话框显示 22. Form2.Show vbModeless, Form3 23. Microsoft Common Dialog Controls 6.0 24. C1.ShowColor;C1.ShowFont 二、选择题(除了特别注明“多选”外，其余均为单选题) 1(B、D、F 2(C 3(D 4(B、C 5(D 第10章 图形操作 填空题 1. 左上角;右;下;缇 2. ScaleMode;Picture1.ScaleMode = vbInches 3. Picture1.ScaleLeft = -10 Picture1.ScaleTop = 10 4. 20 5. (1，1);(3，-1) 6. Form1.Scale (0, 4)-(4, 0) 7. Form1.CurrentX = 2 Form1.CurrentY = 2 8. Picture1.BackColor = RGB(50, 100, 25) 9. Shape 10. BorderStyle 11. x1,y1,x2,y2 12. (200, 300) 13. (200, 200);(400, 400) 14. Line (100, 100)-(500, 500), vbRed, B Line (100, 100)-(500, 500), vbRed, BF 15. Circle (0, 0), 0.5, vbRed Circle (0, 0), 0.5, vbRed, 0, 3.1415926 / 2 Circle (0, 0), 0.5, vbRed, -0.00001, -3.1415926 / 2 Circle (0, 0), 0.5, vbRed, , , 2 : Circle (0, 0), 0.5, vbRed, , , 0.5 16. Form1.FillStyle = 0 Form1.FillColor = vbYellow 17. ForeColor 18. DrawWidth 19. DrawStyle 20. AutoRedraw 21. Paint 22. Resize 23. 绿色;红色;蓝色 24. 最下 25. Label1.ZOrder 0 26. SavePicture Picture1.Image, " d:\MyPicture.bmp" 第11章 文件 一、填空题 1. 顺序文件;随机文件;二进制文件 2. Open "C:StuData.dat" For Output As #1 3. Open "C:StuData.dat" For Input As #1 4. Open "C:StuData.dat" For Append As #1 5. Close #1, #3, #5 6. Write #2, A; B; C 7. Print #2, A; B; C 8. Open "d:\aa.txt" For Input As #1 Input #1, A, B, C 9. Open "d:\B.dat" For Random As #1 Len = 20 10. Put;Get 11. Open "d:\C.DAT" For Binary As #3 Put #3, 6, A Get #3, 10, B 12. 返回某驱动器的当前路径 13. ChDrive "E" 14. MkDir "E:\STUD" 15. Kill "D:*.DAT" 16. 文件长度;字节 17. 复制文件;产生错误 18. Drive 19. Change 20. Path 21. FileName 二、程序填空(在程序中的划线位置填上适当内容，以完成题目所要求的功能) 1((1)Open "C:StuData.txt" For Output As #1 (2)Write #1, StuNo, StuName, StuEng (3)Close #1 2((1)Open "C:StuData.txt" For Input As #1 (2)While Not EOF(1) (3)Input #1, StuNo, StuName, StuEng 3((1)Random (2)Put #1, , xData (3)Get #1, i, xData 4((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(D 6( B;D 7(C 8(C 9(A 10(B 二、填空题 1. 数据库;数据库管理系统 2. 为网状数据库、层次数据库和关系数据库 3. 一个到多;行;列 4. 从“学生基本信息”表中选出“性别”字段值为“男”的所有记录，查询结果包含了表 中的所有字段。 5. Select 姓名, 应发工资 From工资 Where 性别 = '女' 6. Insert Into学生成绩(学号, 姓名, 成绩) Values ('009', '刘键', 91) 7. Delete From 学生成绩 Where成绩 < 60 8. 将“学生成绩”表中的“数学”字段的所有值乘以0.7，取代原有的值 9. ConnectionString 10. AbsolutePosition 11. RecordCount 12. Adodc1.Recordset.Fields("姓名").Value = "张民" 13. Refresh 14. Adodc1.Recordset.Move –6 15. Adodc1.Recordset.Find "姓名='王兰'" 16. DataSource;DataField