文档库

最新最全的文档下载
当前位置:文档库 > VB程序设计教程第1-12章习题答案

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

《Visual 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 = 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.C2.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;AD 20.B 21.A 22.B 23.B 24.A 25.C 26.D 27.D 28.C 29.C 30.C 31.D

注:第13题无正确答案,要将选择A改为:visible

第21题将题目的“运行时”改写为“设计时”

第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.D 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 < 6

2.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

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

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.B 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@ http://www.wendangku.net/doc/55984f910b4e767f5bcfce58.html" 三、判断程序或程序段的执行结果

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)

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

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