2013年9月全国计算机等级《二级VB》上机模考试卷(2)

下列关系表达式中，其值为True的是（　）。

如果一个变量未经定义就直接使用，则该变量的类型为（　　）。

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<B
c=a+b
a=b
b=c
If x=b Then flag=True
Loop
Isfab=flag
End Function
测试时发现对于所有正整数X，函数都返回False，程序需要修改。下面的修改方案中正确的是（　　）。

下面可以产生20～30(含20和30)的随机整数的表达式是（　　）。

设有如下变量声明语句：
Dim a，b As Boolean
则下面叙述中正确的是（　　）。

如果一个直线控件在窗体上呈现为一条垂直线，则可以确定的是（　　）。

若窗体上的图片框中有一个命令按钮，则此按钮的Left属性是指（　　）。

执行语句Dim X，Y As Integer后，（　）。

要求生产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
程序运行后发现显示的结果不正确，应该进行的修改是（　　）。

设有如下程序段：
Dim a(10)
…
For Each X In a
Print X；
Next x
在上面的程序段中，变量X必须是（　　）。

下列关于函数过程的叙述中，正确的是（　）。

有一个数列，它的前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
运行上面的程序。发现输出的数列不完整，应进行修改。以下正确的修改是（　　）。

假定用下面的语句打开文件：
Open"Filcl．txt"For Input As#1
则不能正确读文件的语句是（　　）。

设窗体上有一个命令按钮数组，能够区分数组中各个按钮的属性是（　　）。

在窗体上画一个名称为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
运行程序，其结果是（　）。

层次型、网状型和关系型数据库划分原则是（　　）。

在窗体上有如右图所示的控件，各控件的名称与其标题相同，并有如下程序：
　　
Private Sub Form Load（　　）
Command2．Enabled=False
Check1．Value=1
End Sub
刚运行程序时，看到的窗体外观是（　　）。

下列关于文件的叙述中，错误的是（　　）。

在窗体上画一个命令按钮(其名称为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
运行上面的程序，单击命令按钮，则输出结果是（　　）。

假定有下列程序段
For i=1 TO 3
For j=5 TO 1 Step-1
Print i*j
Next j
Next i
则语句Print i*j的执行次数是（　）。

以下关予多窗体的叙述中，正确的是（　　）。

如果执行一个语句后弹出如图所示的窗口，则这个语句是（　　）。
　　

软件生命周期是指（　　）。

假定一个工程由一个窗体文件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被设置为启动过程。程序运行后，各模块的执行顺序是（　　）。

在窗体上画一个命令按钮和一个文本框(名称分别为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，再单击命令按钮，则文本框中显示的内容为（　）。

在窗体上画一个命令按钮，其名称为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
运行程序，单击命令按钮，输出结果是（　　）。

在窗体上画一个名称为Command1的命令按钮，然后编写下列事件过程：
Private Sub Command1Click（　）
C=1234
c1=Trim(Str(c))
For i=1 To 4
Print
Next
End Sub
程序运行后，单击命令按钮，要求在窗体上显示下列内容：1
12
123
1234
则在横线处应填入的内容为（　）。

请阅读程序．
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
程序运行后，单。旨窗体，则输出结果是（　　）。

在窗体上面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
程序运行后，单击命令按钮，输出结果是（　　）。

下列数据结构中，属于非线性结构的是（　　）。

以下说法中错误的是（　　）。

假定通过复制、粘贴操作建立了一个命令按钮数组Command1，下列说法中错误自是（　）。

设窗体中有一个文本框Text1，若在程序中执行了Text1．SetFocus，则触发（　　）。

下列选项中不属于面向对象程序设计特征的是（　　）。

在程序运行时，下面的叙述中正确的是（　　）。

在窗体上画一个命令按钮和两个文本框，其名称分别为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中显示的内容分别为（　　）。

为了在窗体上建立2组单选按钮，并且当程序运行时，每组都可以有一个单选按钮被选中，则以下做法中正确的是（　　）。

设窗体文件中有下面的事件过程：
Private sub Command1 Click（　　）
Dim S
a%=100
Print a
End Sub
其中变量a和s的数据类型分别是（　　）。

设R是一个二元关系，S是一个三元关系，则下列运算中正确的是（　　）。

在名称为Form1的窗体上画两个名称分别为Text1和Text2、内容都为空的文本框，再画一个命令按钮，其名称为Command1、标题为“判断”。编写适当的事件过程，要求程序运行后，如果在Text1中输入一个数，单击命令按钮Command1，判断输入的是否为偶数，如图7-2所示。要求：不得使用任何变量。
　　
注意：存盘时必须存放在考生文件夹下，工程文件名为sj2．vbp，窗体文件名为sj2．frm。

在名为Form1的窗体上画一个框架，名称为Frame1，标题为“框架”，高度为2 500，宽度为3 500，框架内建立一文本框，距左边框500，距框架的上边框1 000，文本框中的初始内容设置为“文本框”。运行界面如图8—2所示。
　　
注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sjZ．vbp。

在窗体上绘制一个名称为Text1的文本框和一个名称为Cmd1、标题为“计算”的命令按钮，如图4-3所，示。程序运行后，单击“计算”命令按钮，通过在对话框输入整数12，放人整型变量a中，然后汁算a!．(提示：运算结果应放人Lon9型变量中)，在文本框中显示结果，如图4—4所示，并把结果存入文件out．txt中。考生文件夹中有一个标准模块mode．bas，该模块中提供了保存文件的过程putdata，考生可以直接调用。
　　
注意：保存时必须存放在考生文件夹下，窗体文件名为sj3．frm，工程文件名为sj3．vbp。

在考生文件夹中有一个工程文件sj4．vbp及窗体文件sj4．frm。在名为Form1的窗体上有两个容器，其中一个容器中有两个单选按钮，另一个容器中有两个复选框，窗体上还有一个标题为“确定”的命令按钮和一个初始内容为空的文本框。所有控件已经全部画出。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，则对文本框中的文字进行相应的设置，如图4-5所示。
　　
窗体上的控件已经绘制出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。
注意：不能修改已经给出的程序部分和已有的控件；在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击“确定”按钮；必须通过单击窗体右上角的“关闭”按钮结束程序，否则无成绩。最后，按原文件名并在原文件夹中保存修改后的文件。

在名称为Form1的窗体上有两个命令按钮(名称分别为Command1和Command2、标题分别为“读取”和“保存”)和一个文本框(名称为Text1、MultiLine属性为True、ScrollBars 属性为2)。要求程序运行后，如果单击“读取”按钮，则读入in．txt文件中的50个整数，放入一个数组中(数组下界为1)，并在文本框Text1中显示出来，运行界面如图6-5所示。如果单击“保存”按钮，则把数组中的前30个数据在文本框Textl中显示出来，并存入考生文
件夹中的文件result．txt中。(考生文件夹中有标准模块mode5．bas，其中的writeData过程可以把指定个数的数组元素存人result．txt文件。)
　　
注意：在考生乏件夹中有工程文件si5．vbp及其窗体文件sj5．frm，该程序是不完整的，请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“b”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。文件必须存放在考生文件夹下，窗体文件名为sis．frm，工程文件名为sj5．vbp，结果存入result．txt文件，否则没有成绩。
在考生文件夹中有工程文件sis．vbp及其窗体文件sis．frm，该程序是不完整的，请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“'”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。