《VB程序设计教程(第二版)》习题更正

同步练习2 （P39）

二、选择题

5．下面关于对象的描述中， 是错误的。

A. 对象就是用户自己定义的变量

B. 对象代表正在创建的一个实体

C. 对象是一个特征和操作的封装体

D. 对象间信息传递通过消息进行

四、编程题

6．设计一个如图2.19所示的界面。要求编

程实现如下功能：在4个文本框中分别输入

适当的数值，单击“改变”按钮后，窗体移动

到由“横坐标”和“纵坐标”文本框指定的位置

上，并且窗体的高度和宽度也变为“高度”和

“宽度”文本框指定的值。

图2.19 改变窗体

同步练习3 （P57）

二、选择题

9．数学关系表达式3x 10 ≤对应的VB 表达式为 。

A. 3<=x<10

B. 3<=x And x<10

C. 3<=x And <10

D. x>=3 Or x<10

15．下列函数中，返回值是字符串的是 。

A. Chr

B. Asc

C. Val

D. Rnd

16．在下列数据中，属于日期型常量的是 。

A ．11/12/2010

B ．"11/12/2010"

C ．{11/12/2010}

D ．#11/12/2010#

同步练习4 （P93）

一、选择题

8．对于以下循环结构：

Do

循环体

Loop While <条件表达式>

则错误的叙述是_________。

A ．条件表达式可以是关系表达式、逻辑表达式或常数

B ．若在循环体中执行Exit Do 语句，可以退出循环

C ．若条件表达式的值总为False ，则一次也不执行循环体

D ．若条件表达式的值总为True ，则无休止地重复执行循环体

18．在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：

Private Sub Command1_Click()

Dim i As Integer, x As Integer

For i = 1 To 6

If i = 1 Then x = i

If i <= 4 Then x = x + 1 Else x = x + 2

Next i

Print x

End Sub

程序运行后，单击命令按钮，其输出结果为_________。

A．9B．6C．12D．15 22．在窗体上画两个文本框Text1和Text2，然后编写如下事件过程：

Private Sub Form_Click() n = Text1.Text

Select Case n

Case 1 To 20

x = 10

Case 2, 4, 6

x = 20

Case Is < 10

x = 30

Case 10

x = 40

End Select

Text2.Text = x End Sub

程序运行后在Text1输入10，再单击窗体，则在Text2中显示的内容是_________。A．10 B．20 C．30 D．40

23．以下程序的输出结果是_________。

Private Sub Form_Click()

m = 9

Select Case m

Case 0, 2, 4, 6, 8, 10

Print "10以内的偶数"

Case 1, 3, 5, 7, 9

Print "10以内的奇数"

Case Is > 10

Print "大于10的数"

Case Else

Print "小于0的数"

End Select

End Sub

A．10以内的偶数B．10以内的奇数C．大于10的数D．小于0的数二、填空题

1．InputBox函数返回值的类型是；MsgBox函数返回值的类型是。2．以下程序段的输出结果是_________。

num=0

Do While num<=2

num=num+1 : Print num,

Loop

同步练习5 （P127）

一、选择题

10. 执行下列程序时，依次输入10、20、30后，程序的显示结果为_________。

Private Sub Form_Click()

Dim m(4) As Integer, n(4) As Integer

For i = 0 To 2

m(i + 1) = Val(InputBox("请输入数据:"))

n(3 - i) = m(i + 1)

Next

Print n(i)

End Sub

A. 0

B. 30

C. 10

D. 50

同步练习6 （P157）

一、选择题

1．关于VB过程的定义与嵌套，以下描述正确的是_________。

A. 过程的定义可以嵌套，但过程的调用不能嵌套

B. 过程的定义可以嵌套，过程的调用也可以嵌套

C. 过程的定义不能嵌套，但过程的调用可以嵌套

D. 过程的定义不能嵌套，过程的调用也不能嵌套

8．在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：

Dim SW As Boolean

Function func(X As Integer) As Integer If X < 20 Then

Y = X

Else

Y = 20 + X

End If

func = Y

End Function

Private Sub Command1_Click()

Dim intNum As Integer

intNum = InputBox("")

If SW Then

Print func(intNum)

End If

End Sub

Private Sub Form_MouseDown(Button As Integer,Shift As Integer,_ X As Single, Y As Single)

SW = False

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer,_ X As Single, Y As Single)

SW = True

End Sub

程序运行后，先左击窗体，再单击命令按钮，在输入框中输入25，程序执行结果是______。

A．0 B．25 C．45 D．无任何输出

同步练习7 （P206）

一、选择题

2．下列操作中不能向工程中添加窗体的是_________。

A．执行“工程”|“添加窗体”命令

B．单击工具栏上的“添加窗体”按钮

C．在工程管理器中左击窗体，然后选择“添加窗体”命令

D．在工程管理器中右击窗体，执行快捷菜单中的“添加”|“添加窗体”命令

同步练习9 （P262）

二、填空题

9．将C盘根目录下的一个旧文本文件old.dat复制到新文件new.dat中，并利用文件操作语句将old.dat文件从磁盘上删除。请填空。

Private Sub Command1_Click()

Dim str1$

Open "C:\old.dat" _________ As #1

Open "C:\new.dat" _________ As #2

Do While _________

Line Input #1,_________

Print #2, str1

Loop

_________

Kill "C:\old.dat"

End Sub