2011年VB学科期末考试复习题

一、选择题（20道）
1.以下说法正确的是__________。

A．属性是对象的一部分 B．方法是对象的一部分C．事件是对象的一部分D．A、B都正确
2.当滚动条中的滚动框仅次于最右端或最下端时，Value属性被设置为________。

A．Max B．Min C．LargeChange D．SmallChange 3.当命令按钮的___属性被设为True时，按Enter 键与单击命令按钮作用相同。

A．Cancel B．Caption C．Default D．Value 4.在Visual Basic中，组合框是___和___的组合。

A．复选框、文本框B．列表框、文本框
C．复选框、列表框 D．列表框、标签
5.以下_______为标准模块程序文件的扩展名。

A、.res
B、.cls
C、.frm
D、.bas
6.Visual Basic的窗体设计器主要是用来____。

A．建立用户界面 B．设计窗体的布局
C编写程序源代码 D添加图形、图像、数据等控件7.计时器事件使用_______________为单位。

A．秒 B．微秒 C．毫秒 D．分钟
8.通过____________属性可以改变窗体的标题。

A．Caption B．Icon C．Text D．BorderStyle 9.关于变量的说法不正确的是：____________。

A．变量名的长度不能超过255个字符
B．变量名可以包含小数点
C．不能将Visual Basic的保留字用作变量名
D．变量名的第一个字符必须是字母
10.在默认情况下InputBox()函数返回值的类是。

A．变体 B．数值或字符串 C．数值 D．字符串
二、填空题
三、程序阅读题
1.有以下循环：
Private Sub Command1_Click()
Dim X As Single: X = 1
X=1
Do
X = X + 1
MsgBox "X=" & X
Loop While X<6
End Sub
程序运行要求执行5次循环体，填写程序中的空白处，使程序完整。

2.一个命令按钮有如下程序：
Private Sub Inc(B yRef A As Integer)
Dim x As Integer
x = x + A
Print x;
End Sub
Private Sub Command1_Click()
Inc 6
Inc 10
End Sub
程序运行后，单击命令按钮，输出的结果为：6 16 3.在窗体上绘制一个命令按钮，然后编写如下程序：
Private Sub Command1_Click()
Dim A As String, B As Integer
A = InputBox("请输入一个字符串")
B = Len(A)
Print "字符串"; A; " 的长度是"; B
End Sub
在弹出的对话框中输入“SUZHOU”，运行结果为字符串SUZHOU的长度是6。

4.在窗体上绘制一个命令按钮，然后编写如下程序：
Private Sub Command1_Click()
Dim A As Integer, B As Integer
A = InputBox("请输入一个整数")
B = InputBox("请输入一个整数")
Print A & B
End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入100和50，输出的结果为10050。

5.下列程序段的循环次数是：20，执行结果是：21。

a = 1
Do While a <= 20
a = a + 1
Loop
Print a
6.下面程序执行后，单击命令按钮，输出的结果是：A1=20B1=10 A2=20B2=10。

Public Sub Swap1(X As Integer, Y As Integer) Dim T As Integer
T = X: X = Y: Y = T
End Sub
Public Sub Swap2(ByVal X As Integer, ByVal Y
As Integer) Array Dim T As Integer
T = X: X = Y: Y = T
End Sub
Private Sub Command1_Click()
Dim A As Integer, B As Integer
A = 10:
B = 20
Call Swap1(A, B)
Print "A1="; A; "B1="; B
Call Swap2(A, B)
Print "A2="; A; "B2="; B
End Sub
7.阅读以下程序：
Private Sub Command1_Click()
Dim K As Integer, A As Integer, B As Integer A = 20: B = 2: K = 2
Do While K < A
B = B * 2: K = K + 7
Loop
Print B
End Sub
程序运行后，单击命令按钮，输出的结果是：16 8.有如下程序，单击命令按钮后，输出结果是：24。

Private Sub Command1_Click()
Dim I As Integer, J As Integer, K As Integer For I = 1 To 3
For J = 1 To 5
If J Mod 2 <> 0 Then
K = K + 1
End If
K = K + 1
Next J
Next I
Print K
End Sub
四、程序编写题
1.输入某班30名同学的年龄,并计算该班
同学的平均年龄。

2.按下图所示，写出相应的代码，该程序
是求100~900之间的水仙花数，并添加
到列表框中。