2002年9月全国计算机等级考试二级VB语言笔试试题及答案

一、选择题(每题2分，共70分)
以下问题A)、B)、C)、D)四个选项中，只有一个选项是正确的。请在答题卡的相应位置涂上正确选项，答案不会在试卷上计分。
(1)在设计阶段，双击窗体上的一个控件时，打开的窗口是
A)项目资源管理器窗口b)工具箱窗口
C)代码窗口d)属性窗口
(2)下列说法正确的是
A)。用于标识一个表单
B)表单的Name属性的值是表单标题栏中显示的文本
C)对象的Name属性的值可以在运行时更改
D)对象的Name属性的值可以是空
(3)刚建立一个新的标准EXE项目后， 没有出现在工具箱中的控件有
A)单选按钮b)图片框c)常规对话框d)文本框
(4)带有以下变量声明
Dim TestDate As Date
。 将值正确赋给变量testdate的表达式是
A)text date = # 1/1/2002 # B)test date = # " 1/1/2002 " #
C)text date = date(" 1/1/2002 ")D)test date = Format(" m/D/YY "，" 1/1/2002")
(5)有以下语句:
Dim X As Integer
如果Sgn(X 然后编写下面的程序:[/Br/]private subcommand 1 _ click()[/Br/]static x as integer[/Br/]static y as integer[/Br/]cls[/Br/]y = 1[/Br/]y = y+5[/Br/]x = Br/]当print x，y
end sub
程序运行时，单击命令按钮command三次后，窗体上显示的结果为
a) 15 16b) 15 6c) 以下表达式的值为真
a) a > = b且b > 10b)(a > b)or(b > 0)
c)(A0)d)(-3+5 > a)and(b > 0)
(“例”)
程序运行后，如果从键盘输入值10并按enter， 下列说法正确的是
A)变量x的值是数值10 B)例子显示在InputBox对话框的标题栏中
C) 0是默认值d)变量x的值是字符串“10”确定第一个字符串中第二个字符串起始位置的函数是
A)left B)mid C)string d)instr
(10)让a = "visual basic "， 而下面使b = "basic "的语句是
a) b = left (a，8，8，8，5)
C)b = right(A，5，5) D) b=Left(a，8，5)
(11)下面可以触发文本框的Change事件的动作是
a)文本框失去焦点b)文本框获得焦点
C)文本框的焦点被设置D)文本的内容 程序为:
private sub time R1 _()
txt time . text = time
end sub
下划线里要填的是
a)启用b)可见c)间隔d)定时器
(13)在窗体上画两个单选按钮，名称分别为Option1和Option2，标题分别为“微软优雅黑”和“粗体”；名为Check1、标题为“粗体”的复选框；名为Text1的文本框，其Text属性为“更改文本字体”。当需要运行程序时，选中“Microsoft Yahe”单选按钮和“Bold”复选框(表单如下图所示)，那么可以实现上述要求的语句序列是
a)option 1 . value = true b)option 1 . value = true
check 1 . value = false check 1 . value = true
c)option 2 . value = false d)1 .option = True
check1。value = truecheck1。value = 1
(14)为了在按下Esc键时执行命令按钮的Click事件过程，需要将命令按钮的一个属性设置为true。此属性为
a)值b)默认值c)取消d)启用
(15)在表单上绘制一个名为Command1的命令按钮。然后编写下面的程序:
private子命令1 _ click()
for I = 1to 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 bb bb bb
ddccc ddccc
eeeeee dddee dddd
(16)图像框有一个可以自动调整图形的属性，为了适应图像框架的大小，该属性为
a)自动调整b)拉伸
c)自动重绘d)外观
(17)在表单上绘制两个名为Text1和Texte2的文本框和一个名为Command1的命令按钮。然后编写下面的事件过程:
private subcommand 1 _ click()
dim x As integer，As integer
x = 1
n = 0
do while X10 then xit for
next
text 1 . text = str(n)
end sub
程序运行后， 文本框中显示的值是
A) 2 B) 3 D) 4 D) 5
(19)在窗体上绘制一个名为Text1的文本框和一个名为Command1的命令按钮，然后编写以下事件过程:
private subcommand 1 _ click()
dimarray 1(10，10) as integer
米蒂，j As Integer
For i=1到3
For j=2到4
Text=array1(2，3)+array1(3，4)
End Sub
程序运行后，单击命令按钮。文本框中显示的值为
a)12b)13c)14d)15
(20)在窗体上绘制一个名为Command1的命令按钮，然后编写以下程序:
private subcommand 1 _ click()
dim I as integer，j as integer
dim a (10，10)as integer
for I = 1to 3
for j = 1to 3

next j
该表单显示
a)123 b)234 c)147d)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
Next
End Sub
程序运行后，单击Form， 窗体上显示的是
A)4 3 2 1b)5 4 3 2c)6 5 4 3d)7 6 5 4
(22)下列说法正确的是
A)窗体的Form_Load事件中定义的变量是全局变量
B)局部变量的作用域可以超出定义的过程
C) Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但它们的范围仅限于该过程
D)调用该过程时，所有局部变量都被初始化为0或窗体上的空 string
(23)。 程序运行后，如果单击命令按钮，将显示一个输入对话框。在此对话框中，输入一个整数，并以此整数作为参数调用函数过程F1。在F1中，判断输入的整数是否为奇数，如果是，流程F1返回1，否则返回0。能够正确实现以上功能的代码是
A)private subcommand 1 _ click()
x =输入框("请输入一个整数")
A = F1(val(x)]
print A
End sub[/br]Function F1(ByRef B As Integer)
If B Mod 2 = 0则
Return 0
Else
Return 1
End If
End Function 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 command 1 _ click()
x = InputBox("请输入一个整数")
F1(val(x))
print a
End sub 打印一个
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 subcommand 1 _ Click()
如果单击命令按钮，文本框中显示的内容是
A) 0 B) 12 C) Str(z) D)不显示
(25)下列语句中错误的是
A)如果将过程定义为静态类型， 那么这个过程中的局部变量都是静态类型的
B) Sub过程不能嵌套在Sub过程中
C) Sub过程可以嵌套在Sub过程中
D)事件过程可以像通用过程一样由用户定义
(26)下列语句中的错误是
A)在KeyUp和KeyDown事件期间， 从键盘输入a或a被认为是相同的字母(即具有相同的键码)
B)在KeyUp和KeyDown事件期间， 将键盘上的“1”和右小键盘上的“1”视为不同的数字(键码不同)
c)keypress事件中无法识别键盘上某个键的按下和释放
d)keypress事件中可以识别键盘上某个键的按下和释放
(27)下列语句中的错误是[在同一表单的菜单项中， 不允许有相同标题的菜单项
B)在菜单的标题栏中，由“&”引导的字母表示访问该菜单项的访问键
C)在程序运行过程中，可以重置菜单的Visible属性
D)弹出菜单也是在菜单编辑器中定义的
(28要在运行时隐藏该菜单项，要使用的语句是
A) menu1。 enabled = trueb) munu1。enabled = false
c) menu1。visible = trued)菜单1。visible = false
(29)下列说法错误的是
a)程序运行时，通用对话框控件不可见
B)在同一个程序中，不同方法打开的通用对话框(如ShowOpen或ShowSave等，)具有不同的功能
C)调用通用对话框控件的ShowOpen方法，可以直接打开通用对话框中指定的文件
D)调用通用对话框控件的ShowColor方法，可以打开颜色对话框
(30)使用通用对话框控件创建“打开”或“保存”文件对话框时，如果需要指定文件列表框中列出的文件类型为文本文件(即，txt文件)，那么正确的描述格式是
a) "text(。txt) | (*。txt)" b)"文本文件(。txt) |(。txt)"
c)"文本(。txt) | (*。txt)" d) "text A)一个项目中只能有一个Sub Main过程
B)一个窗体的Show方法的作用是将指定的窗体加载到内存中并显示出来
C)一个窗体的Hide方法和Unload方法的作用完全相同
D)如果项目文件中有多个窗体， 可以根据需要指定一个窗体作为启动窗体
(32)下列说法错误的是
A)一个项目可以包含多个窗体文件
B)一个窗体文件中Private定义的通用进程可以被其他窗体调用
C)在设计VB程序、窗体、标准模块、类模块等时， 需要保存为不同类型的磁盘文件
D)全局变量必须在标准模块中定义
(33)项目中有一个标准模块，定义了以下记录类型
typebooks
name as string * 10
telnum as string * 20
end type
在窗体上绘制一个名为Command1的命令按钮。当需要事件过程Command1_Click时，在序列文件Person.txt中写入一条记录。下面可以完成这个操作的事件过程是
a)Private subcommand 1 _ Click()
Dim B . As Books
Open " c:\ person . txt " for output As # 1
b.name = InputBox(" input Name ")
B . TelNum = InputBox(" input phone number ")
Write # 1，B . Name，B . TelNum
Close # 1
End Sub
B) Person.txt "作为#1输入
b.name =输入框("输入姓名")
B.TelNum=InputBox("输入电话号码")
Print #1，b.name，B . TelNum
Close # 1
End Sub
C)Private Sub command 1 _ Click()
Dim B As Books
Open " C:\ person . txt "作为# 1输出
b Person.txt "作为输入# 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分)
请把每一个/[/k0
(1)在表单上画两个标签，名称分别为Label1和label2，Label2、Caption属性分别为“数值”和空白色；然后画一个名为Hscoll1的水平滚动条，其最小值为0，最大值为100。程序运行后，如果单击滚动条两端的箭头，滚动条的值将显示在标签label 2中，如图所示。请填写[1]和[2]中的适当内容以完成该计划。

Private sub hscroll 1 _[1]()
lab L2 . caption = hscroll 1。[2]
end sub
(2)在表单上绘制一个名为Command1、标题为“Calculate”的命令按钮。绘制两个文本框，命名为Text1和Text2分别是；然后画四个标签，命名为Label1、Label2、Label3、Label4，标题分别是操作数1、操作数2、运算结果和空白。再创建一个有四个单选按钮的控件数组，命名为Option1，标题分别为“+”、“-”、“*”和“/”。程序运行后，在Text1和Text2中输入两个数值，选择一个单选按钮，然后单击命令按钮。相应的计算结果显示在Label4中，程序运行如图。请填写[3]、[4]和[5]中的相应内容，以完成该计划。


Private Sub command 1 _ Click()
For I = 0到3
If[3]= True then
opt = option 1(I)。caption
End If
Next
Select Case[4]
Case "+"
Result = Val(text 1。Text)+Val(Text2。text)
Case "-"
Result = Val(text 1。Text) -Val(Text2。Text)
Case " * "
Result = Val(Text。文本)*Val(文本2。text)
Case "/"
Result = Val(text 1。Text)/Val(Text2。text)
Select
[5]= result
end sub
(3)在窗体上绘制一个名为Command1的命令按钮和一个名为Text1的文本框。程序运行后，命令1被禁用(灰色)。当文本框中输入任何字符时，命令按钮Command1变为可用。请在[6]处填写适当的内容以完成该计划。
私有子Form_Load()
Command1。enabled = False
End Sub
Private Sub text 1 _[6]()
command 1。Enabled=True
End
(4)在菜单编辑器中建立一个名为pmenu的菜单。可以用下面的语句弹出一个弹出菜单。请填写空。
Form1。[7] Pmenu
(5)下面这个程序的作用是:从键盘输入几个学生的考试成绩，当输入一个负数时结束输入，然后输出分数和最低分。请填写[8]和[9]中的适当内容以完成该计划。
Private Sub Form _ Click()
Dim x As Single，amax As Single，amin As Single
x=InputBox("输入分数")
Amax = x
Do While[8]
If x > Amax Then
Amax = x
End If
If[9]Then
Amin = x
End If[/bramax，" Min = "；Amin
End Sub
(6)在窗体上绘制一个文本框和一个图片框，然后编写以下两个事件过程:
private subform _ load()
text 1 . text = " computer "
End Sub
private subtext 1 _ change()
picture 1 . print " grade test "
End Sub
程序运行后，文本框中显示的内容为[10]，而显示的内容
(7)在窗体上绘制一个名为Command1的命令按钮，然后编写以下程序:
function m (x为整数，Y为整数)为整数
m = IIF (x > y，x，Y)
end function
private subcommand 1 _ click()
dim a为整数，b为整数
a = 100
b = 200
print m(a，a
(9)在表单上绘制一个名为label 1的标签和一个名为List1的列表框。程序运行后，在列表框中添加几个列表项。双击列表框中的项目时，选定的项目会显示在标签Label1中，如图所示。请填写[14]和[15]中的适当内容以完成该计划。
私有subform _ load ()
List1。AddItem“北京”[br/]list 1。AddItem "上海"
list1.additem "湖北"[/Br/]end sub[/Br/]private sub[14]Br/]label 1。caption =[15]
end sub
2002年9月全国计算机等级考试VB试卷二级答案一、选择题:
1—10 C A C A A D B D B D B D B
1—20D D D C A B B B A D
21—30 C B B D C A D C A C A
31—35 C B A D A D A
二、填写空问题:
[/ CAPTION 6、CHANGE 7、POPUPMENU 8、X>=0
9、X 14、LIST1_DBLCLICK 15、LIST1。文本文件（textfile）