2013年9月全国计算机等级《二级VB》上机模考试卷(2) - 233网校计算机二级题库：在线全真模
一、选择题（每小题1分，共40小题，共40分。）
1、 以下程序运行后的窗体如图所示，其中组合框的名称是Combo1，已有列表项如图所示；命令按钮的名称是Command1。
Private，Sub Command1_Click（ ）
If Not Check(Combo1．Text)Then
MsgBox("输入错误")
Exit Sub
End If
For k=0 To Comb01．ListCount-1
If Comb01．Text=Combo1．List(k)Then
MsgBOX("添加项目失败")
Exit Sub
End If
Next k
Cornbol．AddItem Combo1．Text
MsgBOX("添加项目成功")
End Sub
Private Function Check(ch As String)As Boolean
n=Len(ch)
For k=1 To n
c$=Ucace(Mid(ch，k，1))
If c<"A"Or c>"Z"Then
Check=False
Exit Function
End If
Next k
Check=True
End Function
程序运行时，如果在组合框的编辑区中输入“Java”，则单击命令按钮后产生的结果是（ ）。
A．显示“输入错误”
B．显示“添加项目失败”
C．显示“添加项目成功”
D．没有任何显示
2、 下列关系表达式中，其值为True的是（ ）。
A．"XYZ">"XYz"
B．"VisualBasic"<>"visualbasic"
C．"the"="there"
D．"Integer"<"Int"
3、 如果一个变量未经定义就直接使用，则该变量的类型为（ ）。
A．Inieger
B．Byte
C．Boolean
D．Variant
4、 Fibonacci数列的规律是：前2个数为1，从第3个数开始，每个数是它前2个数之和，即1，1，2，3，5，8，13，21，34，55，89，…某人编写了下面的函数，判断大于1的整数X是否是Fibonacci数列中的某个数，若是，则返回True，否则返回False。
Function Isfab(x As Integer)As Boolean
Dim ii As Integer，b As Integer，C As Integer，flag As Boolean
flag=False
a=1：b=1
Do While x
a=b
b=c
If x=b Then flag=True
Loop
Isfab=flag
End Function
测试时发现对于所有正整数X，函数都返回False，程序需要修改。下面的修改方案中正确的是（ ）。
A．把a=b与b=C的位置互换
B．把c=a+b移到b=C之后
C．把Do While xb
D．把If x=b Then flag=True改为If x=a Then flag True
5、 下面可以产生20～30(含20和30)的随机整数的表达式是（ ）。
A．Int(Rnd*10+20)
B．Int(Rnd*11+20)
C．Int(Rnd*20+30)
D．Int(Rnd*30+20)
6、 设有如下变量声明语句：
Dim a，b As Boolean
则下面叙述中正确的是（ ）。
A．a和b都是布尔型变量
B．a是变体型变量，b是布尔型变量
C．a是整型变量，b是布尔型变量
D．a和b都是变体型变量
7、如果一个直线控件在窗体上呈现为一条垂直线，则可以确定的是（ ）。
A．它的Y1、Y2属性的值相等
B．它的 X1、X2属性的值相等
C．它的X1、Y1属性的值分别与X2、Y2属性的值相等
D．它的 X1、X2属性的值分别与Y1、Y2属性的值相等
8、 若窗体上的图片框中有一个命令按钮，则此按钮的Left属性是指（ ）。
A．按钮左端到窗体左端的距离
B．按钮左端到图片框左端的距离
C．按钮中心点到窗体左端的距离
D．按钮中心点到图片框左端的距离
9、 执行语句Dim X，Y As Integer后，（ ）。
A．X和Y均被定义为整型变量
B．X和Y均被定义为变体类型变量
C．X被定义为整型变量，Y被定义为变体类型变量
D．X被定义为变体类型变量，Y被定义为整型变量
10、 要求生产10个随机整致，存放在数组arr中。从键盘输入要删除的数组元素的下标，将该元素中的数据删除，后面元素中的数据依次前移，并显示删除后剩余的数据。现有如下程序：
Option Base 1
Privare Sub Command1 Click（ ）
Dim arr(10)As Integer
For i=1To 10循环1
Arr(i)，=Int(Rnd*100)
Print arr(i)；
Next i
x=InputBox("输入1—10的一个整数：")
For i=X+1 To 10循环2
arr(i-1)=arr(i)
Next i
For i=x-1 To 10 循环3
Print arr(i)
Next i
End Sub
程序运行后发现显示的结果不正确，应该进行的修改是（ ）。
A．产生随机数时不使用Int函数
B．循环2的初值应为i= x
C．数组定义改为Dim a(11)As Integer
D．循环3的循环终值应改为9
11、 设有如下程序段：
Dim a(10)
…
For Each X In a
Print X；
Next x
在上面的程序段中，变量X必须是（ ）。
A．整型变量
B．变体型变量
C．动态数组
D．静态数组
12、 下列关于函数过程的叙述中，正确的是（ ）。
A．函数过程形参的类型与函数返回值的类型没有关系
B．在函数过程中，过程的返回值可以有多个
C．当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
D．如果不指明函数过程参数的类型，则该参数没有数据类型
13、 有一个数列，它的前3个数为0，1，1，此后的每个数都是其前面3个数之和，即0，1，1，2，4，7，13，24，…
要求编写程序输出该数列中所有不超过1000的数。
某人编写程序如下：
Private Sub Form Click（ ）
Dim i As Intender，a As Integer，b As Integer
Dim C As Integer，d As Integer
a=0：b=1：c=1
d=a4-b4-c
i=5
While d<=1C00
Print d；
a=b：b=c：c=d
d=a+b+c
i=i+1
Wend
End Sub
运行上面的程序。发现输出的数列不完整，应进行修改。以下正确的修改是（ ）。
A．把While d<=1000改为while d>1000
B．把i=5改为i=4
C．把i=i+1移到While d<=1000的下面
D．在i=5的上面增加一个语句：Print a；b；C；
14、 假定用下面的语句打开文件：
Open"Filcl．txt"For Input As#1
则不能正确读文件的语句是（ ）。
A．Input#1，ch$
B．Line Input#1，ch$
C．ch$一Input$(5，#1)
D．Read#1，ch$
15、 设窗体上有一个命令按钮数组，能够区分数组中各个按钮的属性是（ ）。
A．Name
B．Index
C．Caption
D．Left
16、 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Public Enum S
a=4
b=3
End Enum
Private Sub Command1 Click（ ）
Dim x As Integer
x=a
If x>=3 Then MsgBox"Pass!"
End Sub
运行程序，其结果是（ ）。
A．运行错误．因为Enum定义有错
B．运行错误．因为x=a类型不匹配
C．运行正常结束，不显示任何信息
D．运行正常．显示内容为“Pass!”的信息框
17、 层次型、网状型和关系型数据库划分原则是（ ）。
A．记录长度
B．文件的大小
C．联系的复杂程度
D．数据之间的联系方式
18、 在窗体上有如右图所示的控件，各控件的名称与其标题相同，并有如下程序：
Private Sub Form Load（ ）
Command2．Enabled=False
Check1．Value=1
End Sub
刚运行程序时，看到的窗体外观是（ ）。
A．
B．
C．
D．
19、 下列关于文件的叙述中，错误的是（ ）。
A．使用Append方式打开文件时，文件指针被定位于文件尾
B．当以Input打开文件时，如果文件不存在，则自动建立一个新文件
C．顺序文件的各个记录的长度可以不同
D．随机文件打开后，既可以进行读操作，也可以进行写操作
20、 在窗体上画一个命令按钮(其名称为Command1)，然后编写如下代码：Private Sub Command1 Click（ ）
Dim a
a=Array(1，2，3，4)
i=3：j=1
Do While>=0
s=s+a i)*j
i=i-1
j=j*1c
Loop
Print S
End Sub
运行上面的程序，单击命令按钮，则输出结果是（ ）。
A．4321
B．123
C．234
D．1234
21、 假定有下列程序段
For i=1 TO 3
For j=5 TO 1 Step-1
Print i*j
Next j
Next i
则语句Print i*j的执行次数是（ ）。
A．15
B．16
C．17
D．18
22、 以下关予多窗体的叙述中，正确的是（ ）。
A．任何时刻，只有一个当前窗体
B．向一个工程添加多个窗体，存盘后生成一个窗体文件
C．打开一个窗体时，其他窗体自动关闭
D．只有第一个建立的窗体才是启动窗体
23、 如果执行一个语句后弹出如图所示的窗口，则这个语句是（ ）。
A．InputBox("输人框"，"请输入VB数据")
B．x=InputBox("输入框"，"请输入VB数据")
C．InputBox("请输入VB数据"，"输入框")
D．x=InputBox("清输入VB数据"，"输入框")
24、软件生命周期是指（ ）。
A．软件产品从提出、实现、使用维护到停止使用退役的过程
B．软件从需求分析、设计、实现到测试完成的过程
C．软件的开发过程
D．软件的运行维护过程
25、 假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2 组成。
Model1代码如下：
Public X As Integer
Public Y As Integer
Sub S1（ ）
x=1
S2
End Sub
Sub S2（ ）
y=10
Form1．Show
End Sub
Model2的代码如下：
Sub Main（ ）
S1
End Sub
其中Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是（ ）。
A．Form1→Model1→Model2
B．Model1→Model2→Form1
C．Model2→Model1→Form1
D．Model2→Form1→Model1
26、 在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1)，并把窗体的KeyPreview属性设置为True，然后编写下列代码：
Dim SaveAll As String
Private Sub Form Load（ ）
Show
Text1．Text=""
Text1．SetFocus
End Sub
Private Sub Command1 Click（ ）
Text1．Text=LCase(SaveAll)+SaveAll
End Sub
Private Sub Form KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后，直接用键盘输入VB，再单击命令按钮，则文本框中显示的内容为（ ）。
A．vbVB
B．不显示任何信息
C．VB
D．出错
27、 在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Coinmand1 Click（ ）
Dim a$，b$，c$，k％
a="ABCD"
b="123456"
c=""
k=1
Do While k<=Len(a)Or k<=Len(b)
If k<=Len(a)Then
c=c＆Mid(a，k，1)
End If
If k<=Len(b)Then
c=c＆Mid(a，k，1)
End If
k=k+1
Loop
Print c
End Sub
运行程序，单击命令按钮，输出结果是（ ）。
A．123456ABCD
B．ABCD123456
C．D6C584A321
D．A1B2C3D456
28、 在窗体上画一个名称为Command1的命令按钮，然后编写下列事件过程：
Private Sub Command1Click（ ）
C=1234
c1=Trim(Str(c))
For i=1 To 4
Print
Next
End Sub
程序运行后，单击命令按钮，要求在窗体上显示下列内容：1
12
123
1234
则在横线处应填入的内容为（ ）。
A．Right(c1，i)
B．Left(c1，i)
C．Mid(c1，i，1)
D．Mid(c1，i，i)
29、 请阅读程序．
0ption Base 1
Private Sub Fo,m Click（ ）
Dim Arr(4，4)As Integer
For i=1 To 4
For j=1 To 4
Arr(i，j)=(i=1)*2+j
Next j
Next i
For i=3 To 4
For j=3 To 4
Print Arr(j，i)；
Next j
Print
Next i
End Sub
程序运行后，单。旨窗体，则输出结果是（ ）。
A．5 7
6 8
B．6 8
7 9
C．7 9
8 10
D．8 10
8 11
30、 在窗体上面1个名称为Command1的命令按钮，然后编写下列事件过程
Option Base 1
Private Sub，Command1 Click（ ）
Dim a(5，5)ks Integer
For i=1 To j
For j=1 To 5
a(i，j)=(i+j)*5＼10
Next j
Next i
S=0
For i=1 To j
s=s+a(i，i)
Next i
Print s
End Sub
程序运行后，单击命令按钮，输出结果是（ ）。
A．15
B．13
C．11
D．9
31、下列数据结构中，属于非线性结构的是（ ）。
A．循环队列
B．带链队列
C．二叉树
D．带链栈
32、 以下说法中错误的是（ ）。
A．如果把一个命令按钮的Default属性设置为True，则按回车健与单击该命令按钮的作用相同
B．可以用多个命令按钮组成命令按钮数组
C．命令按钮只能识别单击(Click)事件
D．通过设置命令按钮的Enabled属性，可以使该命令按钮有效或禁用
33、 假定通过复制、粘贴操作建立了一个命令按钮数组Command1，下列说法中错误自是（ ）。
A．数组中每个命令按钮的名称(Name属性)均为Command1
B．若未做修改，数组中每个命令按钮的大小都一样
C．数组中各个命令按钮使用同一个Click事件过程
D．数组中每个命令按钮的Index属性值都相同
34、 设窗体中有一个文本框Text1，若在程序中执行了Text1．SetFocus，则触发（ ）。
A．Text1的SetFocus事件
B．Text1的GotFocus事件
C．Text1的LostFocus事件
D．窗体的GotFocus事件
35、 下列选项中不属于面向对象程序设计特征的是（ ）。
A．继承性
B．多态性
C．类比性
D．封装性
36、 在程序运行时，下面的叙述中正确的是（ ）。
A．用鼠标右键单击窗体中任何无控件部分，会执行窗体的Form—Load事件过程
B．用鼠标左键单击窗体的标题栏，会执行窗体的Form—Click事件过程
C．只装入而不显示窗体，也会执行窗体的Form—Load事件过程
D．装入窗体后，每次显示该窗体时，都会执行窗体的Form—Click事件过程
37、 在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，在属性窗口中把窗体的KeyPreview属性设置为True，然后编写如下程序：
Diln S1 As String，S2 As String
Private Sub Form Load（ ）
Text1．Text=""
Text2．Text=""
Text1．Enabled=False
Text2．Enabled=False
End Sub
Private Sub Form KeyDown(KeyCode As Integer，Shift As Integer)
S2=S2＆Chr(KeyCode)
End Sub
Pri vate Sub Form KeyPress(KeyAscii As Integer)
S1=S1＆Chr(KeyAscii)
End Sub
Private Sub Command1 Click（ ）
Text1．Text=S1
Text2．Text=S2
S1=""
S2=""
End Sub
程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为（ ）。
A．abc和ABC
B．空白
C．ABC和abc
D．出错
38、 为了在窗体上建立2组单选按钮，并且当程序运行时，每组都可以有一个单选按钮被选中，则以下做法中正确的是（ ）。
A．把这2组单选按钮设置为名称不同的2个控件数组
B．使2组单选按钮的Index属性分别相同
C．使2组单选按钮的名称分别相同
D．把2组单选按钮分别画到2个不同的框架中
42、 在名为Form1的窗体上画一个框架，名称为Frame1，标题为“框架”，高度为2 500，宽度为3 500，框架内建立一文本框，距左边框500，距框架的上边框1 000，文本框中的初始内容设置为“文本框”。运行界面如图8—2所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sjZ．vbp。
三、简单应用题（共24分）
43、 在窗体上绘制一个名称为Text1的文本框和一个名称为Cmd1、标题为“计算”的命令按钮，如图4-3所，示。程序运行后，单击“计算”命令按钮，通过在对话框输入整数12，放人整型变量a中，然后汁算a!．(提示：运算结果应放人Lon9型变量中)，在文本框中显示结果，如图4—4所示，并把结果存入文件out．txt中。考生文件夹中有一个标准模块mode．bas，该模块中提供了保存文件的过程putdata，考生可以直接调用。
注意：保存时必须存放在考生文件夹下，窗体文件名为sj3．frm，工程文件名为sj3．vbp。
44、 在考生文件夹中有一个工程文件sj4．vbp及窗体文件sj4．frm。在名为Form1的窗体上有两个容器，其中一个容器中有两个单选按钮，另一个容器中有两个复选框，窗体上还有一个标题为“确定”的命令按钮和一个初始内容为空的文本框。所有控件已经全部画出。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，则对文本框中的文字进行相应的设置，如图4-5所示。
窗体上的控件已经绘制出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。
注意：不能修改已经给出的程序部分和已有的控件；在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击“确定”按钮；必须通过单击窗体右上角的“关闭”按钮结束程序，否则无成绩。最后，按原文件名并在原文件夹中保存修改后的文件。
1、 以下程序运行后的窗体如图所示，其中组合框的名称是Combo1，已有列表项如图所示；命令按钮的名称是Command1。
Private，Sub Command1_Click（ ）
If Not Check(Combo1．Text)Then
MsgBox("输入错误")
Exit Sub
End If
For k=0 To Comb01．ListCount-1
If Comb01．Text=Combo1．List(k)Then
MsgBOX("添加项目失败")
Exit Sub
End If
Next k
Cornbol．AddItem Combo1．Text
MsgBOX("添加项目成功")
End Sub
Private Function Check(ch As String)As Boolean
n=Len(ch)
For k=1 To n
c$=Ucace(Mid(ch，k，1))
If c<"A"Or c>"Z"Then
Check=False
Exit Function
End If
Next k
Check=True
End Function
程序运行时，如果在组合框的编辑区中输入“Java”，则单击命令按钮后产生的结果是（ ）。
A．显示“输入错误”
B．显示“添加项目失败”
C．显示“添加项目成功”
D．没有任何显示
2、 下列关系表达式中，其值为True的是（ ）。
A．"XYZ">"XYz"
B．"VisualBasic"<>"visualbasic"
C．"the"="there"
D．"Integer"<"Int"
3、 如果一个变量未经定义就直接使用，则该变量的类型为（ ）。
A．Inieger
B．Byte
C．Boolean
D．Variant
4、 Fibonacci数列的规律是：前2个数为1，从第3个数开始，每个数是它前2个数之和，即1，1，2，3，5，8，13，21，34，55，89，…某人编写了下面的函数，判断大于1的整数X是否是Fibonacci数列中的某个数，若是，则返回True，否则返回False。
Function Isfab(x As Integer)As Boolean
Dim ii As Integer，b As Integer，C As Integer，flag As Boolean
flag=False
a=1：b=1
Do While x
a=b
b=c
If x=b Then flag=True
Loop
Isfab=flag
End Function
测试时发现对于所有正整数X，函数都返回False，程序需要修改。下面的修改方案中正确的是（ ）。
A．把a=b与b=C的位置互换
B．把c=a+b移到b=C之后
C．把Do While x
D．把If x=b Then flag=True改为If x=a Then flag True
5、 下面可以产生20～30(含20和30)的随机整数的表达式是（ ）。
A．Int(Rnd*10+20)
B．Int(Rnd*11+20)
C．Int(Rnd*20+30)
D．Int(Rnd*30+20)
6、 设有如下变量声明语句：
Dim a，b As Boolean
则下面叙述中正确的是（ ）。
A．a和b都是布尔型变量
B．a是变体型变量，b是布尔型变量
C．a是整型变量，b是布尔型变量
D．a和b都是变体型变量
7、如果一个直线控件在窗体上呈现为一条垂直线，则可以确定的是（ ）。
A．它的Y1、Y2属性的值相等
B．它的 X1、X2属性的值相等
C．它的X1、Y1属性的值分别与X2、Y2属性的值相等
D．它的 X1、X2属性的值分别与Y1、Y2属性的值相等
8、 若窗体上的图片框中有一个命令按钮，则此按钮的Left属性是指（ ）。
A．按钮左端到窗体左端的距离
B．按钮左端到图片框左端的距离
C．按钮中心点到窗体左端的距离
D．按钮中心点到图片框左端的距离
9、 执行语句Dim X，Y As Integer后，（ ）。
A．X和Y均被定义为整型变量
B．X和Y均被定义为变体类型变量
C．X被定义为整型变量，Y被定义为变体类型变量
D．X被定义为变体类型变量，Y被定义为整型变量
10、 要求生产10个随机整致，存放在数组arr中。从键盘输入要删除的数组元素的下标，将该元素中的数据删除，后面元素中的数据依次前移，并显示删除后剩余的数据。现有如下程序：
Option Base 1
Privare Sub Command1 Click（ ）
Dim arr(10)As Integer
For i=1To 10循环1
Arr(i)，=Int(Rnd*100)
Print arr(i)；
Next i
x=InputBox("输入1—10的一个整数：")
For i=X+1 To 10循环2
arr(i-1)=arr(i)
Next i
For i=x-1 To 10 循环3
Print arr(i)
Next i
End Sub
程序运行后发现显示的结果不正确，应该进行的修改是（ ）。
A．产生随机数时不使用Int函数
B．循环2的初值应为i= x
C．数组定义改为Dim a(11)As Integer
D．循环3的循环终值应改为9
11、 设有如下程序段：
Dim a(10)
…
For Each X In a
Print X；
Next x
在上面的程序段中，变量X必须是（ ）。
A．整型变量
B．变体型变量
C．动态数组
D．静态数组
12、 下列关于函数过程的叙述中，正确的是（ ）。
A．函数过程形参的类型与函数返回值的类型没有关系
B．在函数过程中，过程的返回值可以有多个
C．当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
D．如果不指明函数过程参数的类型，则该参数没有数据类型
13、 有一个数列，它的前3个数为0，1，1，此后的每个数都是其前面3个数之和，即0，1，1，2，4，7，13，24，…
要求编写程序输出该数列中所有不超过1000的数。
某人编写程序如下：
Private Sub Form Click（ ）
Dim i As Intender，a As Integer，b As Integer
Dim C As Integer，d As Integer
a=0：b=1：c=1
d=a4-b4-c
i=5
While d<=1C00
Print d；
a=b：b=c：c=d
d=a+b+c
i=i+1
Wend
End Sub
运行上面的程序。发现输出的数列不完整，应进行修改。以下正确的修改是（ ）。
A．把While d<=1000改为while d>1000
B．把i=5改为i=4
C．把i=i+1移到While d<=1000的下面
D．在i=5的上面增加一个语句：Print a；b；C；
14、 假定用下面的语句打开文件：
Open"Filcl．txt"For Input As#1
则不能正确读文件的语句是（ ）。
A．Input#1，ch$
B．Line Input#1，ch$
C．ch$一Input$(5，#1)
D．Read#1，ch$
15、 设窗体上有一个命令按钮数组，能够区分数组中各个按钮的属性是（ ）。
A．Name
B．Index
C．Caption
D．Left
16、 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Public Enum S
a=4
b=3
End Enum
Private Sub Command1 Click（ ）
Dim x As Integer
x=a
If x>=3 Then MsgBox"Pass!"
End Sub
运行程序，其结果是（ ）。
A．运行错误．因为Enum定义有错
B．运行错误．因为x=a类型不匹配
C．运行正常结束，不显示任何信息
D．运行正常．显示内容为“Pass!”的信息框
17、 层次型、网状型和关系型数据库划分原则是（ ）。
A．记录长度
B．文件的大小
C．联系的复杂程度
D．数据之间的联系方式
18、 在窗体上有如右图所示的控件，各控件的名称与其标题相同，并有如下程序：
Private Sub Form Load（ ）
Command2．Enabled=False
Check1．Value=1
End Sub
刚运行程序时，看到的窗体外观是（ ）。
A．
B．
C．
D．
19、 下列关于文件的叙述中，错误的是（ ）。
A．使用Append方式打开文件时，文件指针被定位于文件尾
B．当以Input打开文件时，如果文件不存在，则自动建立一个新文件
C．顺序文件的各个记录的长度可以不同
D．随机文件打开后，既可以进行读操作，也可以进行写操作
20、 在窗体上画一个命令按钮(其名称为Command1)，然后编写如下代码：Private Sub Command1 Click（ ）
Dim a
a=Array(1，2，3，4)
i=3：j=1
Do While>=0
s=s+a i)*j
i=i-1
j=j*1c
Loop
Print S
End Sub
运行上面的程序，单击命令按钮，则输出结果是（ ）。
A．4321
B．123
C．234
D．1234
21、 假定有下列程序段
For i=1 TO 3
For j=5 TO 1 Step-1
Print i*j
Next j
Next i
则语句Print i*j的执行次数是（ ）。
A．15
B．16
C．17
D．18
22、 以下关予多窗体的叙述中，正确的是（ ）。
A．任何时刻，只有一个当前窗体
B．向一个工程添加多个窗体，存盘后生成一个窗体文件
C．打开一个窗体时，其他窗体自动关闭
D．只有第一个建立的窗体才是启动窗体
23、 如果执行一个语句后弹出如图所示的窗口，则这个语句是（ ）。
A．InputBox("输人框"，"请输入VB数据")
B．x=InputBox("输入框"，"请输入VB数据")
C．InputBox("请输入VB数据"，"输入框")
D．x=InputBox("清输入VB数据"，"输入框")
24、软件生命周期是指（ ）。
A．软件产品从提出、实现、使用维护到停止使用退役的过程
B．软件从需求分析、设计、实现到测试完成的过程
C．软件的开发过程
D．软件的运行维护过程
25、 假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2 组成。
Model1代码如下：
Public X As Integer
Public Y As Integer
Sub S1（ ）
x=1
S2
End Sub
Sub S2（ ）
y=10
Form1．Show
End Sub
Model2的代码如下：
Sub Main（ ）
S1
End Sub
其中Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是（ ）。
A．Form1→Model1→Model2
B．Model1→Model2→Form1
C．Model2→Model1→Form1
D．Model2→Form1→Model1
26、 在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1)，并把窗体的KeyPreview属性设置为True，然后编写下列代码：
Dim SaveAll As String
Private Sub Form Load（ ）
Show
Text1．Text=""
Text1．SetFocus
End Sub
Private Sub Command1 Click（ ）
Text1．Text=LCase(SaveAll)+SaveAll
End Sub
Private Sub Form KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后，直接用键盘输入VB，再单击命令按钮，则文本框中显示的内容为（ ）。
A．vbVB
B．不显示任何信息
C．VB
D．出错
27、 在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Coinmand1 Click（ ）
Dim a$，b$，c$，k％
a="ABCD"
b="123456"
c=""
k=1
Do While k<=Len(a)Or k<=Len(b)
If k<=Len(a)Then
c=c＆Mid(a，k，1)
End If
If k<=Len(b)Then
c=c＆Mid(a，k，1)
End If
k=k+1
Loop
Print c
End Sub
运行程序，单击命令按钮，输出结果是（ ）。
A．123456ABCD
B．ABCD123456
C．D6C584A321
D．A1B2C3D456
28、 在窗体上画一个名称为Command1的命令按钮，然后编写下列事件过程：
Private Sub Command1Click（ ）
C=1234
c1=Trim(Str(c))
For i=1 To 4
Next
End Sub
程序运行后，单击命令按钮，要求在窗体上显示下列内容：1
12
123
1234
则在横线处应填入的内容为（ ）。
A．Right(c1，i)
B．Left(c1，i)
C．Mid(c1，i，1)
D．Mid(c1，i，i)
29、 请阅读程序．
0ption Base 1
Private Sub Fo,m Click（ ）
Dim Arr(4，4)As Integer
For i=1 To 4
For j=1 To 4
Arr(i，j)=(i=1)*2+j
Next j
Next i
For i=3 To 4
For j=3 To 4
Print Arr(j，i)；
Next j
Next i
End Sub
程序运行后，单。旨窗体，则输出结果是（ ）。
A．5 7
6 8
B．6 8
7 9
C．7 9
8 10
D．8 10
8 11
30、 在窗体上面1个名称为Command1的命令按钮，然后编写下列事件过程
Option Base 1
Private Sub，Command1 Click（ ）
Dim a(5，5)ks Integer
For i=1 To j
For j=1 To 5
a(i，j)=(i+j)*5＼10
Next j
Next i
S=0
For i=1 To j
s=s+a(i，i)
Next i
Print s
End Sub
程序运行后，单击命令按钮，输出结果是（ ）。
A．15
B．13
C．11
D．9
31、下列数据结构中，属于非线性结构的是（ ）。
A．循环队列
B．带链队列
C．二叉树
D．带链栈
32、 以下说法中错误的是（ ）。
A．如果把一个命令按钮的Default属性设置为True，则按回车健与单击该命令按钮的作用相同
B．可以用多个命令按钮组成命令按钮数组
C．命令按钮只能识别单击(Click)事件
D．通过设置命令按钮的Enabled属性，可以使该命令按钮有效或禁用
33、 假定通过复制、粘贴操作建立了一个命令按钮数组Command1，下列说法中错误自是（ ）。
A．数组中每个命令按钮的名称(Name属性)均为Command1
B．若未做修改，数组中每个命令按钮的大小都一样
C．数组中各个命令按钮使用同一个Click事件过程
D．数组中每个命令按钮的Index属性值都相同
34、 设窗体中有一个文本框Text1，若在程序中执行了Text1．SetFocus，则触发（ ）。
A．Text1的SetFocus事件
B．Text1的GotFocus事件
C．Text1的LostFocus事件
D．窗体的GotFocus事件
35、 下列选项中不属于面向对象程序设计特征的是（ ）。
A．继承性
B．多态性
C．类比性
D．封装性
36、 在程序运行时，下面的叙述中正确的是（ ）。
A．用鼠标右键单击窗体中任何无控件部分，会执行窗体的Form—Load事件过程
B．用鼠标左键单击窗体的标题栏，会执行窗体的Form—Click事件过程
C．只装入而不显示窗体，也会执行窗体的Form—Load事件过程
D．装入窗体后，每次显示该窗体时，都会执行窗体的Form—Click事件过程
37、 在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，在属性窗口中把窗体的KeyPreview属性设置为True，然后编写如下程序：
Diln S1 As String，S2 As String
Private Sub Form Load（ ）
Text1．Text=""
Text2．Text=""
Text1．Enabled=False
Text2．Enabled=False
End Sub
Private Sub Form KeyDown(KeyCode As Integer，Shift As Integer)
S2=S2＆Chr(KeyCode)
End Sub
Pri vate Sub Form KeyPress(KeyAscii As Integer)
S1=S1＆Chr(KeyAscii)
End Sub
Private Sub Command1 Click（ ）
Text1．Text=S1
Text2．Text=S2
S1=""
S2=""
End Sub
程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为（ ）。
A．abc和ABC
B．空白
C．ABC和abc
D．出错
38、 为了在窗体上建立2组单选按钮，并且当程序运行时，每组都可以有一个单选按钮被选中，则以下做法中正确的是（ ）。
A．把这2组单选按钮设置为名称不同的2个控件数组
B．使2组单选按钮的Index属性分别相同
C．使2组单选按钮的名称分别相同
D．把2组单选按钮分别画到2个不同的框架中
39、
设窗体文件中有下面的事件过程：
Private sub Command1 Click（ ）
Dim S
a%=100
Print a
End Sub
其中变量a和s的数据类型分别是（ ）。
A．整型，整型
B．变体型，变体型
C．整型，变体型
D．变体型，整型
40、
设R是一个二元关系，S是一个三元关系，则下列运算中正确的是（ ）。
A．R-S
B．R×S
C．R∩S
D．R∪S
二、基本操作题（共18分）
41、
在名称为Form1的窗体上画两个名称分别为Text1和Text2、内容都为空的文本框，再画一个命令按钮，其名称为Command1、标题为“判断”。编写适当的事件过程，要求程序运行后，如果在Text1中输入一个数，单击命令按钮Command1，判断输入的是否为偶数，如图7-2所示。要求：不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为sj2．vbp，窗体文件名为sj2．frm。
42、 在名为Form1的窗体上画一个框架，名称为Frame1，标题为“框架”，高度为2 500，宽度为3 500，框架内建立一文本框，距左边框500，距框架的上边框1 000，文本框中的初始内容设置为“文本框”。运行界面如图8—2所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sjZ．vbp。
三、简单应用题（共24分）
43、 在窗体上绘制一个名称为Text1的文本框和一个名称为Cmd1、标题为“计算”的命令按钮，如图4-3所，示。程序运行后，单击“计算”命令按钮，通过在对话框输入整数12，放人整型变量a中，然后汁算a!．(提示：运算结果应放人Lon9型变量中)，在文本框中显示结果，如图4—4所示，并把结果存入文件out．txt中。考生文件夹中有一个标准模块mode．bas，该模块中提供了保存文件的过程putdata，考生可以直接调用。
注意：保存时必须存放在考生文件夹下，窗体文件名为sj3．frm，工程文件名为sj3．vbp。
44、 在考生文件夹中有一个工程文件sj4．vbp及窗体文件sj4．frm。在名为Form1的窗体上有两个容器，其中一个容器中有两个单选按钮，另一个容器中有两个复选框，窗体上还有一个标题为“确定”的命令按钮和一个初始内容为空的文本框。所有控件已经全部画出。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，则对文本框中的文字进行相应的设置，如图4-5所示。
窗体上的控件已经绘制出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。
注意：不能修改已经给出的程序部分和已有的控件；在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击“确定”按钮；必须通过单击窗体右上角的“关闭”按钮结束程序，否则无成绩。最后，按原文件名并在原文件夹中保存修改后的文件。
四、综合应用题（共18分）
45、
在名称为Form1的窗体上有两个命令按钮(名称分别为Command1和Command2、标题分别为“读取”和“保存”)和一个文本框(名称为Text1、MultiLine属性为True、ScrollBars 属性为2)。要求程序运行后，如果单击“读取”按钮，则读入in．txt文件中的50个整数，放入一个数组中(数组下界为1)，并在文本框Text1中显示出来，运行界面如图6-5所示。如果单击“保存”按钮，则把数组中的前30个数据在文本框Textl中显示出来，并存入考生文
件夹中的文件result．txt中。(考生文件夹中有标准模块mode5．bas，其中的writeData过程可以把指定个数的数组元素存人result．txt文件。)
在考生文件夹中有工程文件sis．vbp及其窗体文件sis．frm，该程序是不完整的，请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“'”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
- 只看不练，假把式······
- 进入233题库【模拟考场】，在线做题测试，在线查看成绩及详细答案解析！
- 马上进入
题库优势
- 更好的做题体验
- 233计算机二级题库有四种做题模式，可选择自己的喜欢和当前适合的做题模式进行训练。
- 更多的习题、真题
- 233计算机二级题库题量储备百万道，包含历年真题，模拟试题等题型，题题结合考试大纲贴近考试 考点。
- 更专业的试题解析
- 233计算机二级题库结合考试大纲，将各试题划分了详细的章节知识，更全面的详细的展示答案解析。
- 进入计算机二级模拟考场>>