2018年3月计算机等级考试备考在即，小编在这里为考生们整理了2018年3月计算机二级考试VB考前特训习题，希望能帮到大家，想了解更多资讯，请关注出国留学网的及时更新哦。
2018年3月计算机二级考试VB考前特训习题2
(1)窗体上有一个名称为Textl的文本框，一个名称为CDl的通用对话框，一个标题为“打开文件”的命令按钮，如图所示。
命令按钮的单击事件过程如下：
Private Sub Commandl—Click( )CDl.
ShowOpen
Open CDl.
FfleName For Input As#1MsgBox CDl.
FfleNalne
Line Input#1.
sTextl.Text=SClose#1
End Sub
单击命令按钮，执行以上事件过程，打开选定的文件，读取文件的内容并显示在文本框中，以下叙述中正确的是( )。
A.程序没有错误，可以正确完成打开文件、读取文件中内容的操作
B.执行Open命令时出错，因为没有指定文件的路径
C.Open语句是错误的，应把语句中的For Input改为For.Gutput
D.Line Input命令格式错
(2)窗体上有一个如右图所示的图形控件，控件中显示了如图所示的文字，可以判断这个图形控件( )。
A.是图像框(Image)
B.是图片框(PietureBox)
C.是形状控件
D.不是上述3种控件中的一种
(3)窗体上有一个名称为Combol的组合框，要求在其编辑区输入文本并按回车键后，编辑区中的文本被添加到列表中。下面能实现这一功能的是( )。
A.Private Sub Comlbol—KeyDown(KeyCode As Integer，Shift As Integer)IfKeyCode=13 ThenComb01.Addltem Comb01.TextErldⅡEnd Sub
B.Private Sub Combol—KeyDown(KeyCode As Integer，Shift As Integer)IfKeyCode=13 ThenComb01.Addhem Textl.Text，EIldIfEnd Sub
C.Private Sub Combol—Click( )Comb01.Addltem Comb01.Text·End Sub
D.Private Sub Combol—Click( )Comb01.Addhem Textl.TextEnd Sub
(4)工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是：
Public x As IntegerPrivate Y As Integer窗体文件的程序代码是：
Dim a As Integer
Private Sub Form_Load( )Dim b As Integer
a=2：b=3：x=10v=20
End Sllb
Private Sub Commandl_Click( )
a=a+5：b=b+5：x=x+5：y=Y+5Print a;b;x;Y
End Sub
运行程序，单击窗体上的命令按钮，则在窗体上显示的是( )。
A.5 5 15 5
B.7 5 15 25
C.7 8 15 5
D.7 5 15 5
(5)窗体上的三个命令按钮构成名称为Commandl的控件数组。如图所示。
程序如下：
Private Sub Commandl—Click(Index As Integer)
IfIndex=1 Then
Print”计算机等级考试”
End If
IfIndex=2 Then
Prim Commandl(2).Caption
End IfEnd Sub
运行程序，单击“命令按钮2”，则如下叙述中正确的是( )。
A.Print Commandl(2).Caption语句有错
B.在窗体上显示“命令按钮2”
C.在窗体上显示“命令按钮3”
D.在窗体上显示“计算机等级考试”
(6)下面程序的执行结果是( )。
Private Sub Commandl—Click( )a=0
k=1Do While k<4
X=k+kk=k+1
Prim X;
LoopEnd SubA.1 4 27B.1 1 1C.1 4 9 D.0 0 0
(7)窗体上有名称分别为Textl、Text2的文本框，名称为Commandl的命令按钮。运行程序，在Textl中输入“FormList”，然后单击命令按钮，执行如下程序：Private Sub Commandl—Click( )Text2.Text=UCase(Mid(Textl.Text，5，4)End Sub在Text2中显示的是( )。
A.form
B.list
C.FORM
D.LIST
(8)窗体上有名称为Commandl的命令按钮，名称分别为Listl、List2的列表框，其中Listl的MultiSelect属性设置为1(Simple)，并有如下事件过程：Private Sub Commandl—Click( )
For i=0 To Listl.ListCount一1
If Listl.Selected(i)=True Then
List2.AddItem Text
EndIf
NextEnd Sub上述事件过程的功能是将Listl中被选中的列表项添加到List2中。运行程序时，发现不能达到预期目的，应做修改，下列修改中正确的是( )。
A.将For循环的终值改为Listl.ListCount
B.将Listl.Selected(i)=True改为Listl.List(i).Selected=True
C.将List2.Addltem Text改为List2.AddItem Listl.List(i)
D.将List2ddItem Text改为List2.Addhem Listl.ListIndex
(9)设有如下Commandl的单击事件过程及fun过程：
Private Sub Commandl_Click( )
Dim X As Integer
x=Val(InputBox(”请输入一个整数”))fun(X)
End Sub
Private Sub fun(x As Integer)
If X Mod 2=0 Then fun(X/2)Print X;
End Sub
执行上述程序，输入6，结果是( )。
A.3 6
B.6 3
C.6
D.程序死循环
(10)命令按钮Commandl的单击事件过程如下：
Private Sub Commandl—Click( )Dim a(10，10)As IntegerX=0
For i=l T0 3
For J=1 T0 3
a(i，j)=i}2 Mod J
If x
Next
Next
Print XEnd Sub
执行上述事件过程后，窗体上显示的是( )。
A.1
B.2
C.3
D.4