Visual Basic程序设计答案

清华大学出版上网

《Visual Basic程序设计》参考答案

第1章 程序设计及VB概述

一、选择题

1、C 2、A 3、A 4、C 5、B

6、C 7、D 8、A 9、D 10、C

二、填空题

1、 对象 Windows（不确定） 事件驱动

2、窗体 工程

3、查看对象 查看代码

4、CmdExam Click lbldisp

5、“启动”按钮 “运行”菜单“启动”命令 F5

6、Click事件过程

7、Cancel

8、Label1

第2章 Visual Basic程序设计基础

一、选择题

1、A 2、C 3、D 4、B 5、C

6、A 7、B 8、A 9、B 10、D

二、写出下列表达式的值

1、 6 2、 0 3、 8 4、False 5、False

6、 True 7、 －1 8、16.7 9、"C" 10、"Basic"

11、"VISUAL " 12、 5

三、将代数式改写成VB表达式

清华大学出版上网

1、(a + b) / (c * d - Sqr(1 - a * a)) + 5 ^ (1 / 3) * Cos(3.14159 / 3) ^ 2

2、Sin(45 * 3.14159 / 180) + Abs(x - y)

3、2 * Exp(x) + Log(x * y)

4、(Log(50) / Log(10) - Log(20)) / (9 * Exp(3))

5、Abs(x) >= Y And Abs(x) <> Z

6、m < 100 And m >= 0

7、(A Mod 3 = 0) Or (A Mod 7 = 0)

8、(N Mod 4 = 0 And N Mod 100 <> 0) Or (N Mod 400 = 0)

第3章 程序的基本控制结构

一、选择题

1、⑴ C ⑵ D 2、B 3、B 4、B 5、C

6、A 7、D 8、BD 9、C 10、D

11、A 12、A 13、D 14、A 15、A 16、D

二、填空题

1、 15 15

2、 x= 3 y=10

3、 1 2 3 4 5 6 7 8 9 0

* * * * *

* * * * *

* * * * *

4、 ⑴ 12345 ⑵ 54321

5、 ABCDE

6、 32

清华大学出版上网

7、 ⑴ k ⑵ If x < n Then n = x : nk = i ⑶ mk ⑷ m

8、 ⑴ exit for ⑵ f1 And f2 Then ⑶ f1 = f2

9、 ⑴ n ⑵ Len(CStr(nn) - 1) ⑶ c-1

⑷ Loop Until nn = 0 ⑸ n = m Then

10、⑴ Opt1.Value = True ⑵ Opt2.Value ⑶ Opt3.Value

⑷ CStr(k) ⑸ k-10 ⑹ Asc("A")

第4章 数组

一、选择题

1、B 2、A 3、D 4、C

二、填空题

1、Option Base 1

2、ReDim Preserve

3、Lbound UBound

4、可变

5、Index

6、 4 11

7、 27

8、 arr(1) Fmin=1 min = arr(i)

第5章 应用程序界面设计

一、选择题

1、C 2、B 3、A 4、B 5、D

6、D 7、D 8、DA 9、BC 10、A

11、A 12、B 13、A 14、A 15、A

二、填空题

清华大学出版上网

1、 通用

2、 Style

3、 Print lstEx.List(2)

4、 CmbEx.ListIndex = 4

5、 “－”

6、 PopupMenu

7、Enabled Interval True >0

8、窗体、图片框、框架

9、MultiLine ScrollBars

10、AutoSize Stretch

11、Image1.Picture = LoadPicture("c:\pic1.jpg")

12、Change

13、另存为

14、顶级

15、 ⑴ ListIndex Text 或 List(List1.ListIndex)

⑵ List(2)

⑶ x , Lst1.ListIndex +1

⑷ ListCount – 1 Selected RemoveItem i

第6章 过程

一、选择题

1、C 2、C 3、C 4、A 5、D

二、填空题

1、内存空间 或者：地址

2、传值 传址

清华大学出版上网

3、Sub TestAB(a As Single, b!, c As Boolean)

4、过程名 ＝ <表达式>

5、局部变量

6、Static

7、本过程 模块 整个工程

8、模块级 工程级

9、过程调用自身 递归结束 递归描述

10、 6 8 4

6 4 3

11、 0.6 1.8

12、 2 5 8 11

13、 3 1 3

0 1 3

4 1 3

0 1 3

1 1 3

第7章 鼠标和键盘

填空题

1、 11

2、 MouseDown MouseUp MouseMove

3、 Shift Ctrl Alt

4、 MouseDown MouseUp MouseUp

5、 A a

6、 Ctrl + Alt + 单击鼠标右键

清华大学出版上网

7、 Form-66

Text-66

第8章 文件

一、选择题

1、C 2、B 3、A 4、D 5、D

二、填空题

1、程序文件和数据文件 顺序文件和随机文件 ASCII文件和二进制文件

2、顺序 随机 二进制

3、 Output Append Input Random Binary Random

4、打开（建立） 读/写 关闭

5、Input# LineInput# Input() Get Put

6、Input As #10 Output As #20

7、Dir1.Path Drive1_Change()

第9章 多窗体和多文档界面

一、选择题

1、C 2、C 3、D 4、C 5、C

二、填空题

1、Load UnLoad

2、Show Hide

3、无效

4、图片框

5、图片框、计时器

第10章 文本和图形

选择题

清华大学出版上网

1、A 2、C 3、A 4、B 5、C

第3章 编程题参考答案

1、Private Sub Form_Click()

Dim a%, b%, c%

Dim d!, x1!, x2%

a = InputBox("a=")

b = InputBox("b=")

c = InputBox("c=")

d = b * b - 4 * a * c

If d < 0 Then '虚根

Print "x1="; -b / (2 * a); "+"; Sqr(-d) / (2 * a); "i"

Print "x2="; -b / (2 * a); "-"; Sqr(-d) / (2 * a); "i"

Else '实根

Print "x1="; (-b + Sqr(d)) / (2 * a)

Print "x2="; (-b - Sqr(d)) / (2 * a)

End If

End Sub

2、Private Sub Form_Click()

Dim n As Integer

For n = 1 To 100

If n Mod 8 <> 0 And n Mod 3 <> 0 Then

Print n

End If

Next

清华大学出版上网

End Sub

3、Private Sub Form_Click()

Dim n%, x%, n1%, n2%

n = InputBox("n=")

For i = 1 To n

x = InputBox("x=")

If x > 0 Then s1 = s1 + x: n1 = n1 + 1

If x < 0 Then s2 = s2 + x: n2 = n2 + 1

Next i

Print

Print "正数之和为："; s1, "个数为："; n1

Print "负数之和为："; s2, "个数为："; n2

End Sub

4、Private Sub Form_Click()

x = InputBox("x=")

i = 2

Print x; "=";

Do While x >= i

If x Mod i = 0 Then

If x = i Then Print i Else Print i; "*";

x = x \ i

Else

i = i + 1

End If

清华大学出版上网

Loop

End Sub

5、Private Sub Form_Click()

Dim x%, i%, n%

For i = 1 To 20

x = Int(100 * Rnd)

If x …… 此处隐藏：4698字，全部文档内容请下载后查看。喜欢就下载吧 ……