1单选题1 / 44
在设计阶段，当双击窗体上的某个控件时，所打开的窗口是
查看答案
C. 代码窗口
计算机类二级VB
2002年9月全国计算机等级考试二级VB真题
44 题含答案VB
2单选题2 / 44
以下叙述中正确的是
查看答案
A. 窗体的Name属性指定窗体的名称，用来标识一个窗体
3单选题3 / 44
刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是
查看答案
C. 通用对话框
4单选题4 / 44
设有如下变量声明
Dim TestDate As Date
为变量TestDate正确赋值的表达方式是
Dim TestDate As Date
为变量TestDate正确赋值的表达方式是
查看答案
A. TextDate=#1/1/2002#
5单选题5 / 44
设有如下声明：
Dim X As Integer
如果Sgn(X) 的值为-1，则X的值是
Dim X As Integer
如果Sgn(X) 的值为-1，则X的值是
查看答案
D. 小于0的数
6单选题6 / 44
在窗体上画一个名称为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后，窗体上显示的结果为
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后，窗体上显示的结果为
查看答案
B. 15 6
7单选题7 / 44
设a=3,b=5，则以下表达式值为真的是
查看答案
B. (a%26gt;b)Or(b%26gt;0)
8单选题8 / 44
设有语句
x=InputBox(“输入数值”，“0”，“示例”)
程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是
x=InputBox(“输入数值”，“0”，“示例”)
程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是
查看答案
D. 变量X的值是字符串“10”
9单选题9 / 44
从键盘上输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是
查看答案
D. Instr
10单选题10 / 44
设a=“Visual Basic”，下面使b=“Basic”的语句是
查看答案
B. b=Mid(a,8,5)
11单选题11 / 44
以下能够触发文本框Change事件的操作是
查看答案
D. 改变文本框的内容
12单选题12 / 44
在窗体上有一个文本框控件，名称为TxtTime：一个计时器控件，名称为Timerl，要求每一秒钟在文本框中显示一次当前的时间。程序为：
Private Sub Timer1_ ()
TxtTime.text=Time
End Sub
在下划线上应填入的内容是
Private Sub Timer1_ ()
TxtTime.text=Time
End Sub
在下划线上应填入的内容是
查看答案
D. Timer
13单选题13 / 44
在窗体上画两个单选按钮，名称分别为Option1、Option2，标题分别为“宋体”和“黑体”；一个复选框，名称为Check1,标题为“粗体”；一个文本框，名称为Text1，Text属性为“改变文字字体”。要求程序运行时，“宋体”单选按钮和“粗体”复选框被选中，则能够实现上述要求的语句序列是
查看答案
D. Option1.Value=True
Check1.Value=1
Check1.Value=1
14单选题14 / 44
为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设置为True，这个属性是
查看答案
C. Cancel
15单选题15 / 44
在窗体上画一个命令按钮，名称为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
程序运行后，如果单击命令按钮，则在窗体上显示的内容是
Private Sub Command1_Click()
For I=1 To 4
For J=0 To 1
Print Chr$(65+I);
Next J
Next I
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是
查看答案
A. BB
CC
DDDD
EEEEE
CC
DDDD
EEEEE
16单选题16 / 44
图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是
查看答案
B. Stretch
17单选题17 / 44
在窗体上画两个名称分别为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
Text1.Text=Str(x)
Text2.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别是
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
Text1.Text=Str(x)
Text2.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别是
查看答案
B. 27和3
18单选题18 / 44
在窗体上画一个名称为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
Text1.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是
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
Text1.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是
查看答案
B. 3
19单选题19 / 44
在窗体上画一个名称为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
Text1.Text=array1(2,3)+array1(3,4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是
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
Text1.Text=array1(2,3)+array1(3,4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是
查看答案
A. 12
20单选题20 / 44
在窗体上画一个名称为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
程序运行后，单击命令按钮，窗体上显示的是
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
Next j
End Sub
程序运行后，单击命令按钮，窗体上显示的是
查看答案
D. 123
456
789
456
789
21单选题21 / 44
设有如下程序：
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
程序运行后，单击窗体，则在窗体上显示的是
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
程序运行后，单击窗体，则在窗体上显示的是
查看答案
C. 6 5 4 3
22单选题22 / 44
下列叙述中正确的是
查看答案
C. 在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程
23单选题23 / 44
在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能的代码是
查看答案
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
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
24单选题24 / 44
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序：
Private Sub Command1_Click()
Dim x,y,z As Integer
x=5
y=7
z=0
Text1.text=“”
Call P1(x,y,z)
Text1.Text=Str(x)
End Sub
Sub P1(ByVal a As Integer,ByVal b As Integer,c As Integer)
c=a+b
End Sub
程序运行后，如果单击命令按钮，则在文本框中显示的内容是
Private Sub Command1_Click()
Dim x,y,z As Integer
x=5
y=7
z=0
Text1.text=“”
Call P1(x,y,z)
Text1.Text=Str(x)
End Sub
Sub P1(ByVal a As Integer,ByVal b As Integer,c As Integer)
c=a+b
End Sub
程序运行后，如果单击命令按钮，则在文本框中显示的内容是
查看答案
B. 12
25单选题25 / 44
以下叙述中错误的是
查看答案
D. 事件过程可以像通用过程一样由用户定义过程名
26单选题26 / 44
以下叙述中错误的是
查看答案
C. KeyPress事件中不能识别键盘上某个键的按下与释放
27单选题27 / 44
以下叙述中错误的是
查看答案
A. 在同一窗体的菜单项中，不允许出现标题相同的菜单项
28单选题28 / 44
设在菜单编辑器中定义了一个菜单项，名为menu1。为了在运行时隐藏该菜单项，应使用的语句是
查看答案
D. Menu1.Visible=False
29单选题29 / 44
以下叙述中错误的是
查看答案
C. 调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件
30单选题30 / 44
在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件)，则正确的描述格式是
查看答案
A. “text (.txt)|(*.txt)”
31单选题31 / 44
以下叙述中错误的是
查看答案
C. 窗体的Hide方法和Unload方法的作用完全相同
32单选题32 / 44
以下叙述中错误的是
查看答案
B. 在一个窗体文件中用Private定义的通用过程能被其他窗体调用
33单选题33 / 44
设在工程中有一个标准模块，其中定义了如下记录类型
Type Books
Name As String *10
TelNum As String *20
End Type
在窗体上画一个名为Command1的命令按钮。要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是
Type Books
Name As String *10
TelNum As String *20
End Type
在窗体上画一个名为Command1的命令按钮。要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是
查看答案
A. Private Sub Command1_Click()
Dim B As Books
Open “c:\Person.txt”For Output As #1
B．Name=InputBox(“输入姓名”)
B．TelNum=InputBox(“输入电话号码”)
Write #1,B.Name,B.TelNum
Close #1
End Sub
Dim B As Books
Open “c:\Person.txt”For Output As #1
B．Name=InputBox(“输入姓名”)
B．TelNum=InputBox(“输入电话号码”)
Write #1,B.Name,B.TelNum
Close #1
End Sub
34单选题34 / 44
以下叙述中正确的是
查看答案
D. 使用Input #语句可以从随机文件中读取数据
35单选题35 / 44
目录列表框的Path属性的作用是
查看答案
A. 显示当前驱动器或指定驱动器上的目录结构
36填空题36 / 44
在窗体上画两个标签，其名称分别为Label1和Label2,Caption属性分别为“数值”及空白；然后画一个名称为Hscoll1的水平滚动条，其Min的值为0，Max的值为100。程序运行后，如果单击滚动条两端的箭头，则在标签Lable2中显示滚动条的值。请在 [1] 和 [2] 处填入适当的内容，将程序补充完整。
Private Sub HScroll1_＿＿ ()
Labl2.Caption=HScroll1. ＿＿
End Sub
Private Sub HScroll1_＿＿ ()
Labl2.Caption=HScroll1. ＿＿
End Sub
查看答案
- CHANGE
- VALUE
37填空题37 / 44
在窗体上画一个名称为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 ＿＿ =True then
opt=Option1(i).Caption
End If
Next
Select Case ＿＿
Case”+”
Result=Val(Text1.Text)+Val(Text2.Text)
Case”-”
Result=Val(Text1.Text)-Val(Text2.Text)
Case”*”
Result=Val(Text.Text)*Val(Text2.Text)
Case”/”
Result=Val(Text1.Text)/Val(Text2.Text)
End Select
＿＿ =Result
End Sub
Private Sub Command1_Click()
For i=0 To 3
If ＿＿ =True then
opt=Option1(i).Caption
End If
Next
Select Case ＿＿
Case”+”
Result=Val(Text1.Text)+Val(Text2.Text)
Case”-”
Result=Val(Text1.Text)-Val(Text2.Text)
Case”*”
Result=Val(Text.Text)*Val(Text2.Text)
Case”/”
Result=Val(Text1.Text)/Val(Text2.Text)
End Select
＿＿ =Result
End Sub
查看答案
- OPTION1（I）.VALUE
- OPT
- LABEL 4。CAPTION
38填空题38 / 44
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色) 。当向文框中输入任何字符时，命令按钮Command1变为可用。请在 [6] 处填入适当的内容，将程序补充完整。
Private Sub Form_Load()
Command1.Enabled=False
End Sub
Private Sub Text1_ ＿＿ ( )
Command1.Enabled=True
End Sub
Private Sub Form_Load()
Command1.Enabled=False
End Sub
Private Sub Text1_ ＿＿ ( )
Command1.Enabled=True
End Sub
查看答案
CHANGE
39填空题39 / 44
在菜单编辑器中建立了一个菜单，名为pmenu，用下面的语句可以把它作为弹出式菜单弹出，请填空。
Form1. ＿＿ Pmenu
Form1. ＿＿ Pmenu
查看答案
POPUPMENU
40填空题40 / 44
以下程序的功能是：从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分数。请在 [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 ＿＿
If x>amax Then
Amax=x
End If
If ＿＿Then
Amin=x
End If
x=InputBox(“Enter a score”)
Loop
Print”Max=”;amax,”Min=”;amin
End Sub
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 ＿＿
If x>amax Then
Amax=x
End If
If ＿＿Then
Amin=x
End If
x=InputBox(“Enter a score”)
Loop
Print”Max=”;amax,”Min=”;amin
End Sub
查看答案
- X>=0
- X
41填空题41 / 44
在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：
Private Sub Form_Load()
Text1.Text=”计算机”
End Sub
Private Sub Text1_Change()
Picture1.Print“等级考试”
End Sub
程序运行后，在文本框中显示的内容是＿＿ ，而在图片框中显示的内容是＿＿。
Private Sub Form_Load()
Text1.Text=”计算机”
End Sub
Private Sub Text1_Change()
Picture1.Print“等级考试”
End Sub
程序运行后，在文本框中显示的内容是＿＿ ，而在图片框中显示的内容是＿＿。
查看答案
- 计算机
- 等级考试
42填空题42 / 44
在窗体上画一个命令按钮，其名称为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
程序运行后，单击命令按钮，输出结果为＿＿ 。
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
程序运行后，单击命令按钮，输出结果为＿＿ 。
查看答案
200
43填空题43 / 44
为了改变计时器控件的时间间隔，应该修改该控件的＿＿ 属性。
查看答案
Interval
44填空题44 / 44
在窗体上画一个名称为Lable1的标签和一个名称为List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Label1中显示所选中的项目。请在 [14] 和 [15] 处填入适当的内容将程序补充完整。
Private Sub Form_load()
List1.AddItem”北京”
List1.AddItem”上海”
List1.AddItem”湖北”
End Sub
Private Sub ＿＿ ()
Label1.Caption= ＿＿
End Sub
Private Sub Form_load()
List1.AddItem”北京”
List1.AddItem”上海”
List1.AddItem”湖北”
End Sub
Private Sub ＿＿ ()
Label1.Caption= ＿＿
End Sub
查看答案
- LIST1_DBLCLICK
- LIST1.TXT