200209月全国计算机等级考试二级VB试卷(含答案)

2002年9月全国计算机等级考试二级VB 试卷(含答案)
一、选择题(每题2分，共70分)
二、下列各题A) 、B) 、C) 、D) 四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡
相应位置上，答在试卷上不得分。

三、(1) 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是
四、A) 工程资源管理器窗口B) 工具箱窗口
五、C) 代码窗口D) 属性窗口
六、(2) 以下叙述中正确的是
七、A) 窗体的Name属性指定窗体的名称，用来标识一个窗体
八、B) 窗体的Name属性的值是显示在窗体标题栏中的文本
九、C) 可以在运行期间改变对象的Name属性的值
十、D) 对象的Name属性值可以为空
十一、(3) 刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是
十二、A) 单选按钮B) 图片框C) 通用对话框D) 文本框
十三、(4) 设有如下变量声明
十四、 Dim TestDate As Date
十五、为变量TestDate正确赋值的表达方式是
十六、A) TextDate=#1/1/2002# B) TestDate=#“1/1/2002”#
十七、C) TextDate=date(“1/1/2002”) D) TestDate=Format(“m/d/yy”,“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=InputBox(“输入数值”，“0”，“示例”)
三十九、程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是
四十、A) 变量X的值是数值10 B) 在InputBox对话框标题栏中显示的是“示例”
四十一、C) 0是默认值D) 变量X的值是字符串“10”
四十二、(9) 从键盘上输入两个字符串，分别保存在变量str1、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) 文本框失去焦点B) 文本框获得焦点
四十九、C) 设置文本框的焦点D) 改变文本框的内容
五十、(12) 在窗体上有一个文本框控件，名称为TxtTime：一个计时器控件，名称为Timerl，要求每一秒钟在文本框中显示一次当前的时间。

程序为：
五十一、Private Sub Timer1_ ()
五十二、=Time
五十三、End Sub
五十四、在下划线上应填入的内容是
五十五、A) Enabled B) Visible C) Interval D) Timer
五十六、(13) 在窗体上画两个单选按钮，名称分别为Option1、Option2，标题分别为“宋体”和“黑体”；
一个复选框，名称为Check1,标题为“粗体”；一个文本框，名称为Text1，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) 在窗体上画一个命令按钮，名称为Command1。

然后编写如下程序：
六十五、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
七十三、程序运行后，如果单击命令按钮，则在窗体上显示的内容是
七十四、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 Integer,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 Integer,j 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) 在调用过程时，所有局部变量被系统初始化为0或空字符串
百五十三、(23) 在窗体上画一个命令按钮，名称为Command1。

程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。

在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。

能够正确实现上述功能的代码是
百五十四、A) Private Sub Command1_Click()
百五十五、x=InputBox(“请输入整数”)
百五十六、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=InputBox(“请输入整数”)
百六十九、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
二百五、End Function
二百六、(24) 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序：
二百七、Private Sub Command1_Click()
二百八、Dim x,y,z As Integer
二百九、x=5
二百十、y=7
二百十一、z=0
二百十二、=“”
二百十三、Call P1(x,y,z)
二百十四、=Str(x)
二百十五、End Sub
二百十六、Sub P1(ByVal a As Integer,ByVal b As Integer,c As Integer)
二百十七、c=a+b
二百十八、End Sub
二百十九、程序运行后，如果单击命令按钮，则在文本框中显示的内容是
二百二十、A) 0 B) 12 C) Str(z) D) 没有显示
二百二十一、(25) 以下叙述中错误的是
二百二十二、A) 如果过程被定义为Static类型，则该过程中的局部变量都是Static类型
二百二十三、B) Sub过程中不能嵌套定义Sub过程
二百二十四、C) Sub过程中可以嵌套调用Sub过程
二百二十五、D) 事件过程可以像通用过程一样由用户定义过程名
二百二十六、(26) 以下叙述中错误的是
二百二十七、A) 在KeyUp和KeyDown事件过程中，从键盘上输入A或a被视作相同的字母(即具有相同的KeyCode)
二百二十八、B) 在KeyUp和KeyDown事件过程中，将键盘上的“1”和右侧小键盘上的“1”视作不同的数字(具有不同的KeyCode)
二百二十九、C) KeyPress事件中不能识别键盘上某个键的按下与释放
二百三十、D) KeyPress事件中可以识别键盘上某个键的按下与释放
二百三十一、(27) 以下叙述中错误的是
二百三十二、A) 在同一窗体的菜单项中，不允许出现标题相同的菜单项
二百三十三、B) 在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的访问键
二百三十四、C) 程序运行过程中，可以重新设置菜单的Visible属性
二百三十五、D) 弹出式菜单也在菜单编辑器中定义
二百三十六、(28) 设在菜单编辑器中定义了一个菜单项，名为menu1。

为了在运行时隐藏该菜单项，应使用的语句是
二百三十七、A) =True B) =False
二百三十八、C) =True D) =False
二百三十九、(29) 以下叙述中错误的是
二百四十、A) 在程序运行时，通用对话框控件是不可见的
二百四十一、B) 在同一个程序中，用不同的方法(如ShowOpen或ShowSave等）打开的通用对话框具有不同的作用
二百四十二、C) 调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件
二百四十三、D) 调用通用对话框控件的ShowColor方法，可以打开颜色对话框
二百四十四、(30) 在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件)，则正确的描述格式是
二百四十五、A) “text (.txt)|(*.txt)” B)“文本文件( .txt) | (.txt)”
二百四十六、C) “text(.txt)||(*.txt)” D)“text(.txt)(*.txt)”
二百四十七、(31) 以下叙述中错误的是
二百四十八、A) 一个工程中只能有一个Sub Main过程
二百四十九、B) 窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体
二百五十、C) 窗体的Hide方法和Unload方法的作用完全相同
二百五十一、D) 若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体
二百五十二、(32) 以下叙述中错误的是
二百五十三、A) 一个工程中可以包含多个窗体文件
二百五十四、B) 在一个窗体文件中用Private定义的通用过程能被其他窗体调用
二百五十五、C) 在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件
二百五十六、D) 全局变量必须在标准模块中定义
二百五十七、(33) 设在工程中有一个标准模块，其中定义了如下记录类型
二百五十八、Type Books
二百五十九、Name As String *10
二百六十、TelNum As String *20
二百六十一、End Type
二百六十二、在窗体上画一个名为Command1的命令按钮。

要求当执行事件过程Command1_Click 时，在顺序文件中写入一条记录。

下列能够完成该操作的事件过程是
二百六十三、A) Private Sub Command1_Click()
二百六十四、Dim B As Books
二百六十五、Open “c:\”For Output As #1
二百六十六、=InputBox(“输入姓名”)
二百六十七、=InputBox(“输入电话号码”)
二百六十八、Write #1,,
二百六十九、Close #1
二百七十、End Sub
二百七十一、B) Private Sub Command1_Click()
二百七十二、Dim B As Books
二百七十三、Open “c:\”For Input As #1
二百七十四、=InputBox(“输入姓名”)
二百七十五、=InputBox(“输入电话号码”)
二百七十六、Print #1,,
二百七十七、Close #1
二百七十八、End Sub
二百七十九、C) Private Sub Command1_Click()
二百八十、Dim B As Books
二百八十一、Open “c:\”For Output As #1
二百八十二、=InputBox(“输入姓名”)
二百八十三、=InputBox(“输入电话号码”)
二百八十四、Write #1,B
二百八十五、Close #1
二百八十六、End Sub
二百八十七、D) Private Sub Command1_Click()
二百八十八、Open “c:\”For Input As #1
二百八十九、Name=InputBox(“输入姓名”)
二百九十、TelNum=InputBox(“输入电话号码”)
二百九十一、Print #1,Name,TelNum
二百九十二、Close #1
二百九十三、End Sub
二百九十四、(34) 以下叙述中正确的是
二百九十五、A) 一个记录中所包含的各个元素的数据类型必须相同
二百九十六、B) 随机文件中每个记录的长度是固定的
二百九十七、C) Open命令的作用是打开一个已经存在的文件
二百九十八、D) 使用Input #语句可以从随机文件中读取数据
二百九十九、(35) 目录列表框的Path属性的作用是
三百、A) 显示当前驱动器或指定驱动器上的目录结构
三百一、B) 显示当前驱动器或指定驱动器上的某目录下的文件名
三百二、C) 显示根目录下的文件名
三百三、D) 显示该路径下的文件
三百四、二、填空题( 每空2分，共40分）
三百五、请将每空的正确答案写在答题卡( 1)至( 15) 的横线上，答在试卷上不得分。

三百六、(1) 在窗体上画两个标签，其名称分别为Label1和Label2,Caption属性分别为“数值”及空白；
然后画一个名称为Hscoll1的水平滚动条，其Min的值为0，Max的值为100。

程序运行后，如果单击滚动条两端的箭头，则在标签Lable2中显示滚动条的值，如图所示。

请在[1] 和[2] 处填入适当的内容，将程序补充完整。

三百七、
三百八、
三百九、
三百十、
三百十一、
三百十二、
三百十三、
三百十四、Private Sub HScroll1_ [1] ()
三百十五、=HScroll1. [2]
三百十六、End Sub
三百十七、(2) 在窗体上画一个名称为Command1、标题为“计算”的命令按钮；画两个文本框，名称分别为Text1和Text2；然后画4个标签，名称分别为Label1、Label2、Label3和Label4，标题分别为“操作数1”、“操作数2”、“运算结果”和空白；再建立一个含有4个单选按纽的控件数组，名称为Option1，标题分别为“+”、“-”、“*”和“/”。

程序运行后，在Text1、Text2中输入两个数值，选中一个单选按钮后单击命令按钮，相应的计算结果显示在Label4，程序运行情况如图所示。

请在[3] 、[4] 和
[5] 处填入适当的内容，将程序补充完整。

三百十八、
三百十九、
三百二十、Private Sub Command1_Click()
三百二十一、For i=0 To 3
三百二十二、If [3] =True then
三百二十三、opt=Option1(i).Caption
三百二十四、End If
三百二十五、Next
三百二十六、Select Case [4]
三百二十七、Case”+”
三百二十八、Result=Val+Val
三百二十九、Case”-”
三百三十、Result=Val-Val
三百三十一、Case”*”
三百三十二、Result=Val*Val
三百三十三、Case”/”
三百三十四、Result=Val/Val
三百三十五、End Select
三百三十六、 [5] =Result
三百三十七、End Sub
三百三十八、(3) 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。

程序运行后，Command1为禁用(灰色) 。

当向文框中输入任何字符时，命令按钮Command1变为可用。

请在[6] 处填入适当的内容，将程序补充完整。

三百三十九、Private Sub Form_Load()
三百四十、=False
三百四十一、End Sub
三百四十二、Private Sub Text1_ [6] ()
三百四十三、=True
三百四十四、End Sub
三百四十五、(4) 在菜单编辑器中建立了一个菜单，名为pmenu，用下面的语句可以把它作为弹出式菜单弹出，请填空。

三百四十六、 Form1. [7] Pmenu
三百四十七、(5) 以下程序的功能是：从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分数。

请在[8] 和[9] 处填入适当的内容，将程序补充完整。

三百四十八、Private Sub Form_Click()
三百四十九、Dim x As Single,amax As Single,amin As Single
三百五十、x=InputBox(“Enter a score”)
三百五十一、amax=x
三百五十二、amin=x
三百五十三、Do While [8]
三百五十四、If x>amax Then
三百五十五、Amax=x
三百五十六、End If
三百五十七、If [9]Then
三百五十八、Amin=x
三百五十九、End If
三百六十、x=InputBox(“Enter a score”)
三百六十一、Loop
三百六十二、Print”Max=”;amax,”Min=”;amin
三百六十三、End Sub
三百六十四、(6) 在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：
三百六十五、Private Sub Form_Load()
三百六十六、=”计算机”
三百六十七、End Sub
三百六十八、Private Sub Text1_Change()
三百六十九、“等级考试”
三百七十、End Sub
三百七十一、程序运行后，在文本框中显示的内容是[10] ，而在图片框中显示的内容是[11] 。

三百七十二、(7) 在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序：
三百七十三、Function M(x As Integer,y As Integer)As Integer
三百七十四、M=IIf(x>y,x,y)
三百七十五、End Function
三百七十六、Private Sub command1_Click()
三百七十七、Dim a As Integer,b As Integer
三百七十八、a=100
三百七十九、b=200
三百八十、Print M(a,b)
三百八十一、End Sub
三百八十二、程序运行后，单击命令按钮，输出结果为[12] 。

三百八十三、(8) 为了改变计时器控件的时间间隔，应该修改该控件的[13] 属性。

三百八十四、(9) 在窗体上画一个名称为Lable1的标签和一个名称为List1的列表框。

程序运行后，在列表框中添加若干列表项。

当双击列表框中的某个项目时，在标签Label1中显示所选中的项目，如图所示。

请在[14] 和[15] 处填入适当的内容将程序补充完整。

三百八十五、Private Sub Form_load()
三百八十六、”北京”
三百八十七、”上海”
三百八十八、”湖北”
三百八十九、End Sub
三百九十、Private Sub [14] ()
三百九十一、= [15]
三百九十二、End Sub
三百九十三、
三百九十四、2002年9月全国计算机等级考试二级VB 试卷答案
三百九十五、
三百九十六、（无锡伊斯特教育培训中心考点提供）
三百九十七、
三百九十八、一、选择题：
三百九十九、1—10 C A C A D B B D D B
四百、11—20 D D D C A B B B A D
四百一、21—30 C C B B D C A D C A
四百二、31—35 C B A D A
四百三、
四百四、二、填空题：
四百五、
四百六、1、CHANGE 2、V ALUE 3、OPTION1（I）.V ALUE
4、OPT
5、LABEL4。

CAPTION
6、CHANGE
7、POPUPMENU 8、X>=0 9、X
10、计算机11、等级考试12、200
13、Interval 14、LIST1_DBLCLICK 15、。