2013年9月全国计算机等级《二级VB》命题预测试卷二

在名称为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，该程序是不完整的，请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“'”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。

在考生文件夹中有一个工程文件sj4．vbp及窗体文件sj4．frm。在名为Form1的窗体上有两个容器，其中一个容器中有两个单选按钮，另一个容器中有两个复选框，窗体上还有一个标题为“确定”的命令按钮和一个初始内容为空的文本框。所有控件已经全部画出。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，则对文本框中的文字进行相应的设置，如图4-5所示。

窗体上的控件已经绘制出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。

注意：不能修改已经给出的程序部分和已有的控件；在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击“确定”按钮；必须通过单击窗体右上角的“关闭”按钮结束程序，否则无成绩。最后，按原文件名并在原文件夹中保存修改后的文件。

在名为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。

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

注意：存盘时必须存放在考生文件夹下，工程文件名为sj2．vbp，窗体文件名为sj2．frm。

设窗体文件中有下面的事件过程：

Private sub Command1 Click（　　）

 Dim S

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

在窗体上画一个命令按钮和两个文本框，其名称分别为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组单选按钮，并且当程序运行时，每组都可以有一个单选按钮被选中，则以下做法中正确的是（　　）。

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

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

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

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

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

在窗体上面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

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

请阅读程序．

0ption Base 1

Private Sub Fo,m Click（　　）

Dim Arr(4，4)As Integer

For i=1 To 4

For j=1 To 4

在窗体上画一个名称为Command1的命令按钮，然后编写下列事件过程：

Private Sub Command1Click（　）

C=1234

c1=Trim(Str(c))

For i=1 To 4

Print

Next

End Sub

程序运行后，单击命令按钮，要求在窗体上显示下列内容：1

12

123

1234

则在横线处应填入的内容为（　）。

在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：

Private Sub Coinmand1 Click（　　）

 Dim a$，b$，c$，k％

软件生命周期是指（　　）。

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

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

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

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

假定有下列程序段

For i=1 TO 3

For j=5 TO 1 Step-1

Print i*j

Next j

Next i

则语句Print i*j的执行次数是（　）。

在窗体上画一个命令按钮(其名称为Command1)，然后编写如下代码：

Private Sub Command1 Click（　　）

Dim a

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

在窗体上有如右图所示的控件，各控件的名称与其标题相同，并有如下程序：

Private Sub Form. Load（　　）

Command2．Enabled=False

Check1．Value=1

End Sub

刚运行程序时，看到的窗体外观是（　　）。

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

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

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：

Public Enum S

有一个数列，它的前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

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

假定用下面的语句打开文件：

Open"Filcl．txt"For Input As#1

则不能正确读文件的语句是（　　）。

要求生产10个随机整致，存放在数组arr中。从键盘输入要删除的数组元素的下标，将该元素中的数据删除，后面元素中的数据依次前移，并显示删除后剩余的数据。现有如下程序：

Option Base 1

Privare Sub Command1 Click（　　）

Dim arr(10)As Integer

For i=1To 10循环1

设有如下程序段：

Dim a(10)

…

For Each X In a

Print X；

Next x

在上面的程序段中，变量X必须是（　　）。

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

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

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

设有如下变量声明语句：

Dim a，b As Boolean

则下面叙述中正确的是（　　）。

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

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

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

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

以下程序运行后的窗体如图所示，其中组合框的名称是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”，则单击命令按钮后产生的结果是（　　）。