VB程序
答案
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 = 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
C 11(C 12(B 13(A;B 14(A;B 10(
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
And (A * B <> 0) 3. (A = 0 Or 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