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

2003年9月全国计算机等级考试二级VB语言笔试试卷
(考试时间90分钟，满分100分)
一、选择题((1)～(20)每小题得2分，(21)～(30)每小题得3分， 共70分)
(1)下列语句错误的是
A)Visual Basic是事件驱动的可视化编程工具
B)Visual Basic应用程序没有明显的开始和结束语句
C)Visual Basic工具箱中的所有控件都有宽度和高度属性
d)Visual Basic中控件的某些属性只能在运行时设置
(2)下列语句错误的是
A)只有一个项目文件，属于该项目的其他文件才能 BAS是标准模块文件
C)表单文件包含表单及其控件的属性
D)一个项目可以包含多个标准模块文件
(3)下列说法中错误的是[A]双击鼠标可以触发DblClick事件
B)表单或控件的事件名称可以由程序员确定
C)移动鼠标时， 将触发MouseMove事件
D)控件的名称可以由程序员设置
(4)下列不属于Visual Basic系统的文件类型是
A)。 frmb)。蝙蝠c)。vbgd)。vbp
(5)下列语句中错误的是[/br系统自动加载与项目相关的表单、标准模块等文件
B)保存Visual Basic程序时，表单文件和项目文件应分开保存
c)Visual Basic应用程序只能以解释性方式执行
D)事件可以由用户触发， 也可以由系统触发
(6)下面的代码中能够正确定义数据类型TelBook的是
a)Type TelBook b)Type TelBook
Name As String * 10 Name As String * 10
TelNum As Integer TelNum As Integer
End Type End TelBook
C)Type TelBook D)Typedef TelBook
Name String * 10 Name String * 10
TelNum Integer dimvar2 =' ABC'
C)定义a-z d)静态var 3为整数
(8)表单上有一个列表框控件List1，它包含几个列表项。 那么，下面可以代表当前选中列表项的内容:
a)list 1 . listb)list 1 . listindex c)list 1 . indexd)list 1 . text
(9)程序运行后，在窗体上单击鼠标，此时窗体不会收到的事件是
a)mousedown b)mouseup c)load d)click
(10)set a = 10，b=5，c=1。执行Print a > b > c语句后，表单上显示的是
A)True B)False C)1 D)错误消息(11)如果要更改表单的标题， 需要设置的属性是
a)caption b)name c)back color d)border style
(12)下列可以判断是否到达文件末尾的函数是
A)BOF b)loc c)lof d)EOF
(13)如果一个项目，下列说法中错误的是
A)如果子主进程包含在项目中， 程序必须先执行进程
B)标准模块不能设置为启动模块
C)Hide方法用来只是隐藏一个窗体，窗体不能从内存中清除
D)任何时候最多只有一个窗体是活动窗体
(14)窗体的MouseDown事件过程
form _ mousedown (button为整数，shift为整数，x为单个，为单个)
有4个参数， 关于哪个，正确的描述是
A)通过按钮参数确定当前按下了哪个鼠标按钮
B)Shift参数只能用于确定是否按下了Shift键
C)Shift参数只能用于确定是否按下了Alt和Ctrl键
D)参数x，Y用于设置当前鼠标位置的坐标
(15)组合框Combo1中有3项， 下列可以删除最后一项的语句是
a)combo 1 . remove item text
b)combo 1 . remove item 2[/Br/]C)combo 1 . remove item 3[/Br/]d)combo 1 . remove item combo 1 . list count[/Br/](16)下列关于焦点的语句中，错误的是[/Br/]A)如果文本框的TabStop属性为False，则不能接收键盘输入的数据[/Br/]B 它的Tab键顺序不起作用
D)您可以用TabIndex属性
(17)如果您想给菜单添加一个分隔线，那么它的Caption属性应该设置为
A)= B)* C)& D)-
(18)在执行语句open " Tel.dat " for random as # 1len = 50之后，可以对文件tel . dat中的数据执行的操作只有
A) 不会写
C)会读会写d)不会读不会写
(19)在窗体上绘制一个名为Command1的命令按钮和两个名为Text1和Text2的文本框，然后编写以下事件过程:
private subcommand 1 _ click()
n = text 1 . text
select case n
case 1 to 20
x = 10
case 2，4， 6
x = 20
caseis < 10
x = 30
case 10
x = 40
end select
text2 . text = x
如果在文本框Text1中输入10，然后单击命令按钮，则text 2中显示的内容是
A)10b)20c)30d)40
(20)，具有以下循环结构 那么下面语句中的错误就是【那么就不要执行循环体一次
B)这个“条件”可以是关系表达式、逻辑表达式或者常量
C)Exit Do语句可以用在循环体中
D)如果“条件”始终为真，继续执行循环体(21)在窗体上绘制一个名为Command1的命令按钮，然后编写下面的事件过程:
private subcommand 1 _ click()
dimnum as integer

num = num+2.4
loop
end sub
程序运行后，单击命令按钮。那么窗体上显示的内容就是
A)1 3.4 5.8b)1 3 5
c)1 4 7d)无数据输出
(22)在窗体上绘制一个名为Command1的命令按钮，然后编写以下事件过程:
private subcommand 1 _ click()
dim A as integer，s as integer
A = 8
s = 1
do
s = s+A[]那么窗体上显示的内容是
A) 7 9 B) 34 0
C) 9 7 D)无限循环
(23)有以下一般过程:
公共函数f (x为整数)
dim y为整数
X = 20
y = 2
f = X * y
end函数
在窗体上绘制一个名为Command1的命令按钮，然后编写y
End Sub
程序运行后，如果单击命令按钮，窗体上显示的内容为
a)105 b)205
c)2040d)1040
(24)具有以下一般过程:[/br]Byval x as integer)
for I = 1 to 5
x = x+a(I)
next
End Sub[/br 然后编写下面的事件过程:
private子命令1 _ click()
dimarr(5)as variant
for I = 1 to 5
arr(I)= I
next
n = 11。 调用fun (arr()，n)
text 1 . text = n
end sub
程序运行后单击命令按钮，则文本框中显示的内容为
a)10b)15c)25d)24
(25)在窗体上绘制一个名为Command1的命令按钮，然后编写以下代码:
option base 1
private subcommand 1 _ Click()
d = 0
c = 1 24)
For i = 1到5
If x(I)> c Then
d = d+x(I)
c = x(I)
Else
d = d-c
End If
Next I
在print
end sub
程序运行后，如果单击命令按钮，窗体上的输出内容是
a)80 分别是；六个标签，分别命名为Label1、Label2、Label3、Label4、Label5、Label6，其中Label 4~ Label6分别显示“A”、“B”、“A*B”等文本信息，Label1和Label2在其右侧显示滚动条的值，Label3显示a * b的计算结果，如图所示。移动滚动框时，滚动条的值显示在相应的标签中。当单击命令按钮“计算”时，标签Label1和Label2中显示的两个值是正交的，结果显示在Label3中。下列不能实现上述功能的事件过程是
a)Private Sub command 1 _ Click()
label 3 . caption = str(val(label 1 . caption)* val(label 2 . caption))
end Sub
B)Private Sub command 1 _ Click()
label 3。Caption = HScroll1。值* HScroll2。value
End Sub
C)Private Sub命令1_Click()
Label3。caption = hscroll 1 * hscroll 2
End Sub
D)Private Sub命令1_Click()
Label3。Caption = HScroll1。Text * HScroll2。Text[/ Br/] End Sub
(27)在窗体上绘制一个名为Command1的命令按钮，然后编写以下事件过程:[/ Br/]private subcommand 1 _ click()[/Br/]for n = 1 to 20[/Br/]if n mod 3 0 Then m = m+n \ 3[/Br/]text 1n[/Br/]print n[/Br/]End Sub[/Br/]程序运行后，如果单击命令按钮，窗体上显示的内容为[/Br/]并编写如下程序:
Private subform _ load()
show
text 1 . text = " "
text 1 . setfocus
end Sub
Private Sub Form _ MouseUp(Button为整数，shift为整数，X为single，Single为单个)
print“编程”
end Sub
Private Sub text 1 _ key down(键码为整数，Shift为整数)
print“visual basic”；
End Sub
程序运行后，如果按“A”键然后单击窗体，那么窗体上显示的内容是
A)Visual Basic B)编程
C)A)编程D)Visual Basic编程
(29)有以下程序:
private子命令1 _ click ()
Dim sum As Double， x为Double
sum = 0
n = 0
For I = 1到5
x = n/I
n = n+1
sum = sum+x
Next
End Sub
程序通过For循环计算表达式的值，即
a)1+1/2+2/3+3/4+4/5b)1+1/2+2/2 错误为
a)静态arr 1(3)
arr 1(1)= 100
arr 1(2)= " hello "
arr 1(3)= 123.45
b)。Dim size as integer
private子命令2 _ click ()
size =输入框(" input:")
redi marr 2(size)
...
end Sub
C)Option Base 1
Private Sub command 3 _ Click()
Dim arr 3(3)As Integer
......
End Sub
D)Dim n As Integer
private command 4 _ click()
Dim arr 4(n)As Integer
...
end sub
II。填空题(每题2分空，共30分。
s = 2
for I = 3.2 to 4.9 step 0.8
s = s+1
next I
(2)将窗体的KeyPreview属性设置为True，然后编写以下两个事件过程:
Private subform _ keydown(key code为整数，Shift为整数)
Print Chr(key code)
End Sub
Private subform _ key press(KeyAscii
(3)在窗体上绘制一个标签(名为Label1)和一个计时器(名为Timer1)，然后编写以下事件过程:
private subform _ load()
timer 1 . enabled = false
timer 1 . interval =[5]
end sub
private form _ click()
timer 1 . enabled =[6]
end sub
private subtimer 1 _ timer()

——————————————] 14:54:41
—————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————如果在此对话框中输入字符串“VisualBasic”，则标签中显示的内容为
(5)在窗体上绘制一个列表框、一个命令按钮和一个标签，名称为List1、Command1和Label1，通过属性窗口将列表框中的项目设置为“第一项”、“第二项”、“第三项”和“第四项”。程序运行后，在列表框中选择一项，然后单击命令按钮删除选中的项，并在标签中显示列表框中的当前项数。运行情况如图(选择“第三项”的情况)。以下是实现上述功能的程序，请填写空。
Private Sub命令1_Click()
If List1。ListIndex >= 〖9〗然后
List1。移除item〖10〗label 1。caption =〖11〗Else
MsgBox "请选择要删除的项目"[Br/]End if[/Br/]End Sub[/Br/]End Sub[/Br/]————————————————————]第一项[/Br/]第二项———————————————]请填写空。
(7)下面这个程序的作用是将当前目录下的顺序文件smtext1.txt的内容读入内存，并显示在文本框text1中。请填写空。
Private Sub命令1 _ Click()
Dim in data As String
text 1。Text = ""
打开"。\ sm text 1 . txt "〖14〗As # 1
Do While〖15〗Input # 1， in
text 1 . text = text 1 . text & in data
loop
close # 1
end sub
2003年9月全国计算机等级考试二级VB语言笔试试卷参考答案
一、选择题[/br(1)C(2)A(3)B(4)B(5)C
(6)A(7)B(8)D(9)C(10)B 填写/[/k0/ (3) 〖5〗 1000 〖6〗真〖7〗时间
(4) 〖8〗基本
(5) 〖9〗 0 〖10〗列表1。列表索引〖11〗列表1。list count
(6)〖12〗Max〖13〗Max = arr 1(I)
(7)〖14〗For Input〖15〗Not EOF(1)