第一篇：2005年4月二级VB笔试试题
无忧考网
www.xiexiebang.command1的命令按钮，然后编写一个事件过程。程序运行以后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是：
A)Private Sub Text1_Change()
Command1.Caption=”计算机等级考试”
End Sub
B)Private Sub Command1_Click()
Caption=”计算机等级考试”
End Sub
C)Private Sub Form1_Click()
Text1.Caption=”计算机等级考试”
End Sub
D)Private Sub Command1_Click()
Text1.Text=”计算机等级考试”
End Sub
(12)设a=5,b=4,c=3,d=2，下列表达式的值是 3>2*b Or a=c And b<>c Or c>d
A)1
B)True
C)False
D)2
(13)设a=”MicrosoftVisualBasic”, 则以下使变量b的值为”VisualBasic”的语句是
A)b=Left(a,10)
B)b=Mid(a,10)
C)b=Right(a,10)
D)b=Mid(a,11,10)
(14)假定有如下的窗体事件过程：
Private Sub Form_Click()
a$ = “Microsoft Visual Basic”
b$ = Right(a$, 5)
c = Mid(a$, 1, 9)
MsgBox a$, 34, b$, c$, 5
End Sub
程序运行后单击窗体，则在弹出的信息框中的标题栏中显示的信息是：
A)Microsoft Visual
B)Microsoft
C)Basic
D)5
无忧考网
www.xiexiebang.command1)右移200，应使用的语句是
A)Command1.Move-200
B)Command1.Move 200
C)Command1.Left= Command1.Left+200
D)Command1.Left= Command1.Left-200
(17)在窗体上画一个文本框，然后编写如下事件过程：
Private Sub Form_Click()
x = InputBox(“请输入一个整数”)
Print x + Text1.Text
End Sub
程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容是：
A)12
3B)456
C)579
D)123456
（18）在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False,程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：
Private Sub Command1_Click()
Timer1._________
End Sub Private Sub Timer1_Timer()Text1.Text = Time End Sub 在______处应填入的内容是
A)Enabled=True
B)Enabled=False
C)Visible=True
D)Visible=False
(19)假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是：
A)选择图片框，然后按Del键
B)执行语句Picture1.Picture=LoadPicture(“”)
C)执行语句Picture1.Picture=””
D)选择图片框，在属性窗口中选择Picture属性，然后按回车键
（20）在窗体上画一个List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目，当单击列表框中的某个项目时，在标签中显示被选中的项目的名称，下列能正确实现上述操作的程序是
A)Private Sub List1_Click()
Label1.Caption = List1.ListIndex
End Sub
B)Private Sub List1_Click()
Label1.Name = List1.ListIndex
End Sub
C)Private Sub List1_Click()
Label1.Name = List1.Text
End Sub
D)Private Sub List1_Click()
Label1.Caption = List1.Text
End Sub
（21）在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
无忧考网
www.xiexiebang.command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
c = “ABCD”
For n = 1 To 4
Print _________
Next
End Sub
程序运行后，单击命令按钮，要求在窗体上显示如下内容：
D
CD
BCD
ABCD
则在________处应填入的内容为
A)Left(c,n)
B)Right(c,n)
C)Mid(c,n,1)
D)Mid(c,n,n)
(23)执行以下程序段
Dim x As Integer, i As Integer
x=0
For i = 20 To 1 Step-2
x = x + i 5
Next I
后，x的值为
A)16
B)17
C)18
D)19
（24）在Visual Basic工程中，可以作为启动对象的程序是
A)任何窗体或标准模块
B)任何窗体或过程
C)Sub Main过程或其他任何模块
D)Sub Main过程或任何窗体
无忧考网
www.xiexiebang.command1的命令按钮数组，则以下说法中错误的是
A)数组中每个命令按钮的名称(名称属性)均为Command1 B)数组中每个命令按钮的标题(Caption属性)都一样 C)数组中所有命令按钮可以使用同一个时间过程
D)用名称Command1(下标)可以访问数组中的每个命令按钮
(26)把窗体的KeyPreview属性设置为True,然后编写如下事件过程:
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr(KeyAscii)
KeyAscii = Asc(UCase(ch))
Print Chr(KeyAscii + 2)
End Sub
程序运行后,按键盘上的”A”键,则在窗体上显示的内容是
A)A
B)B
C)C
D)D
(27)在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序:
Private Sub Command1_Click()
a = InputBox(“请输入日期(1~31)”)
t = “旅游景点:” _
& IIf(a > 0 And a <= 10, “长城”, “")_
& IIf(a > 10 And a <= 20, ”故宫“, ”“)_
& IIf(a > 20 And a <= 30, ”颐和园“, ”“)
Text1.Text = t
End Sub
程序运行后,如果从键盘输入16,则在文本框中显示的内容是:
A)旅游景点：长城故宫
B)旅游景点：长城颐和园
C)旅游景点：颐和园
D)旅游景点：故宫
(28)在窗体上画一个名称为Label1的标签,然后编写如下事件过程:
Private Sub Form_Click()
Dim arr(10, 10)As Integer
Dim i As Integer, j As Integer
For i = 2 To 4
For j = 2 To 4
arr(i, j)= i * j
Next j
Next i
Label1.Caption = Str(arr(2, 2)+ arr(3, 3))
End Sub
程序运行后,单击窗体,在标签中显示的内容是
无忧考网
www.xiexiebang.comamnd1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:
Private Function fun(ByVal m As Integer)
If m Mod 2 = 0 Then
fun = 2
Else
fun = 1
End If
End Function
Private Sub Command1_Click()
Dim i As Integer, s As Integer
s = 0
For i = 1 To 5
s = s + fun(i)
Next
Print s
End Sub
程序运行后,单击命令按钮,则窗体上显示的是:
A)6
B)7
C)8
D)9
(30)阅读程序:
Option Base 1
Dim arr()As Integer
Private Sub Form_Click()
Dim i As Integer, j As Integer
ReDim arr(3, 2)
For i = 1 To 3
For j = 1 To 2
arr(i, j)= i * 2 + j
Next j
Next i
ReDim Preserve arr(3, 4)
For j = 3 To 4
arr(3, j)= j + 9
Next j
Print arr(3, 2)+ arr(3, 4)
无忧考网
www.xiexiebang.command1的命令按钮,然后编写如下程序:
Option Base 1
Private Sub Command1_Click()
Dim c As Integer, d As Integer
d = 0
c = 6
x = Array(2, 4, 6, 8, 10, 12)
For i = 1 To 6
If x(i)> c Then
d = d + x(i)
c = x(i)
Else
d = d1
Loop While n > 0
Print s
End Sub
以上程序的功能是【10】,程序运行后,单击窗体,输出结果为【11】
(10)设有如下程序:
Option Base 1
Private Sub Command1_Click()
Dim arr1
Dim Min As Integer, i As Integer
arr1 = Array(12, 435, 76,-24, 78, 54, 866, 43)
Min = 【12】
For i = 2 To 8
If arr1(i)< Min Then 【13】
Next i
Print ”最小值是:“;Min
End Sub
以上程序的功能是用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中的最小值,请填空
(11)在名称为Form1的窗体上画一个文本框,其名称为Text1,在属性窗口中把文本框的MultiLine属性设置为True,然后编写如下事件过程:
Private Sub Form_Click()
Open ”d:testsmtext1.txt“ For Input As #1
Do While Not 【14】
Line Input #1, aspect$
whole$ = whole$ + aspect$ + Chr(13)+ Chr(10)
Loop
Text1.Text = whole$
Close #1
Open ”d:testsmtext2.txt" For Output As #1
Print #1, 【15】
Close #1
End Sub
上述程序的功能是,把磁盘文件smtext1.txt 的内容读到内存并在文本框中显示出来,然后
无忧考网
www.51test.net 把该文本框中的内容存入磁盘文件smtext2.txt.请填空
以下答案仅供参考
选择题：
1---5DBDCA
6---10 CBDDC
11--15 ABBCD
16--20 CDABD
21--25 ABCDB
26--30 CDBBA
31--35 CDDDA
填空题：
【1】19
【2】 对象
【3】
程序调试
【4】 关系
【5】 算法
【6】12345.68
【7】VB程序设计
【8】 VB Programming
【9】 10
【10】 求1-8的和
【11】36
【12】 arr1(1)
【13】min=arr1(i)
【14】 EOF(1)
【15】text1.text(或whole$)12
第二篇：全国计算机二级VB笔试试题总结
2002年4月二级VB笔试试题
一、选择题1~35题每题2分，共70分。
下列各题A）、B）、C）、D）四个选项中，只有一个选择是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。
1．下列不能打开属性窗口的操作是（）。
A）执行“视图”菜单中的“属性窗口”命令
B）按F4键
C）按Ctrl+T
D）单击工具栏上的“属性窗口”按钮。
2．下列可以打开立即窗口的操作是（）。
A）Ctrl+D
B）Ctrl+E
C）Ctrl+F
D）Ctrl+G 3．InputBox函数返回值的类型为（）。
A）数值 B）字符串 C）变体 D）数值或字符串（视输入的数据而定）
4．可以同时删除字符串前导和尾部空白的函数是（）。
A）Ltrim
B）Rtrim
C）Trim
D）Mid 5．表达式4+5 6 * 7 / 8 Mod 9 的值是（）。
A）4
B）5
C）6
D）7 6．如果在立即窗口中执行以下操作：
a=8
b=9
print a>b
A）-1
B）0
C）False
D）True 7．以下语句的输出结果是（）。
Print Format $(32548.5,“000,000.00”)
A）32548.5
B）32,548.5 C）032,548.50
D）32,548.50 8．执行以下程序段后，变量c$的值为（）。
a$=“Visual Basic Programing” b$=“Quick”
c$=b$ & UCase(Mid$(a$,7,6))& Right $(a$,11)
A）Visual BASIC Programing B）Quick Basic Programing C）QUICK Basic Programing
D）Quick BASIC Programing
9．为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（）。
A）Value
B）Default C）Cancel
D）Enabled 10．为了把焦点移到某个指定的控件，所使用的方法是（）。
A）SetFocus
B）Visible C）Refresh
D）GetFocus 11．设a=6，则执行 x=IIf(a>5,-1,0)后，x 的值为（）。
A）5 B）6 C）0
D）-1
12．执行下面的程序段后，x 的值为（）。
x=5
For i=1 To 20 Step 2 x=x+i5 Next i A）21
B）22 C）23
D）24
13．在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()For i=1 To 4 x=4
For j =1 To 3 x=3
For k=1 To 2 x=x+6 Next k Next j Next i Print x End Sub
程序运行后，单击命令按钮，输出结果是（）。
A）7 B）15 C）157 D）538
14．在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()x=0
Do Until x=-1
a = InputBox(“请输入A的值”)a = Val(a)
b = InputBox(“请输入B的值”)b = Val(b)
x = InputBox(“请输入x的值”)x = Val(x)a = a+b+x Loop Print a End Sub
程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为（）。
A）2 B）3
C）14
D）15
15．在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程：
Private Sub Command1_Click()a=Text1.Text+Text2.Text Print a End Sub
Private Sub Form_Load()Text1.Text=”“ Text2.Text=”“ End sub
程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为（）。
A）444 B）321123 C）123
321 D）132231 16．阅读下面的程序段：
For i=1 To 3 For j=1 To i For k=j To 3 a=a+1 Next k Next j Next i
执行上面的三重循环后，a 的值为（）。
A）3 B）9 C）14
D）21
17．在窗体上画一个文本框（其中Name属性为Text1），然后编写如下事件过程：
Private Sub Form_Load()Text1.Text=”“ Text1.SetFocus For i=1 To 10 Sum=Sum+i Next i
Text1.Text=Sum End Sub
上述程序的运行结果是（）。
A）在文本框Text1中输出55 B）在文本框Text1中输出0 C）出错
D）在文本框Text1中输出不定值
18．在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程： Private Sub Command1_Click()x=0
Do While x<50 x=(x+2)*(x+3)n=n+1 Loop
Text1.Text=Str(n)Text2.Text=Str(x)End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为（）。
A）1和0 B）2和72 C）3和50
D）4和168 19．用下面语句定义的数组的元素个数是（）。
Dim A(-3 To 5)As Integer
A）6 B）7 C）8
D）9 20．以下程序的输出结果是（）。
Option Base 1
Private Sub Command1_Click()Dim a(10),p(3)As Integer k=5 For i=1 To 10 a(i)=i Next i
For i=1 To 3 p(i)=a(i*i)Next i
For i=1 To 3 k=k+p(i)*2 Next i Print k End sub
A）33 B）28 C）35 D）37
21．在窗体上画一个命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Commandl_Click()Dim a
a = Array(1,2,3,4)j = 1
For i = 4 To Step-1 s = s + a(i)*j j =j*10 Next i Print s End Sub
运行上面的程序，单击命令按钮，其输出结果是（）。
A）4321 B）12 C）3D）1234
22．在窗体上画一个命令按钮（其Name属性为Commandl），然后编写如下代码：
Option Base 1
Private Sub Commandl_Click()Dim a(4,4)For i =1 To 4 For j =1 To 4 a(i,j)=(i-1)*3+j Next j Next i
For i =3 To 4 For j =3 To 4 Print a(j,i);Next j Print Next i End Sub
程序运行后，单击命令按钮，其输出结果为（）。
A）6 9
B）7 10
7&n
bsp;10 11
C）8 11
D）9 12 12
23．假定有如下的Sub过程：
Sub S（x As Single,y As Single）
t = x x =t/y
y =t Mod y End Sub
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click()Dim a As Single Dim b As Single a =5 b =4 S a,b Print a,b End Sub
程序运行后，单击命令按钮，输出结果为（）。
A）5 4 B）1 1 C）1.25 4
D）1.25 1 24．阅读程序：
Function F(a As Integer)b = 0 Static c b = b+1 c = c+1 F = a+b+c End Function
Private Sub Commandl_Click()Dim a As Integer a =2
For i =1 To 3 Print F(a)Next i End Sub
运行上面的程序，单击命令按钮，输出结果为（）。
A）4 B）4
C）4
D）4
7
25．阅读程序：
Sub subP(b()As Integer)For i =1 To 4 b(i)=2*i Next i End Sub
Private Sub Commandl_Click()Dim a(1 To 4)As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 subP a()For i =1 To 4 Print a(i)Next i End Sub
运行上面的程序，单击命令按钮，输出结果为（）。
A）2 B）5
C）10 D）出错
26．下列不能打开菜单编辑器的操作是（）。
A）按Ctrl+E B）单击工具栏中的“菜单编辑器”按钮
C）执行“工具”菜单中的“菜单编辑器”命令 D）按Shift + Alt + M
27．假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用的语句为（）。
A）MenuItem.Enabled=False B）MenuItem.Enabled=True C）MenuItem.Visible=True
D）MenuItem.Visible=False
28．在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是（）。
A）Move B）Change C）Scroll
D）GetFocus
29．假定窗体上有一个标签，名为Labell，为了使该标签透明并且没有边框，则正确的属性设置为（）。
A）Label1.BackStyle=0
Label1.Borderstyle=0
B）Label1.BackStyle=1
Label1.Borderstyle=1
C）Label1.BackStyle=True
Label1.BorderStyle=True
D）Label1.BackStyle=False
Label1.Borderstyle=False
30．在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程：
Private Sub Form_Load()List1.AddItem”357“ List1.AddItem”246“ List1.AddItem”123“ Listl.AddItem”456“ Text1.Text=”“ End Sub
Private Sub List1_ DblClick()a =List1.Text
Print a+Text1.Text End Sub
程序运行后，在文本框中输入“789”（见图附录-1），然后双击列表框中的“456”，则输出结果为（）。
图附录-1
A）1245
B）456789
C）789456
D）0
31．为了暂时关闭计时器，应把该计时器的某个属性设置为False，这个属性是（）。
A）Visible
B）Timer
C）Enabled
D）Interval
32．为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为（）。
A）Get文件号，记录号，变量名
B）Get文件号，变量名，记录号
C）Put文件号，变量名，记录号
D）Put文件号，记录号，变量名
33．对窗体编写如下事件过程：
Private Sub Form _MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button =2 Then Print ”AAAAA“ End If End Sub
Private Sub Form _ MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Print ”BB BBB“ End Sub
程序运行后，如果右击鼠标，则输出结果为（）。
A）AAAAA B）BBBBB
BBBBB
C）AAAAA D）BBBBB
AAAAA
34．为了在运行时能显示窗体左上角的控制框（系统菜单），必须（）。
A）把窗体的Contro1Box属性设置为False，其他属性任意
B）把窗体的ControlBox属性设置为True，并且把Boder Style属性设置为1-5
C）把窗体的ControlBox属性设置为False，同时把BoderStyle属性调协为非0值
D）把窗体的ControlBox属性设置为True，同时把BoderStyle属性设置为0值
35．对窗体编写如下代码：
Option Base 1 Private Sub Form_KeyPress(KeyAscii As Integer)a = Array(237,126,87,48,498)m1 = a(1)m2 = 1
If KeyAscii = 13 Then For i =2 To 5 If a(i)>ml Then m1 =a(i)m2 =i End If Next i End If Print m1 Print m2 End Sub
程序运行后，按回车键，输出结果为（）。
A）48
B）237
C）498
D）498
二、填空题（每空２分，共30分）
请将每空的正确答案写在答题卡[1]~[15]序号的横线上，答在试卷上不得分。
1．设有如下的Visual Basic表达式： 5 * x^2 – 3 * x – 2 * Sin(a)/3 它相当于代数式 [1]。
2．执行下面的程序段后，s的值为 [2]。
s = 5
For i = 2.6 To 4.9 Step 0.6 s = s+1 Next i
3．表达式Fix(-32.68)+Int(-23.02)的值为 [3]。
4．为了在运行时把图形文件picfile.jpg装入图片框Picture1，所使用的语句为 [4]。
5．在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()a = InputBox(”请输入一个整数“)b = InputBox(”请输入一个整数“)Print a + b End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为 [5]。
6．执行下面的程序段后，b的值为 [6]。
a=300 b=20 a=a+b b=a-b a=a-b
7．以下程序段的输出结果是 [7]。num=0 &nb sp;
While num<=2 num=num+1 Print num Wend
8．在窗体画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()Dim a(1 To 10)Dim p(1 To 3)k=5
For i=1 To 10 a(i)=i Next i
For i=1 To 3 p(i)=a(i*i)Next i
For i=1 To 3 k=k+p(i)*2 Next i Print k End Sub
程序运行后，单击命令按钮，输出结果是 [8]。
9．下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请在 [9]、处将程序补充完整。
Option Base 1
Private Sub Command1_Click()Dim a
a=Array(678,45,324,528,439,387,87,875,273,823)For i= [9] For j= [10]
If a(i)[11] a(j)Then a1=a(i)a(i)=a(j)a(j)=a1 End If Next j Next i
For i=1 To 10 Print a(i)Next i End Sub
10．在窗体上画一个命令按钮，然后编写如下过程：
Function fun(ByVal num As Long)As Long
[10]、[11] Dim k As Long k=1
num=Abs(num)Do While num k=k*(num Mod 10)num=num10 Loop fun=k
End Function
Private Sub Command1_Click()Dim n As Long Dim r As Long
n=InputBox(”请输入一个数“)n=CLng(n)r=fun(n)Print r End Sub
程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为 [12]。
11．如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为 [13]。
12．假定建立了一个工程，该工程包括两个窗体，其名称（Name属性）分别为Form1和Form2，启动窗体为Form1。在Form1上画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请在 [14] 和 [15] 处将程序补充完整。
Private Sub Command1_Click();[14] Form1 Form2.[15] End Sub
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/200
2# 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 1D)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_()
TxtTime.text=Time
End Sub
在下划线上应填入的内容是（）。
A)Enabled
B)Visible
C)Interval
D)Timer
(13)在窗体上画两个单选按钮，名称分别为Option1、Option2，标题分别为“宋体”和“黑体”；一个复选框，名称为Check1,标题为“粗体”；一个文本框，名称为Text1，Text属性为“改变文字字体”。要求程序运行时，“宋体”单选按钮和“粗体”复选框被选中(窗体外观如下图)，则能够实现上述要求的语句序列是（）。
A)Option1.value=True
B)Option1.Value=True
Check1.Value=False
Check1.Value=True
C)Option2.Value=False D)Option1.Value=True
Check1.Value=True
Check1.Value=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
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
Text1.Text=Str(x)
Text2.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别是（）。
A)15和1
B)27和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
Text1.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是（）。
A)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
Text1.Text=array1(2,3)+array1(3,4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是（）。
A)12
B)13
C)1D)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
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
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
程序运行后，如果单击命令按钮，则在文本框中显示的内容是（）。
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)menu1.Enabled=True B)Munu1.Enabled=False
C)Menu1.Visible=True D)Menu1.Visible=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时，在顺序文件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
B)Private Sub Command1_Click()
Dim B As Books
Open “c:Person.txt”For Input As #1
B.Name=InputBox(“输入姓名”)
B.TelNum=InputBox(“输入电话号码”)
Print #1,B.Name,B.TelNum
Close #1
End Sub
C)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
Close #1
End Sub
D)Private Sub Command1_Click()
Open “c:Person.txt”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]()
Labl2.Caption=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(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
[5] =Result
End Sub
(3)在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色)。当向文框中输入任何字符时，命令按钮Command1变为可用。请在 [6] 处填入适当的内容，将程序补充完整。
Private Sub Form_Load()
Command1.Enabled=False
End Sub
Private Sub Text1_ [6]()
Command1.Enabled=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()
Text1.Text=”计算机”
End Sub
Private Sub Text1_Change()
Picture1.Print“等级考试”
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()
List1.AddItem”北京”
List1.AddItem”上海”
List1.AddItem”湖北”
End Sub
Private Sub [14]()
Label1.Caption= [15]
End Sub
2003年4月二级VB笔试试题
一、选择题((1)一(20)每小题2分，(21)一(30)每小题3分，共30题，70分)
下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂在答题卡的相应位置上，答在试卷上不得分。
(1)以下不能在”工程资源管理器“窗口中列出的文件类型是（）。
A)．bas
B)．res
C)．fnn
D)．ocx
(2)以下关于窗体的描述中，错误的是（）。
A)执行UnloadFoMl语句后，窗体Fonnl消失，但仍在内存中
B)窗体的Ioad事件在加载窗体时发生
C)当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止
D)窗体的Height、width属性用于设置窗体的高和宽
(3)下列可作为V2sualBasic变量名的是（）。
A)A#A
B)4A
C)?xY
D)constA(4)设有如下的记录类型
Type Student
numberAs string
name As String
age As Integer
End Type
则正确引用该记录类型变量的代码是（）。
A)Student．name=”张红“
B)Dim As Student
s．name＝”张红“ C)Dim s As Type Student
D)Dim s As Type
S．name=”张红“
s.Dame＝”张红“
(5)函数String(n，”str“)的功能是（）。
A)把数值型数据转换为字符串 B)返回由n个字符组成的字符串
C)从字符串中取出n个字符
D)从字符串中第n个字符的位置开始取子字符串
(6)将数学表达式Cos2(a+b)+5e2写成Visual Basic的表达式，其正确的形式是（）。
A)Cos(a+b)A2十5。exp(2)
B)Cos^2(a+b)+5*exp(2)C)Cos(a+b)^2十5*ln(2)
D)Cos^2(a+b)+5*ln(2)
(7)在窗体上画一个命令按钮，名称为Commandl。单击命令按钮时，执行如下事件过程：
PrlVate Sub Commandl_C1ick（）
a$=”software and hardware“
b$＝Right(a$,8)
c$=Mid(a$,1，8)
Msgbox a$，b$,c$,1
End Sub
则在弹出的信息框的标题栏中显示的信息是（）。
A)softWare and hardware
B)software
C)hardwafe
D)1
(8)执行如下语句：
a＝inutBox(”Today“，”TomorroW，“Yesterday”，,“Day before yesterday”，5)
将显示一个输入对话框，在对话框的输入区中显示的信息是（）。
A)Today
B)Tomorrow
C)Yesterday
D)Day before yesterday
(9)表示滚动条控件取值范围最大值的属性是（）。
A)Max
B)LargeChange
C)Value
D)Max-Min
(10)在窗体上画一个名称为Listl的列表框，一个名称为Labell的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是
A)Private Sub listl_Click()B)Private Sub Listl_C1ick()
Labell．Caption＝list1.listlndex Labell．Nanle＝Listl．listindex
End Sub ．End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是（）。A)空白
B)错误提示
C)北京
D)上海
(15)假定有以下函数过程：
Function Fun(S As String)As String
Dim s1 As String
For i=1 To Len(S)
s1＝UCase(Mid(S，i，1))十s1
Next i
Fun＝s1
End Function
在窗体上画一个命令按钮，然后编写如下事件过程：
Prlvate Sub Commmldl_Click()
Dim Str1 As String，Str2 As String
Strl＝inputbox(“请输入一个字符串”)
Str2=Fun(Strl)
Print Str2
End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为（）。
A)abcdefg
B)ABCDEFG
C)gfedcba
D)GFEDCBA
(16)设有语句
open “c：Test．Dat” For OutPut As#1
则以下错误的叙述是（）。
A)该语句打开C盘根目录下一个己存在的文件Test．Dat B)该语句在C盘根目录下建立一个名为Test．Dat的文件
C)该语句建立的文件的文件号为1 D)执行该语句后，就可以通过Print#语句向文件Test．Dat中写入信息
(17)以下叙述中错误的是（）。
A)用Shell函数可以调用能够在Windows下运行的应用程序
B)用Shell函数可以调用可执行文件，也可以调用VisualBasic的内部函数
C)调用Shell函数的格式应为：<变量名>＝Shell(……)
D)用Shell函数不能执行DoS命令
(18)以下关于过程及过程参数的描述中，错误的是（）。
A)过程的参数可以是控件名称 B)用数组作为过程的参数时，使用的是“传地址”方式
C)只有函数过程能够将过程中处理的信息传回到调用的程序中
D)窗体可以作为过程的参数
(19)在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：
Private Sub Txta_KeyPress(keyascii as integer)
End Sub
若焦点位于文本框中，则能够触发KeyPress事件的操作是（）。
A)单击鼠标
B)双击文本框
C)鼠标滑过文本框
D)按下键盘上的某个键
(20)目录列表框的Path属性的作用是（）。
A)显示当前驱动器或指定驱动器上的路径
B)显示当前驱动器或指定驱动器上的某目录下的文件名
D)显示根目录下的文件名
D)只显示当前路径下的文件
(21)假定有如下事件过程：
PriVate Sub Form_MouseDown(button As Integer,Shift As Integer, x As Single，Y As
Single)
If Button＝2 then
PopupMenu popForm
End if
End Sub
则以下描述中错误的是（）。
A)该过程的功能是弹出一个菜单
B)popForm 是在菜单编辑器中定义的弹出式菜单的名称
C)参数X、Y指明鼠标的当前位置
D)Button=2 表示按下的是鼠标左键
(22)以下能够正确计算n!的程序是（）。
A)Private Sub Commandl_ClicK()
n＝5:x＝1
Do
X=x*1
i＝i十1
Loop While i＜n
Print x
End Sub B)Private Sub Commandl_Click()
n＝5: x＝1：i=1
Do
X＝X*1
i＝i十1
Loop While i＜n
Print x
End Sub C)Private Sub Commandl_Click()
n=5：x＝1：i＝1
Do
X=X*1
i＝i十1
Loop while i<=n
Print x
End Sub D)Private Sub Commandl_C1ick()
n＝5：x＝1：i=1
Do
X=X*l
i=i十1
loop While i＞n
Print x
End Sub
(23)在窗体上画一个名称为Commandl的命令按钮，再画两个名称分别为Labell、Label2的标签，然后编写如下程序代码：
Private x As Integer
Private Sub Commandl-Click()
X＝5：Y＝3
Call proc(x,Y)
Labell．Caption＝X
Label2．Caption＝Y
End Sub
Private Sub proc(ByVal a As Integer，ByVal b As hteger)
x＝a* a
Y=b十b
End Sub
程序运行后，单击命令按钮，则两个标签中显示的内容分别是（）。
A)5和3
B)25和3
C)25和6
D)5和6
(24)在窗体上画一个名称为Commandl的命令按钮，一个名称为Labell的标签，然后编写如下事件过程：
Private Sub Commandl_C1ick()
S＝0
For i＝1 T0 15
x＝2*i一1
1f x Mod 3＝0 Then s＝s十1
Nexti
Labell．Caption=s
End Sub
程序运行后，单击命令按钮，则标签中显示的内容是（）。
A)1
B)5
C)27
D)45
(25)在窗体上画一个名称为Commandl的命令按钮和三个名称分别为Labell、Label2、Label3的标签，然后编写如下代码：
Private x As Integer
Private Sub Command1_C1ick()
Static y As Integer
Dimz As Integer
n＝10
z=n十z
y＝y十z
X＝X十Z
Labell.Caption＝x
Label2．Caption=y
Label3．Caption＝z
End Sub
运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是（）。
A)10 10 10
B)30 30 30
C)30 30 10
D)10 30 30(26)设在窗体上有一个名称为Commandl的命令按钮，并有以下事件过程：
PriVate Sub Commandl_C1ick()
Static b As Variant
b＝Array(1,3,5,7,9)
End Sub
此过程的功能是把数组b中的5个数逆序存放(即排列为9，7，5，3，1)。为实现此功能，省略号处的程序段应该是（）。
A)For i＝0 To 5-1＼2
tmp＝b(i)
b(i)＝b(5-i-1)
b(5-i-1)＝tmp
Next B)for i＝0 To 5
tmp=b(i)
b(i)＝b(5-i-1)
b(5-i-1)=tmp
Next C)For i＝0 T0 5＼2
tmp＝b(i)
b(i)＝b(5-i-1)
b(5-i-1)；tmp
Next D)For i＝1 T0 5＼2
tmp=b(i)
b(i)＝b(5一i一1)
b(5-i-1)＝tmp
Next
(27)在窗体上画一个名称为Drivel的驱动器列表框，一个名称为Dirl的目录列表框，一个名称为Filel的文件列表框，两个名称分别为Labell、Label2，标题分别为空白和“共有文件”的标签。编写程序，使得驱动器打开一个保存文件的通用对话框。该窗口的标题为“Save”，缺省文件名为“SaveFile”，在“文件类型”栏中显示*.txt。则能够满足上述要求的程序是（）。
A)Private Sub Command_C1ick()
Commondialogl．FileName=“Savefile”
Commondialogl.filter＝“All Files|*.*|(*.txt)|*.txt|(*.doc)．|*.doc”
CommonDialogl．Filterindex=2
CommonDialogl．Dial0g．title＝“Save”
CommonDialogl．Action＝2
End Sub B)Private Sub Commandl-Click()
CommonDialogl．FileName＝“SaveFile”
CommonDiaLogl．Filter＝“A11 Files|*.*|(*.txt)|*.txt|*．doc|*．doc”
C0mmonDialogl．FilterIndex＝1
CommonDialogl．DialogTitle＝“Save”
CommonDialogl．Action＝2
End Sub C)Private Sub Cmmandl_C1ick()
COmmonDialogl．FileName＝“Save”
CommonDialogl．FiLter＝“A11Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc”
CommonDialogl．Filterindex＝2
C0mmonDialogl．DialogTitle＝“SaveFile”
CommonDialogl．Action＝2
End Sub D)Private Sub Commandl_C1ick()
CommonDialogl．FileName＝“SaveFile”
CommonDialogl．Filter＝“All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc”
CommonDialogl．FilterIndex=1
CommonDialogl．DialogTitle=“Save”
CommonDialogl．Action＝1
End Sub
二、填空题(每空2分，共30分)
请将每空的正确答案写在答题卡[1]一[15序号的横线上，答在试卷上不得分。
(1)visual Basic中有一种控件组合了文本框和列表框的特性，这种控件是________
(2)Visual Basic提供的对数据文件的三种访问方式为随机访问方式_____和二进制访问方式。
(3)执行下面的程序段后，变量S的值为_______。
S＝5
For i ＝2.6 To 4.9 Step 0.6
S=S十1
Next i
(4)为了在运行时把d:pic文件夹下的图形文件a.jpg装入图片框Picturel，所使用的语句为_______。
(5)计时器控件能有规律的以一定时间间隔触发_______事件，并执行该事件过程中的程序代码。
(6)以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的 数并求出它们的和。请填空。
Private Sub Commandl_C1ick()
Fori＝1To 20
x＝Int(____________*200+100)
If_______[7] ＝0 Then
Print x
S＝S十 _________ [83
End If
Next i
Print “Sum＝”：S
End Sub
(7)设有如下程序
Private Sub Form_Click()
Dim a AS Integer，b As integer
a＝20：b=50R>
p2a，b
p3a,b
Print“a＝”；a,“b＝”；b
End Sub
Sub pl(x As Integer，ByVal y As Integer)
x=x十10．
v＝v十20
End Sub
Sub p2(byVal x As Integer, y As Integer)
x＝x十10
y＝y十20
End Sub
Sub p3(ByValx As Integer, ByVal y As Integer)
x＝x十10
y=y十20
End Sub
该程序运行后，单击窗体，则在窗体上显示的内容是：a＝______和b=______。
(8)在窗体上画一个名称为Commandl的命令按钮，编写如下事件过程
Private Sub Commandl_C1icK()
Dim As String
a=_____[11]
For i ＝1 To 5
Print Space(6-i)；Mid$3(a，6-i，2*i-1)
Nexti
End Sub
程序运行后，单击命令按钮，要求窗体上显示的输出结果为
456
34567
2345678
123456789
请填空。
(9)在窗体上画一个名称为Combo1的组合框，画两个名称分别Label1和Label2及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”如图所示； 如果存在，则在Label2中给出提示“输入项已在组合框中”。请在[12>、[13]和[14]处将程序补充完整。
Private Sub Combol_________<12>(KeyAscii As integer)
1f KeyAscii＝13 Then
Fori＝0 To Combo1．listCount-1
1f Combo1．Text＝______ [13] Ihen
Label2．Caption＝“输入项己在组合框中”
ExIt Sub
End lf
Next i
Label2．Caption＝“已成功添加输入项”
Combo1．______ [14] CombO1．Text
End lf
End Sub
(10)设有如下程序
Private sub search(a()As variant，ByVal key As Variant，index%)
Dim I％
ForI＝LBound(a)To UBound(a)
If key＝a(I)Then
index＝I
Exit Sub
End If
Next I
Index＝-1
End Sub
Private Sub Form_Load()
Show
Dtm b()As Variant
Dim n As Integer
b＝Array(1，3，5，7，9，11，13，15)
Call search(b，11，n)
Printt n
End Sub
程序运行后，输出结果是________。
2003年9月二级VB笔试试题
（考试时间90分钟，满分100分）
一、选择题（（1）~（20）每小题2分，（21）~（30）每小题3分，共70分）
（1）以下叙述中错误的是（）。
A）Visual Basic 是事件驱动型可视化编程工具
B）Visual Basic应用程序不具有明显的开始和结束语句
C）Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性
D）Visual Basic中控件的某些属性只能在运行时设置
（2）以下叙述中错误的是（）。
A）在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件
B）以.BAS为扩展名的文件是标准模块文件
C）窗体文件包含该窗体及其控件的属性
D）一个工程中可以含有多个标准模块文件
（3）以下叙述中错误的是（）。
A）双击鼠标可以触发DblClick事件
B）窗体或控件的事件的名称可以由编程人员确定
C）移动鼠标时，会触发MouseMove事件
D）控件的名称可以由编程人员设定
（4）以下不属于Visual Basic系统的文件类型是（）。
A）.frm
B）.bat
C）.vbg
D）.vbp
（5）以下叙述中错误的是（）。
A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件
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
TelNum Integer
End Type TelBook
End Type
（7）以下声明语句中错误的是（）。
A）Const var1=123
B）Dim var2 = 'ABC'
C）DefInt a-z
D）Static var3 As Integer
（8）设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是（）。
A）List1.List
B）List1.ListIndex
C）List1.Index
D）List1.Text
（9）程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是（）。
A）MouseDown B）MouseUp
C）Load
D）Click
（10）设a=10，b=5，c=1，执行语句Print a > b > c后，窗体上显示的是（）。
A）True
B）False
C）
1D）出错信息
（11）如果要改变窗体的标题，则需要设置的属性是（）。
A）Caption
B）Name
C）BackColor D）BorderStyle
（12）以下能判断是否到达文件尾的函数是（）。
A）BOF
B）LOC
C）LOF
D）EOF
（13）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是（）。
A）如果工程中含有Sub Main过程，则程序一定首先执行该过程
B）不能把标准模块设置为启动模块
C）用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体
D）任何时刻最多只有一个窗体是活动窗体
（14）窗体的MouseDown事件过程
Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
有4个参数，关于这些参数，正确的描述是（）。
A）通过Button参数判定当前按下的是哪一个鼠标键
B）Shift参数只能用来确定是否按下Shift键
C）Shift参数只能用来确定是否按下Alt和Ctrl键
D）参数x,y用来设置鼠标当前位置的坐标
（15）设组合框Combo1中有3个项目，则以下能删除最后一项的语句是（）。
A）Combo1.RemoveItem Text
B）Combo1.RemoveItem 2
C）Combo1.RemoveItem 3
D）Combo1.RemoveItem Combo1.Listcount
（16）以下关于焦点的叙述中，错误的是（）。
A）如果文本框的TabStop属性为False，则不能接收从键盘上输入的数据
B）当文本框失去焦点时，触发LostFocus事件
C）当文本框的Enabled属性为False时，其Tab顺序不起作用
D）可以用TabIndex属性改变Tab顺序
（17）如果要在菜单中添加一个分隔线，则应将其Caption属性设置为（）。
A）=
B）*
C）&
D）-
（18）执行语句Open “Tel.dat” For Random As #1 Len = 50后，对文件Tel.dat中的数据能够执行的操作是（）。
A）只能写，不能读
B）只能读，不能写
C）既可以读，也可以写
D）不能读，不能写
（19）在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：
Private Sub Command1_Click()
n = Text1.Text
Select Case n
Case 1 To 20
x = 10
Case 2, 4, 6
x = 20
Case Is < 10
x = 30
Case 10
x = 40
End Select
Text2.Text = x
End Sub
程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是（）。
A）10
B）20
C）30
D）40
（20）设有以下循环结构
Do
循环体
Loop While <条件>
则以下叙述中错误的是（）。
A）若“条件”是一个为0的常数，则一次也不执行循环体
B）“条件”可以是关系表达式、逻辑表达式或常数
C）循环体中可以使用Exit Do语句
D）如果“条件”总是为True，则不停地执行循环体
（21）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim num As Integer
num = 1
Do Until num > 6
Print num;
num = num + 2.4
Loop
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是（）。
A）1 3.4 5.8
B）1 3 5
C）1 4 7
D）无数据输出
（22）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a As Integer, s As Integer
a = 8
s = 1
Do
s = s + a
a = a－1
Loop While a <= 0
Print s;a
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是（）。
A）7 9
B）34 0
C）9 7
D）死循环
（23）设有如下通用过程：
Public Function f(x As Integer)
Dim y As Integer
x = 20
y = 2
f = x * y
End Function
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Static x As Integer
x = 10
y=5
y = f(x)
Print x;y
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是（）。
A）10 5
B）20 5
C）20 40
D）10 40
（24）设有如下通用过程：
Public Sub Fun(a(), ByVal x As Integer)
For i = 1 To 5
x = x + a(i)
Next
End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：
Private Sub Command1_Click()
Dim arr(5)As Variant
For i = 1 To 5
arr(i)= i
Next
n = 10
Call Fun(arr(), n)
Text1.Text = n
End Sub
程序运行后，单击命令按钮，则在文本框中显示的内容是（）。
A）10
B）1C）25
D）24
（25）在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：
Option Base 1
Private Sub Command1_Click()
d = 0
c = 10
x = Array(10, 12, 21, 32, 24)
For i = 1 To 5
If x(i)> c Then
d = d + x(i)
c = x(i)
Else
d = d－c
End If
Next i
Print d
End Sub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为（）。
A）89
B）99
C）2D）77
（26）在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2；六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label 4~ Label6分别显示“A”、“B”、“A*B”等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3 显示A*B的计算结果。如图所示。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是（）。
A）Private Sub Command1_Click()
Label3.Caption = Str(Val(Label1.Caption)*Val(Label2.Caption))
End Sub
B）Private Sub Command1_Click()
Label3.Caption = HScroll1.Value * HScroll2.Value
End Sub
C）Private Sub Command1_Click()
Label3.Caption = HScroll1 * HScroll2
End Sub
D）Private Sub Command1_Click()
Label3.Caption = HScroll1.Text * HScroll2.Text
End Sub
（27）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
For n = 1 To 20
If n Mod 3 <> 0 Then m = m + n 3
Next n
Print n
End Sub
程序运行后，如果单击命令按钮，则窗体上显示的内容是（）。
A）15
B）18
C）D）24
（28）在窗体上画一个名称为Text1的文本框，并编写如下程序：
Private Sub Form_Load()Show Text1.Text = “" Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Print ”程序设计“ End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)Print ”Visual Basic“;End Sub 程序运行后，如果按”A“键，然后单击窗体，则在窗体上显示的内容是（A）Visual Basic
B）程序设计
C）A程序设计
D）Visual Basic程序设计
（29）设有如下程序：
Private Sub Command1_Click()Dim sum As Double, x As Double sum = 0 n = 0 For i = 1 To 5 x = n / i n = n + 1 sum = sum + x Next End Sub 该程序通过For循环计算一个表达式的值，这个表达式是（）。
A）1+1/2+ 2/3+3/4+4/5
B）1+1/2+2/3+3/4 C）1/2+2/3+3/4+4/
5D）1+1/2+1/3+1/4+1/5
（30）以下有关数组定义的语句序列中，错误的是（）。
A）Static arr1(3)
arr1(1)= 100
arr1(2)= ”Hello“
arr1(3)= 123.45 B）Dim arr2()As Integer
Dim size As Integer
Private Sub Command2_Click()
size = InputBox(”输入：“)
ReDim arr2(size)．．．．．．
End Sub。）
C）Option Base 1
Private Sub Command3_Click()
Dim arr3(3)As Integer
．．．．．．
End Sub
D）Dim n As Integer
Private Sub Command4_Click()
Dim arr4(n)As Integer
．．．．．．
End Sub
二、填空题（每空2分，共30分）
（1）执行下面的程序段后，i的值为 〖1〗，s的值为 〖2〗。
s = 2
For i = 3.2 To 4.9 Step 0.8
s = s + 1
Next i
（2）把窗体的KeyPreview属性设置为True，然后编写如下两个事件过程：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii)
End Sub
程序运行后，如果直接按键盘上的”A“键（即不按住Shift键），则在窗体上输出的字符分别是 〖3〗 和 〖4〗。
（3）在窗体上画一个标签（名称为Label1）和一个计时器（名称为Timer1），然后编写如下几个事件过程：
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 〖5〗
End Sub
Private Sub Form_Click()
Timer1.Enabled = 〖6〗
End Sub
Private Sub Timer1_Timer()
Label1.Caption = 〖7〗
End Sub
程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次（见图）。请填空。
——————————————————————
14：54：41
——————————————————————
（4）在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：
Private Sub Command1_Click()
S$ = InputBox(”请输入一个字符串“)
Text1.Text = S$
End Sub
Private Sub Text1_Change()
Label1.Caption = UCase(Mid(Text1.Text, 7))
End Sub
程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串”VisualBasic“，则在标签中显示的内容是 〖8〗。
（5）在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Label1，通过属性窗口把列表框中的项目设置为：”第一个项目“、”第二个项目“、”第三个项目“、”第四个项目“。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图所示(选择”第三个项目“的情况)。下面是实现上述功能的程序，请填空。
Private Sub Command1_Click()
If List1.ListIndex >= 〖9〗 Then
List1.RemoveItem 〖10〗
Label1.Caption = 〖11〗
Else
MsgBox ”请选择要删除的项目“
End If
End Sub
—————————————————————
第一个项目
第二个项目 COMMAND1
第三个项目 3
—————————————————————
（6）设有程序：
Option Base 1
Private Sub Command1_Click()
Dim arr1, Max as Integer
arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43)
（资料来源：东方教育网 http://www.xiexiebang.com)
〖12〗 = arr1(1)
For i = 1 To 8
If arr1(i)> Max Then 〖13〗
Next i
Print ”最大值是: “;Max
End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
（7）以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在文本框Text1中显示出来。请填空。
Private Sub Command1_Click()
Dim inData As String
Text1.Text = ”“
Open ”.smtext1.txt“ 〖14〗 As #1
Do While 〖15〗
Input #1, inData
Text1.Text = Text1.Text & inData
Loop
Close #1
End Sub
04年4月全国计算机等级考试二级VB笔试试卷
一、选择题（(1)—(20)每小题2分，(21)—(30)每小题3分，共70分）
下列各题 A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。
(1)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Move 500，500
End Sub
程序运行后，单击命令按钮，执行的操作为（）。
A)命令按钮移动到距窗体左边界、上边界各500的位置
B)窗体移动到距屏幕左边界、上边界各500的位置
C)命令按钮向左、上方向各移动500
D)窗体向左、上方向各移动500
(2)在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是（）。
A)TabStop
B)Enabled
C)Visible
D)TabIndex
(3)以下定义数组或给数组元素赋值的语句中，正确的是（）。
(4)在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为（）。
A)For i=0 To List1.ListCount-1
„„
Next
B)For i=0 To ListCount-1
„„
Next
C)For i=1 To List1.listCount
„„
Next
D)For i=1 To ListCount
„„
Next
(5)以下Case语句中错误的是（）。
A)Case 0 To 10
B)Case Is>10
C)Case Is>10 And Is<50
D)Case 3,5,Is>10
(6)以下关于图片框控件的说法中，错误的是（）。
A)可以通过Print方法在图片框中输出文本
B)清空图片框控件中图形的方法之一是加载一个空图形
C)图片框控件可以作为容器使用
D)用Stretch属性可以自动调整图片框中图形的大小
(7)执行语句s=Len(Mid(”VisualBasic“,1,6))后，s的值是（）。
A)Visual
B)Basic
C)6
D)11
(8)以下叙述中错误的是（）。
A)下拉式菜单和弹出式菜单都用菜单编辑器建立
B)在多窗体程序中，每个窗体都可以建立自己的菜单系统
C)除分隔线外，所有菜单项都能接收Click事件
D)如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见
(9)在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
a = 12345
Print Format$(a, ”000.00“)
End Sub
程序运行后，单击命令按钮，窗体上显示的是（）。
A)123.45
B)12345.00
C)12345
D)00123.45
(10)以下叙述中错误的是（）。
A)一个工程可以包括多种类型的文件
B)Visual Basic应用程序既能以编译方式执行，也能以解释方式执行
C)程序运行后，在内存中只能驻留一个窗体
D)对于事件驱动型应用程序，每次运行时的执行顺序可以不一样
(11)以下关于函数过程的叙述中，正确的是（）。
A)函数过程形参的类型与函数返回值的类型没有关系
B)在函数过程中，过程的返回值可以有多个
C)当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
D)如果不指明函数过程参数的类型，则该参数没有数据类型
(12)以下关于变量作用域的叙述中，正确的是（）。
A)窗体中凡被声明为Private的变量只能在某个指定的过程中使用
B)全局变量必须在标准模块中声明
C)模块级变量只能用Private关键字声明
D)Static类型变量的作用域是它所在的窗体或模块文件
(13)确定一个控件在窗体上的位置的属性是（）。
A)Width和Height
B)Width或Height
C)Top和Left
D)Top或Left
(14)在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程
Private Sub Command1_Click()
Text1.Text = ”Visual“
Me.Text1 = ”Basic“
Text1 = ”Program“
End Sub
程序运行后，如果单击命令按钮，则在文本框中显示的是（）。
A)Visual
B)Basic
C)Program
D)出错
(15)以下关系表达式中，其值为False的是（）。
A)”ABC“>”AbC“
B)”the“<>”they“
C)”VISUAL“=UCase(”Visual“)
D)”Integer“>”Int“
(16)语句Print 5/4*65 Mod 2的输出结果是（）。
A)0
B)1
C)2
D)3
(17)在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1Label1和Command1，然后编写如下两个事件过程：（）。
Private Sub Command1_Click()
strText = InputBox(”请输入“)
Text1.Text = strText
End Sub
Private Sub Text1_Change()
Label1.Caption = Right(Trim(Text1.Text), 3)
End Sub A)空
B)abcdef C)abc D)def
(18)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x =-5
If Sgn(x)Then
y = Sgn(x ^ 2)
Else
y = Sgn(x)
End If
Print y
End Sub
程序运行后，单击命令按钮，窗体上显示的是（）。A)-5 B)25 C)1 D)-1
(19)一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Pubilc X As Integer，在Model1中有语句Pubilc Y As Integer，则以下叙述中正确的是（）。A)变量X、Y的作用域相同
B)Y的作用域是Model1 C)在Form1中可以直接使用X D)在Form2中可以直接使用X和Y
(20)在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是（）。A）Drive1_Change B)Drive1_Click C)Dir1_Click D)Dir1_Change
(21)在窗体上画一个命令按钮（其NAME属性为Command1），然后编写如下代码:
Option Base 1
Private Sub Command1_Click()
Dim a
s = 0
a = Array(1,2,3,4)
j = 1
For i = 4 To 1 Step-1
s = s + a(i)* j
j = j * 10
Next i
Print s
End Sub
运行上面的程序，单击命令按钮，其输出结果是（）。A)4321 B)1234 C)34 D)12
(22)在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是（）。
A)Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 65 Or KeyAscii > 90 Then
MsgBox ”请输入大写字母“
KeyAscii = 0
End If
End Sub
B)Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode < 65 Or KeyCode > 90 Then
MsgBox ”请输入大写字母“
KeyCode = 0
End If
End Sub
C)Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Asc(Text1.Text)< 65 Or Asc(Text1.Text)> 90 Then
MsgBox ”请输入大写字母“
End If
End Sub
D)Private Sub Text1_Change()
If Asc(Text1.Text)> 64 And Asc(Text1.Text)< 91 Then
MsgBox ”请输入大写字母“
End If
End Sub
(23)假定在窗体（名称为Form1）的代码窗口中定义如下记录类型：
Private Type animal
AnimalName As String*20
AColor As String*10
End Type
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:
Private Sub Command1_Click()
Dim rec As animal
Open ”c:vbTest.dat“ For Random As #1 Len = Len(rec)
rec.animalName = ”Cat“
rec.aColor = ”White“
Put #1, , rec
Close #1
End Sub
则以下叙述中正确的是（）。
A)记录类型animal不能在Form1中定义，必须在标准模块中定义 B)如果文件c:vbTest.dat不存在，则Open命令执行失败
C)由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾 D)语句“Put #1, , rec”将animal类型的两个数据元素写到文件中
(24)在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：
Private Sub Command1_Click()
n = Val(Text1.Text)
If n2 = n/2 Then
f = f1(n)
Else
f = f2(n)
End If
Print f;n
End Sub
Public Function f1(ByRef x)
x=x*x
f1=x+x
End Function
Public Function f2(ByVal x)
x=x*x
f2=x+x+x
End Function
程序运行后，在文本框中输入6，然后单击命令按钮，窗体上显示的是（）。A)72 36 B)108 36 C)72 6 D)108 6
(25)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:
Private Sub Command1_Click()
c = 1234
c1 = Trim(Str(c))
For i = 1 To 4
Next
End Sub
程序运行后，单击命令按钮，要求在窗体上显示如下内容
123
1234
则在下划线处应填入的内容为（）。A)Right(c1,i)B)Left(c1,i)C)Mid(c1,i,1)D)Mid(c1,i,i)
(26)在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：
Private Sub Command1_Click()
n = Val(Text1.Text)
For i = 2 To n
For j = 2 To sqr(i)
If i Mod j = 0 Then Exit For
Next j
If j > Sqr(i)Then Print i
Next i
End Sub
该事件过程的功能是（）。A)输出n以内的奇数 B)输出n以内的偶数 C)输出n以内的素数
D)输出n以内能被j整除的数
(27)在以下描述中正确的是（）。
A)标准模块中的任何过程都可以在整个工程范围内被调用
B)在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程 C)如果工程中包含Sub Main过程，则程序将首先执行该过程
D)如果工程中不包含Sub Main过程，则程序一定首先执行第一个建立的窗体
(28)在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
Private Function f(m As Integer)
If m Mod 2 = 0 Then
f = m
Else
f = 1
End If
End Function
Private Sub Command1_Click()
Dim i As Integer
s = 0
For i = 1 To 5
s = s + f(i)
Next
Print s
End Sub
程序运行后，单击命令按钮，在窗体上显示的是（）。A)11 B)10 C)9 D)8
(29)在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim array1(10, 10)As Integer
Dim i As Integer, 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)15 B)14 C)13 D)12
(30)在窗体上画四个文本框（如图所示），并用这四个文本框建立一个控件数组，名称为Text1（下标从0开始，自左至右顺序增大），然后编写如下事件过程：
Private Sub Command1_Click()
For Each TextBox In Text1
Text1(i)= Text1(i).Index
i = i + 1
Next
End Sub
程序运行后，单击命令按钮，四个文本框中显示的内容分别为（）。A)0 1 2 3 B)1 2 3 4 C)0 1 3 2 D)出错信息
二、填空题(每空2分，共30分)
请将每空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。
(1)Visual Basic应用程序中标准模块文件的扩展名是【1】。
(2)在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击
窗体，则弹出与mnuEdit相应的菜单。以下是实现上述功能的程序，请填空。
Private Sub Form 【2】(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=2 Then
【3】 mnuEdit
End If
End Sub
(3)为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的【4】属性设置为【5】。
(4)与数学表达式 对应的Visual Basic表达式是【6】。
(5)将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是【7】。
(6)在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为
Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，如图所示，请填空。
Private Sub Option1_Click(Index As Integer)
Select Case 【8】
Case 0
a = ”宋体“
Case 1
a = ”黑体“
Case 2
a = ”楷体＿GB2312“
End Select
text1.【9】 =a
End Sub
(7)在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2，如图所示，程
序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。请填空。
Private Sub Combo1_Click()
Call ShowItem(Combo1, Label1)
End Sub
Private Sub Combo2_Click()
Call ShowItem(Combo2, Label2)
End Sub
Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)
【10】.Caption =【11】.Text
End Sub
（8）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
n = 5
f = 1
s = 0
For i = 1 To n
f = f【12】
s = s + f
Next
Print s
End Sub
该事件过程的功能是计算的值。请填空。
（9）在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click()
Dim a(10)As Integer
For i = 1 To 10
a(i)= i
Next
Call swap（【13】）
For i = 1 To 10
Print a(i);
Next
End Sub
Sub swap(b()As Integer)
n = 【14】
For i = 1 To n / 2
t = b(i)
b(i)= b(n)
b(n)= t
【15】
Next
End Sub
上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，„„，a(5)与a(6)的值互换。请填空。
04年9月全国计算机等级考试二级VB笔试试卷
一、选择题（(1)—(20)每小题2分，(21)—(30)每小题3分，共70分）
(1)设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是：（）。A)text1.maxlength=0 B)text1.enabled=flase C)text1.visible=flase D)text1.width=0
(2)以下能在窗体Form1的标题栏中显示“VisualBasic窗体”的语句是（）。A)Form1.Name=“VisualBasic窗体” B)Form1.Title=“VisualBasic窗体” C)Form1.Caption=“VisualBasic窗体” D)Form1.Text=“VisualBasic窗体”
(3)在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图所示：
以下能实现上述操作的程序段是（）。A)Private Sub HScroll_Change()Text1.Text=HScroll1.value End Sub B)Private Sub HScroll_Click()Text1.Text=HScroll1.value End Sub C)Private Sub HScroll_Change()Text1.Text=HScroll.Caption D)Private Sub HScroll_Click()Text1.Text=HScroll.Caption End Sub
(4)设菜单中有一个菜单项为”Open“。若要为该菜单命令设计访问键，即按下Alt及字母O时，能够执行”Open“命令，则在菜单编辑器中设置“Open”命令的方式是（）。A)把Caption属性设置为&Open B)把Caption属性设置为O&pen C)把Name属性设置为&Open D)把Name属性设置为O&pen
(5)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click()x=InputBox(“Input”)Select Case x Case 1,3 Print “分支 1” Case Is >4 Print “分支 2” Case Else Print “Else 分支 ” End Select End Sub 程序运行后，如果在输入对话框中输入2，则窗体上显示的是（）。A）分支1 B）分支2 C）Else分支
D)程序出错
(6)以下关于MsgBox的叙述中，错误的是（）。A）MsgBox函数返回一个整数
第三篇：VB笔试复习题
学参教育东北林业大学考研网http://
笔试复习题
笔试占总分的50％、平时占10％、上机占40％。
笔试时间为1小时。四道大题为：程序填空、程序运行结果、程序段功能、编程题
复习范围
随机整数[A,B]
公式：Int(Rnd*(B-A+1)+A)1． 循环
（1）打印三角形 方法一：用单重循环 Private Sub Form_Click()For i = 1 To 8
Print Tab(151, “*”)Next i End Sub
方法二：用多重循环 Private Sub Form_Click()For i = 1 To 8 Print Tab(151 Print “*”;Next j Print Next i End Sub
（2）求积数部分和
P88 例4.18p268习题3Private Sub Form_Click()Dim s!,i%,t!i=1:t=2:s=
1Do while 1/t>0.0001
s=s+1/t i=i+1 t=t+iLoop
Print “共计算”;i-1;“项”Print “s=”;s End Sub
（3）求100到200之间的所有素数。Private Sub Form_Click()Dim t As Boolean
For x = 101 To 200 Step 2 t = True
For i = 2 To xx * 100)/ 10)z = iy * 10
If i = x * x * x + y * y * y + z * z * z ThenPrint i, End If Next i End Sub
(6)最大值、最小值。2． 数组(1)排序
P106 例5.5 从小到大排序
Private Sub Form_Click()
学参教育东北林业大学考研网http://
Dim a()As Integer n = Val(InputBox(“n”))ReDim a(1 To n)As Integer Randomize For i = 1 To n
a(i)= Int(Rnd * 101 + 100)Print a(i);
If i Mod 10 = 0 Then Print Next i
For i = 1 To n1
s(i, j)= s(i1)+ s(i2 * i + 4 * j);s(i, j);Next j
Picture1.Print Next i End Sub 3． 过程
（1）s=4!+5!+6!
Private Sub Form_Click()Print fax(4)+ fax(5)+ fax(6)End Sub
Private Function fax(k As Integer)As Single t = 1
For i = 2 To k t = t * i Next i fax = t
End Function
（2）回文数P2784
Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then
If Not IsNumeric(Text1)Then
MsgBox “输入非数字串，重新输入”Text1.Text = “"Text1.SetFocusElse
If IsH(Text1)Then
Picture1.Print Text1;” ★ “Else
Picture1.Print Text1End IfText1 = ”"End IfEnd If End Sub
Function IsH(ss As String)As BooleanDim i%, Ls%IsH = Truess = Trim(ss)Ls = Len(ss)
For i = 1 To Ls 2
If Mid(ss, i, 1)<> Mid(ss, Ls + 1-i, 1)ThenIsH = FalseExit FunctionEnd IfNext i End Function
4． 文件(要求掌握随机文件)讲稿中例题
第四篇：全国VB二级操作试题及答案2016
一、基本操作题
(1)在名称为Forml，标题为“输入”、最大化按钮不可用的窗体上画1个名称为Framel的框架控件，其标题为“选择性别”;再向框架内画两个名称分别为Optionl和Option2的单选按钮，其标题分别为“男”和“女”，并将单选按钮Option2设置为选中状态。请设置相应属性使得程序执行时，窗体界面如图所示。
注意：存盘时，将文件保存至考生文件夹下，窗体文件名为sjtl.frm，工程文件名为sjtl.vbp。
(2)在名称为Forml的窗体上画1个名称为Labell的标签，其标题为“计算机等级考试”，且能根据标题内容自动调整大小，有边框(如图所示);再在窗体上画1个名称为HScrolll的水平滚动条，并将滚动条所能表示的最小值设置为
10、最大值设置为20。
要求：编写适当的事件过程，使得程序运行时，当单击水平滚动条两端的箭头时，能将标签中的文字大小设置为滚动框当前位置值，程序运行后的界面如图所示。
注意：程序中不得使用变量，每个事件过程中只能写一条语句(不得使用选择语句或循环语句)。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
二、简单应用题
(1)考生文件夹中有工程文件sjt3.vbv。窗体上显示有一个列表框和一个文本框，且列表框中已有若干列表项。程序的功能是，程序运行时，当用户在列表框中单击并选中某个列表项时，该项的内容将显示到文本框中，用户可以在文本框中对相关内容进行编辑，按回车键后，能够用编辑好的内容替换被选中的列表项，并自动清空文本框;当双击某个列表项时，则从列表框中删除该列表项;当用户直接在文本框中键入文本并按回车键后，则把该文本添加为列表框的一个新列表项，添加完成后，将文本框清空。运行窗体如图所示。
要求：程序已经给出，但不完整，请将其中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序。最后程序按原文件名存盘。
(2)考生文件夹中有一个工程文件sjt4.vbp。窗体上有两个文本框和一个标题为“运算”的命令按钮。程序的功能是，当程序运行时，单击“运算”按钮，能够产生10个1～100之间的随机整数，并显示在上面一个文本框中，然后，程序从中找出一个最大值，并将最大值与第1个数互换位置，最后把结果显示在下面一个文本框中。下图为程序某次运行的结果。程序已经给出，但不完整，请将其中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。
三、综合应用题
考生文件夹下有工程文件sjt5.vbp，窗体界面如图所示。考生文件夹下的in5.dat文件中有某次歌睦大奖赛10位选手的得分，文件中的每一行数据包含选手的编号及5位评委的打分。程序运行时，单击“显示数据”按钮，则将in5.dat文件的内容读入二维数组a中，并将数组a各元素的值显示在Textl文本框中;单击“计算并排序”按钮，则先计算每位选手的平均分作为最后得分，再按最后得分从高到低排序，最后按序在Listl列表框中显示各选手的编号和最后得分(每组编号和最后得分用空格隔开作为一行)。单击“保存”按钮，则保存结果。“显示数据”和“保存”按钮的Click事件过程已经给出，请编写“计算并排序”按钮的Click事件过程实现上述功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须单击“计算并排序”按钮后，再单击“保存”按钮保存结果，否则无成绩。最后，程序按原文件名存盘。
参考答案及解析
一、基本操作题
(1)【解题思路】新建一个空白窗体，添加一个框架控件和两个单选按钮控件，设置窗体和控件的相关属性值。
【操作步骤】
步骤1：新建一个“输入”、最大化按钮不可用的窗体，相关属性设置如表4.1所示。
步骤2：向窗体中添加一个框架控件和两个选项按钮，并设置好相关属性，如表4.2所示。
设置完成后效果如图4.1所示。
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
(2)【解题思路】新建一个空白窗体，添加一个标签控件和一个水平滚动条控件，设置好该控件的相关属性，最后通过水平滚动条的change事件，将标签控件的fontSize属性设置为滚动条的value值。
步骤3：添加一个水平滚动条，设置控件的相关属性，如
表4.4所示。
设置完成后，窗体运行效果如图4.2所示。
步骤5：调试并运行程序，关闭程序后按题目要求存盘。
二、简单应用题
(1)【解题思路】本题主要考查对列表框控件的使用，包括向列表框中增加项目，从列表框中删除项目。修改列表框中选中项目的值。
第一个空使用列表框的Text属性，该属性的值为最后一次选中的表项的文本。
第二个空使用列表框的Lisflndex属性，该属性的值是已选中的表项的位置。
第三个空判断Text1文本框中的内容是否为空。
第四个空表示当列表框中无选中项目时，将Text1中的内容添加到列表框的最后。
第五个空表示将Text1文本框中的文本替换为列表框中选中的项目，使用列表框的List和ListIndex属性。
步骤3：调试并运行程序，关闭程序后按题目要求存盘
(2)【解题思路】本题主要考核对数组中元素的基本操作，利用循环语句找出数组中的最大值，并将保存最大值和其所对应的下标，然后将最大值与数组中的第一个元素进行互换操作。
三、综合应用题
【解题思路】本题主要考核列表框控件的基本操作，在事件过程中利用循环结构对二维数组中的元素求平均值，并将结果添加到列表框中，然后利用二重循环结构对列表框中的元素进行降序排列。
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
第五篇：二级VB用户手册
无忧考试吧(http://ncre.wyk8.com)全国计算机等级考试超级模拟软件用户手册
二级Visual Basic语言程序设计 1.1 引言
南京易考无忧科技有限公司研制的全国计算机等级考试超级模拟软件提供了开放式的考试环境，具有自动计时、自动阅卷评分、完全模拟真实考场等功能，能让考生尽快熟悉等级考试的考试环境，掌握全国计算机等级考试的出题规律，顺利地通过考试。
全国计算机等级考试超级模拟软件（二级Visual Basic）题型为选择题、基本操作题、简单应用题和综合应用题。
等级考试中上机考试部分在中文版Windows 7系统环境下运行，用来测试考生在Windows的环境下对Visual Basic编程软件的使用能力。
1.2 安装过程
1）启动计算机，进入Windows 7操作系统。
2）双击运行无忧全国计算机等级考试模拟软件安装包，然后按提示进行安装。3）安装成功后，系统将自动在桌面上创建 “二级VB练习”和“二级VB考试”的快捷方式图标，并在“程序”菜单项中增加“全国计算机等级考试超级模拟软件（二级VB）”。
1.3 考试环境
1.3.1 硬件环境
CPU：1G或以上 内存：512M或以上
硬盘：剩余空间500M或以上
1.3.2 软件环境
·1· 无忧考试吧(http://ncre.wyk8.com)中文版Windows 7 中文版Visual Basic 6.0 1.3.3 软件使用模式
本软件有2种使用模式：“离线模式”和“联网模式”。
离线模式：仅固定在一台电脑上使用。激活方法：登录http://ncre.wyk8.com，在会员中心或主页面单击“激活软件”按钮，按提示进行操作。获得激活码后，启动模拟软件，选择“离线模式”，输入激活码激活相应的科目。
联网模式：在任意联网的电脑上使用。开通方法：启动模拟软件，选择“联网模式”，使用会员名登录模拟软件，输入激活卡号、密码开通相应的科目。
1.4 软件试用（未激活状态下）步骤
软件未激活，试用时只能看到五套试题。
1.4.1 “离线模式”下试用
1）双击桌面上的“二级VB练习”（或“二级VB考试”）快捷方式，出现下图所示的界面：
2）单击“离线模式”按钮，出现下图所示的界面：
·2· 无忧考试吧(http://ncre.wyk8.com)
3）单击“先试用，以后激活”按钮，即可进入试用模式（可以抽取5套试卷）。4）在操作步骤2中，单击“更改模式”按钮可以切换到模式选择界面。
1.4.2 “联网模式”下试用
1）双击桌面上的“二级VB练习”（或“二级VB考试”）快捷方式，出现下图所示的界面：
2）单击“联网模式”按钮，出现下图所示的界面：
·3· 无忧考试吧(http://ncre.wyk8.com)
3）单击“试用软件”按钮，即可进入试用模式（可以抽取5套试卷）.4）在操作步骤2中，单击右上角“更换模式”按钮可以切换到模式选择界面。
1.5 软件激活步骤
本软件为激活版，请按以下步骤进行激活（两种模式中任选一种，激活后，将不能更换使用模式）。
1.5.1 如果您的电脑不能上网，请选择“离线模式”
1）单击“离线模式”按钮，出现下图所示的界面：
2）在软件激活界面中，单击“复制产品ID”按钮（可以将复制的产品ID粘贴保存在记事本中）。
3）准备好激活卡、产品ID，可以用手机上网，也可以到能上网的电脑上，输入
·4· 无忧考试吧(http://ncre.wyk8.com)网址：http://ncre.wyk8.com/，注册成为无忧考吧会员，进入会员中心。单击页面左侧“考试应用”下的“计算机等级考试”，出现下图界面：
4）在产品激活页面中输入产品ID、激活卡卡号、激活卡密码和验证码，单击“激活”按钮，出现下图所示界面：
5）激活成功后，在激活记录表中可以看到软件激活的相关信息。红色部分为激活码，用于软件激活。请一定将获得的激活码记录下来或复制到U盘中保存。（注意：请牢记激活码，并及时到您的电脑上激活软件。）
6）在软件激活界面中输入获得的激活码和验证码，如下图所示的界面：
·5· 无忧考试吧(http://ncre.wyk8.com)
7）单击“激活”按钮，弹出软件激活成功界面，如下图。
1.5.2 如果您希望可以在任意一台可以上网的电脑上使用本软件，请选择“联网模式”
1）双击桌面上的“二级VB练习”（或“二级VB考试”）快捷方式，出现下图所示的界面：
·6·
无忧考试吧(http://ncre.wyk8.com)2）单击“联网模式”按钮，出现下图所示的界面：
3）如果您已经注册成为ncre.wyk8.com网站的会员（尚未注册成为会员的用户请看操作步骤5），请输入会员名、会员密码，单击“现在登录”按钮，跳转到激活产品界面进行产品激活（如下图）：
4）请输入激活卡号、激活卡密码和验证码，单击“激活产品”按钮，此时窗口跳转到等考练习界面或等考考试界面表示本软件激活成功。
5）尚未注册成为会员的用户，需要注册成为会员再进行软件激活。注册方法：单击“立即注册”按钮，弹出下图界面；
·7· 无忧考试吧(http://ncre.wyk8.com)
6）填写相关会员注册信息，完成后单击“同意以下条款并注册”，此时弹出一个新的界面（如下图），要求填写报考区域、我的学校（这两项为必填项），密码保护问题可填可不填。
7）信息填写完整后，点击“提交”按钮，此时弹出会员名注册成功信息（如下图），然后按照步骤
3、步骤4对软件进行激活。
·8· 无忧考试吧(http://ncre.wyk8.com)
1.6 软件操作说明
1.6.1 上机练习
1）双击桌面上的“二级VB练习”快捷方式。2）单击“上机练习”项，将弹出下图所示的画面：
考生可根据自己的需要选择练习选项。
随机出题：系统会在固定的套数范围内，随机抽取某一套试卷供您练习。固定抽题：系统会将系统里所有的题目分成若干套数显示给用户，由用户自己决定要练习的试卷套号，方便考生系统练习。
重复抽题：抽取最近一次测试的试卷，方便考生反复练习，加强记忆。
恢复现场：恢复最近一次测试的试卷和答题情况，可以帮助考生完成上次没有完成的练习。
·9· 无忧考试吧(http://ncre.wyk8.com)3）考生可根据自己的需要选择练习选项。下面以单击“固定抽题”为例，出现下图所示的画面：
4）输入所需固定抽题的套数，单击“确定”按钮，将出现如下画面：
1.选择题
鼠标单击选择题，然后从“答题”菜单中选择“选择题”菜单项，出现下图所示的选择题界面：
·10· 无忧考试吧(http://ncre.wyk8.com)
直接用鼠标左键单击选择答案选项，同时题号处有不同的颜色显示，尚未做的试题显示为红色，已经做过的试题显示为浅蓝。单击“答案”按钮，当前题的正确选项会来回变换颜色。单击“评析”按钮，可以查看当前题目的评析。单击“保存并退出”按钮，返回到练习主界面，选择其他类型的试题。
2.基本操作题、简单应用题和综合应用题
从“答题”菜单中选择“启动Visual Basic”，系统将自动运行注册过的Visual Basic 6.0版本，即可进行做题。请按照试题内容的要求进行操作，将文件存放在考生文件夹下。
技巧：在操作过程中要对试题进行评分，可用“评分”菜单中的“评当前题”或“评全部题”，评完后可以返回继续做题。
在操作过程中要查看操作步骤，可单击“操作演示”菜单中的“[基本操作题]演示”，“[简单应用题]演示”或“[综合应用题]演示”查看。
在操作过程中要添加笔记，可用“笔记”菜单中的“添加笔记”，添加后可用菜单中的“修改笔记”，“查看笔记” 对笔记进行修改和查看。也可用此菜单中的“标记此题”进行标记，以便通过“练习日志”中的“标记练习”再次做题。
注意：做完题后，请先将Visual Basic程序关闭，然后再评分。
当考生做完所有的试题后，单击屏幕上状态栏中的“交卷”按钮，系统自动进行评分，评分完成后出现下图所示的画面：
·11· 无忧考试吧(http://ncre.wyk8.com)
该画面列出考生的得分和错误信息，单击“评析”按钮，可以查看题面以及详尽的评析。
查看完毕后，请单击“退出”按钮。
5）单击“操作演示”即可观看当前题目的操作演示。
6）单击“返回”按钮，系统返回做题界面，可重复做当前的题目。
1.6.2 上机考试
1）双击桌面上的“二级VB上机考试”快捷方式。
·12· 无忧考试吧(http://ncre.wyk8.com)
2)单击“开始登录”按钮，进入登录界面，在“准考证号”栏中输入准考证号码。
注：二级Visual Basic考试的准考证号为260199990001－260199990005。输入准考证号前，将鼠标停留在输入栏的位置，系统会提示准考证范围。
3）单击“登录”按钮，系统出现下图所示的提示：
·13· 无忧考试吧(http://ncre.wyk8.com)
4）单击“是”按钮，进入下图所示的登录界面：
5）单击“开始考试”按钮，系统开始抽题，然后出现下图所示的界面：
6）勾选“已阅读”后，单击“开始考试并计时”，即可按照题面的提示进行操
·14· 无忧考试吧(http://ncre.wyk8.com)作。考试过程和方法与前面“练习”一样。
7）交卷后显示每题得分和总分。
8）如果对得分不满意，希望重做且上一次考试的时间没有用完，则可以退出后重新进入登录界面，输入刚才的准考证号，验证并确认后出现如下对话框：
9）单击“确定”按钮，出现下图所示界面：
·15· 无忧考试吧(http://ncre.wyk8.com)
输入“ABC”，并单击“密码验证”按钮后即可重做刚才那套试卷（如果上一次考试时间已经用完，则进入考试界面后会立即强制交卷）。如输入“WY”则系统会重新抽取一套新的上机题。
1.6.3 辅助功能
双击桌面上的“二级VB练习”快捷方式，单击左侧“辅助功能”项，将弹出下图所示的画面：
1.练习日志
·16· 无忧考试吧(http://ncre.wyk8.com)单击“练习日志”，可查看历次练习的情况统计。
练习日志提供了列表显示和图形显示两种方式，列表显示可以查看先前练习的时间、类型以及得分情况，图形显示又分条形图和线形图，让你更直观地了解自己做题的不足。
练习日志最重要的是提供了各项辅助功能：（1）通过“试卷重做”功能对试题进行重做；（2）通过“查看试卷”功能查看做过的试卷情况；（3）通过“打印试卷”功能将练习过的试卷打印出来；（4）通过“错题重做”功能将练习中出现的错题进行重做，即只做曾经做错的题，加强了复习的目标性；（5）通过“标记练习”功能对练习时做标记的题再次练习，以方便考生直接定位于自己的需求。
单击右上角的关闭按钮，可回到辅助功能主界面。
2.查看笔记
单击“查看笔记”，可查看在考试中添加的笔记。
·17· 无忧考试吧(http://ncre.wyk8.com)
笔记可以用来记录下当前题目的心得体会，或者标记题目的重要性。同时笔记会将创建时间、查看次数和题目的题面自动保存下来，以便以后查看。这些笔记都将是你积累下来的财富。在考前冲刺复习中将会起到很大的作用。
查看笔记时，可以通过菜单栏上的“修改”、“删除”按钮，对已经存在的笔记进行相应操作，其中，修改笔记后，可以通过“保存”按钮保存对笔记的修改。
在对笔记进行查看的过程中，也可以通过单击界面上的“显示评析”按钮查看对应题的评析。
3.考前攻略
单击“考前攻略”，可查看在学习、复习等方法和策略，也可以了解等考相关信息及考试注意事项等。
·18· 无忧考试吧(http://ncre.wyk8.com)1.6.4 常见问题功能
单击“常见问题”功能按钮，可以打开“常见问题.htm”网页。在打开的网页中，有常见问题解答。用户可以自行查找相关问题，从中获得解决方法。
·19·
点击咨询 