实验教材 实验一 1：单项选择题：

A A C C C D C B B C 2：填空题：

（1）.bas

（2）.vbp，.frm

（3）视图 工具箱

（4）对象

（5）属性 对象 事件 方法

（6）Windows

（7）事件 行为

（8）窗体模块

实验二

1：单项选择题：

A D C C A B A B D C 2：基本运算题：

（1）27

（2）3.33333333333333

（3）3

（4）0

（5）-3

（6）2

（7）ab33

（8）类型不匹配

（9）3

（10）AB3

实验三

1：单项选择题：

B C B D C

2：填空题：

（1）300

（2）321456

（3）Shanghai

（4）6 7 6

（5）True

（6）2+3=5

（7）”area=” 12.56

（8）VISUAL

实验四

1：单项选择题：

C A A C A

2：填空题：

（1）7

（2）3 5 B B C B C B A B D C

（3）输入的数小于0

（4）3

（5）False

（6）2010 is not leap year.

试验五

1：单项选择题：

A C C A B A C C C B

2：填空题：

（1）9

（2）①n ②1

（3）①Len(a) ②n\2 ③Mid(a,(n-i+1),1) ④Mid(a,(n-i+1),1)

（4）①n Mod 3=1 And n Mod 5=1 And n Mod 7=1 ②While CountN<5

（5）Mid(c1,1,i)

实验六

1：单项选择题：

D B D C D A C A D D

2：填空题：

（1）30

（2）3

（3）①a(2) ②a(3) ③a(1)

（4）①1 ②2 ③a(i)=a(6-i)

（5）①i+j ②0 ③a(i,j)

（6）①Print ②k ③a(k,j)=a(j,k) ④a(k,j);

实验七

1：单项选择题：

A B B A C B

2：填空题：

（1）15

（2）①Preserve a(n+1) ②a(i+1)=a(i) ③Exit For ④a(i+1)=m⑤0 to n+1 (或LBound(a) to UBound(a))

（3）d,c,b,a

实验八

1：单项选择题：

C A D B D C A C B

2：填空题：

（1）a=9 b=4

（2）

36

25

16

9

4

1

（3）①a ②UBound(b) ③

实验九

1：单项选择题：

D D D B B C A B C A D

2：填空题：

（1）①p=p*n ②Fac(n) ③10^-6

（2）①Max=x ②Max=y ③p ④Max(x,a(n))

（3）①number(i) ②n as integer ③number=number+7*10^(i-1) 实验十

1：单项选择题：

D C B A B C

实验十一

1：单项选择题：

D A D B B B B D D

实验十二

1：单项选择题：

C B C B C C B D A D D B C

2：填空题：

（1）①Label1.FondName=Combo1.Text

②Combo2.Text ③Label1.FontBold=True ④Label1.FondItalic=True ⑤Label1.FondSize=Combo3.Text

（2）①List1.Text ②List1.RemoveItem List1.ListIndex

③List1.AddItem List2.Text ④List2.RemoveItem

实验十三

实验十四

1：单项选择题：

D A C D A A B C

2：填空题：

（1） ShowFont

（2） 打开 另存为 颜色 字体 打印机 帮助

（3） 工程 部件 Microsoft Common Dialog Control 6.0

（4） ShowColor Action=3

实验十五

1：单项选择题：

C B B C B B B A D

2：填空题：

（1）内建菜单 弹出菜单

（2）Click

（3）工具

（4）代码窗口 Click

（5）相同 不同

实验十六

1：单项选择题：

B C A A C A C D D B D C C

2：填空题：

（1）①Open “c:\stud1.txt” For Output As #1

②Text1.Text=”End”

③White #1,Text1.Text

（2）①For Input ②For Output As #2 ③Not Eof(1)

④Input #1,str1 ⑤Close #1,#2 ⑥Kill(“c:\old.txt”

（3）①For Output ②For Input As #2

 

第二篇：VB程序设计教程第1-4章习题答案

Resource sharing “激情飞扬，数二最强” win-win future

《Visual Basic程序设计教程》习题答案

邱李华郭全编著人民邮电出版社20xx年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．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；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 ；O；N

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

6．B 7．C 8．B

11．D 12．D 13．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 4．C 5．D 9．A；B 10．B 14．C

26. 3 21

27. 2 4 -3 3

28. 11

29. 14 6 3

30. * *** ***** ******* ********* ***********

31. ***** **** *** ** *

32. 6

33. 10

34. 0 3 6 9 9 9 18 27 36 36