2002年9月全国计算机等级考试二级
一、 选择题（每题2分，共70分）
VB试卷（含答案）
二、 下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡 相应位置上，答在试
卷上不得分。 ~.、 四、 五、 六、 七、 八、 九、 十、 十一、 十二、 十三、 十四、 十五、 十六、 十七、
（1）在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 A）工程资源管理器窗口 C）代码窗口 D）属性窗口 （2）以下叙述中正确的是
A）窗体的Name属性指定窗体的名称，用来标识一个窗体 B）窗体的Name属性的值是显示在窗体标题栏中的文本 C）可以在运行期间改变对象的 D）对象的Name属性值可以为空
（3）刚建立一个新的标准 EXE工程后，不在工具箱中出现的控件是 A）单选按钮B）图片框C）通用对话框 D）文本框 （4）设有如下变量声明 Dim TestDate As Date
为变量TestDate正确赋值的表达方式是
B）工具箱窗口
Name属性的值
A) TextDate=#1/1/2002# B) TestDate=# “1/1/2002 ”#
“m/d/yy ” ,
C) TextDate=date( “1/1/2002 ”)D) TestDate=Format(
“1/1/2002 ”)
十八、 （5）设有如下声明：
十九、 二十、 二^一、 二十二、 二十三、 二十四、 二十五、 二十六、 二十七、 二十八、 二十九、 三十、 三^一、 三十二、 三十三、 三十四、 三十五、 三十六、 三十七、 三十八、 三十九、 四十、 四十一、
Dim X As Integer
如果Sgn（X）的值为-1,则X的值是
A）整数B）大于0的整数C）等于0的整数 D）小于0的数
（6）在窗体上画一个名称为 Commandl的命令按钮，然后编写如下程序： Private Sub Command1_Click() Static X As Integer Static Y As Integer
Cls Y=1 Y=Y+5 X=5+X Print X,Y End Sub
程序运行时，三次单击命令按钮
Commandl后，窗体上显示的结果为
A) 15 16 B) 15 6 C) 15 15 D) 5 6 （7）设a=3,b=5,则以下表达式值为真的是 A) a>=b And b>10 B) (a>b)Or(b>0) C) (a<0)Eqv(b>0) D) (-3+5>a)And(b>0) （8）设有语句
x=lnputBox（输入数值”，“0”示例”）
程序运行后，如果从键盘上输入数值
10并按回车键，则下列叙述中正确的是
示例”
A）变量X的值是数值10 B）在InputBox对话框标题栏中显示的是 C） 0是默认值 D）变量X的值是字符串“10”
四十二、 (9)从键盘上输入两个字符串，分别保存在变量
字符串中起始位置的函数是 四十三、 四十四、
strl、str2中。确定第二个字符串在第一个
A) Left B) Mid C) String D) Instr
(10)设 a= “Visual Basic，'下面使 b= “Basic 的语句是 A) b=Left(a,8,12) B) b=Mid(a,8,5) C) b=Rigth(a,5,5) D) b=Left(a,8,5)
四十五、 四十六、 四十七、 四十八、 四十
(11) 以下能够触发文本框 Change事件的操作是 A)文本框失去焦点 C)设置文本框的焦点
B)文本框获得焦点 D)改变文本框的内容
TxtTime :一个计时器控件，名称为 Timerl，要求
(12) 在窗体上有一个文本框控件，名称为 九、 五十、
每一秒钟在文本框中显示一次当前的时间。程序为:
五^一、
Private Sub Timer1_ () =Time End Sub
在下划线上应填入的内容是
五十二、 五十三、 五十四、 五十五、 五十六、
A) Enabled B) Visible C) Interval D) Timer
(13)在窗体上画两个单选按钮，名称分别为Option1、Option2，标题分别为 宋体\和 黑体\
一个复选框，名称为 Checkl,标题为粗体” 一个文本框，名称为 Textl, Text属性为改变文字字体 要求程序运行时， 宋体\单选按钮和 粗体\复选框被选中(窗体外观如下图)，则能够实现上述要求的 语句序列是 五十七、 五十八、 五十九、 六十、 六^一、 六十二、
A) =True B) =True =False =True C) =False D) =True =True =1
(14) 为了在按下Esc键时执行某个命令按钮的
Click事件过程，需要把该命令按钮的一个属
性设置为 True，这个属性是 六十三、 六十四、 六十五、 六十六、 六十七、 六十八、 六十九、 七十、 七十一、 七十二、 七十三、 七十四、 七十五、 七十六、 七十七、 七十八、 七十九、
A) Value B) Default C) Cancel D) Enabled (15) 在窗体上画一个命令按钮，名称为 Private Sub Command1_Click() For I=1 To 4 For J=0 To 1 Print Chr$(65+I); Next J Print Next I End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是
Command1。然后编写如下程序：
A) BB B) A C) B D) AA CC BB CC BBB DDDD CCC DDD CCCC EEEEE DDDD EEEE DDDDD
(16)图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是 A) Autosize B) Stretch
八十、 八十一、 C) AutoRedraw D) Appearance (17)在窗体上画两个名称分别为
Text1、Texte2的文本框和一个名称为
Command1 的命令按
钮，然后编写如下事件过程： 八十二、 八十三、 八十四、 八十五、 八十六、 八十七、 八十八、 八十九、 九十、 九十一、 九十二、 九十三、 九十四、 九十五、
Private Sub Command1_Click()
Dim x As lnteger,n As Integer
x=1 n=0
Do While x<20
x=x*3
n=n+1
Loop =Str(x) =Str(n)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别是
A) 15 和 1 B) 27 和 3 C) 195 和 3 D) 600 和 4 (18)在窗体上画一个名称为
Text1的文本框和一个名称为
Command1 的命令按钮, 然后编
写如下事件过程: 九十六、 Private Sub Command1_Click() 九十七、 九十八、 九十九、 百、 百一、 百二、 百三、 百四、 百五、 百六、 百七、
Dim i As Integer,n As Integer For I=0 To 50 i=i+3
n=n+1
If i>10 Then xit for Next
=Str(n) End Sub
程序运行后，单击命令按钮，在文本框中显示的值是
A) 2 B) 3 D) 4 D) 5
(19)在窗体上画一个名称为 Text1的文本框和一个名称为
Command1的命令按钮，然后编
写如下事件过程： 百八、 百九、 百十、 百十一、 百十二、 百十三、 百十四、 百十五、 百十六、 百十七、 百十八、 百十九、 百二十、
Private Sub Command1_Click() Dim array1(10,10) As Integer Dim i,j As Integer For i=1 To 3 For j=2 To 4 array1(i,j)=i+j Next j Next I
=array1(2,3)+array1(3,4) End Sub
程序运行后，单击命令按钮，在文本框中显示的值是
A) 12 B) 13 C) 14 D) 15
(20)在窗体上画一个名称为 Command1的命令按钮，然后编写如下程序：
百二十一、 百二十二、 百二十三、 百二十四、 百二十五、 百二十六、 百二十七、 百二十八、 百二十九、 百三十、 百三十一、 百三十二、 百三十三、 百三十四、 百三十五、 百三十六、 百三十七、 百三十八、 百三十九、 百四十、 百四十一、 百四十二、 百四十三、 百四十四、 百四十五、 百四十六、 百四十七、 百四十八、 百四十九、 百五十、
程
Private Sub Command1_Click() Dim i As Integerj As Integer Dim a(10,10)As Integer For i=1 To 3
For j=1 To 3 a(i,j)=(i-1)*3+j Print a(i,j);
Next j Print Next j
End Sub
程序运行后，单击命令按钮，窗体上显示的是
A) 123 B) 234 C) 147 D) 123 246 345 258 456 369 456 369 789 (21)设有如下程序： Option Base 0
Private Sub Form_Click() Dim a Dim i As Integer
a=Array(1,2,3,4,5,6,7,8,9) For i=0 To 3 Print a(5-i); Next End Sub
程序运行后，单击窗体，则在窗体上显示的是
A) 4 3 2 1 B) 5 4 3 2 C) 6 5 4 3 D) 7 6 5 4 (22)下列叙述中正确的是
A)在窗体的Form_Load事件过程中定义的变量是全局变量 B)局部变量的作用域可以超出所定义的过
百五十一、 C)在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，
其作用域只限于该过程
百五十二、 百五十三、
但
D)在调用过程时，所有局部变量被系统初始化为 (23)在窗体上画一个命令按钮，
0或空字符串
Flo在F1
名称为Command1。程序运行后，如果单击命令按钮，
则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程 中判断所输入的整数是否是奇数，如果是奇数，过程 的代码是
百五十四、 百五十五、 百五十六、 百五十七、 百五十八、 百五十九、 百六十、
F1返回1,否则返回0。能够正确实现上述功能
A) Private Sub Command1_Click() x=lnputBox(请输入整数”)
a=F1(Val(x)) Print a End Sub
Function F1(ByRef b As Integer)
百六十一、 百六十二、 百六十三、 百六十四、 百六十五、 百六十六、 百六十七、 百六十八、 百六十九、 百七十、 百七十一、
百七十二、 百七十三、 百七十四、 百七十五、 百七十六、 百七十七、 百七十八、 百七十九、 百八十、 百八十一、 百八十二、 百八十三、 百八十四、
百八十五、 百八十六、 百八十七、 百八十八、 百八十九、 百九十、 百九十一、 百九十二、 百九十三、 百九十四、 百九十五、 百九十六、 百九十七、
百九十八、 百九十九、 二百、 二百一、 二百二、 二百三、 二百四、
If b Mod 2=0 Then Return 0 Else Return 1 End If
End Function
B) Private Sub Command1_Click() x=lnputBox（请输入整数”） a=F1(Val(x)) Print a
End Sub
Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=0 Else F1=1 End If
End Function
C) Private Sub Command1_Click()
x=InputBox（请输入整数”） F1(Val(x)) Print a End Sub
Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=1 Else F1=0
End If End Function
D) Private Sub Command1_Click() x=InputBox（请输入整数”） F1(Val(x)) Print a End Sub
Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If
200209月全国计算机等级考试二级VB试卷(含答案)
