考查考生对文本框属性PasswordChar的使用，本例中设置PasswordChar属性为\，然后在C1的Click事件中填入如下代码：

If Text1.Text = \正确\错误\

在考生文件夹下有一个工程文件sj112.vbp。其窗体中有一个名称为Text1的 文本框数组，下标从0开始。程序运行时，单击\产生随机数\按钮，就会 产生10个3位数的随机数，并放入Text1数组中（如图1所示）；单击\重排 数据\按钮，将把Text1中的奇数移到前面，偶数移到后面（如图2所示）。 已经给出了所有控件和部分程序。 要求：

请去掉程序中的注释符，把程序中的 ？改为正确的内容，使其能正确运 行，不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件 名存盘。 提示：

在\重排数据\按钮的事件过程中有对其算法的文字描述，请仔细阅读。

本题主要考查Rnd函数的使用、奇数和偶数的判定。 为了生成某个范围内的随机数，可以使用一下公式：

Int((upperbound - lowerbound+1) * Rnd + lowerbound)

这里，upperbound是随机整数范围的上限，而lowerbound则是随机整数范围的下限。

修改后的主要代码如下：

Private Sub Command2_Click()

Dim i%, j%, temp%, flag As Boolean i = 0 j = 9

temp = Text1(j) flag = True While (i < j) If flag Then

If Text1(i) Mod 2 = 0 Then Text1(j) = Text1(i) j = j - 1

flag = Not flag Else

i = i + 1 End If Else

If Text1(j) Mod 2 = 1 Then Text1(i) = Text1(j) i = i + 1

flag = Not flag Else

j = j - 1 End If End If Wend

Text1(i) = temp End Sub

按要求保存文件即完成本题。

在考生文件夹下有工程文件wy55.vbp及窗体文件wy55.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即 '号），但不能修改其它部分。存盘时不得改变文件名和文件夹，相应的 dat文件也保存到考生文件夹下，否则没有成绩。 本题描述如下：

在名称为Form1的窗体上有五个Label控件和两个命令按钮， 数据文件worker.dat，存放工人的编号、姓名、性别和体重。

1）按\开始\按钮后，能从考生文件夹下的worker.dat中读出数据并把体重大于平均体重的工人的所有数据写入考生文件夹下的worker1.dat文件中； 2）执行完毕，\开始\按钮变成\完成\，且无效。

Private Sub COMEXIT_Click() End End Sub

Private Sub COMSTART_Click()

Dim g As Single, N As Integer, S As Single myfile1 = App.Path & \T\myfile2 = App.Path & \Open myfile1 For Input As #1 Open myfile2 For Output As #2 Do While Not EOF(1) Input #1, g N = N + 1 S = S + g Loop Close #1 S = S / N Write #2, S Close

COMSTART.Caption = \完成\COMSTART.Enabled = False End Sub

（1）在名称为Form1，标题为\标签\的窗体上，画一个名称为Label1，内容 为\计算机等级考试\，显示为四号字的标签。请设置适当的属性满足以 下要求：

1）窗体不带有最大化、最小化及关闭按钮； 2）标签带有边框；

3）标签可依据Caption属性指定的内容自动调整其大小。 运行后的窗体如图所示。 注意：

存盘时必须存放在考生文件夹下，工程文件名为sj104.vbp，窗体文件名 为sj104.frm。

**********************************************************************

（2）在名称为Form1的窗体上画二个名称分别为Label1、Label2，标题分别为 \开始位置\、\选中的字符数\的标签；画三个文本框，名称分别为 Text1、Text2、Text3，再画一个名称为Command1，标题为\显示选中信 息\的命令按钮。程序运行时，在Text1中输入若干字符，并用鼠标选中 一些字符后，单击\显示选中信息\按钮， 则把选中的第一个字符的顺 序号显示在Text2中，选中的字符个数显示在Text3中，如图所示。 要求：

画出所有控件，编写命令按钮的Click事件过程。 注意：

要求程序中不得使用变量，事件过程中只能写两条语句，分别用于显 示第一个字符的顺序号和显示选中的字符个数。存盘时必须存放在考 生文件夹下，工程文件名为sj105.vbp，窗体文件名为sj105.frm。

第1小题:

新建一个名为Form1的窗体，点击工具箱中的Label控件图标，然后在窗体上拖拉出一个命令按钮Label1，通过属性窗口分别设置Form1和Label1的Caption 属性，将Form1的

ControlBox属性设置为False，在运行时才单栏不可见，即窗体不带有最大化、最小化及关闭按钮；并将Label的Font属性值设置为四号字；AutoSize属性设置为True，可以自动调整大小；BorderStyle属性设置为1--Fixed Single，控件带有边框。 第2小题：

本题主要考查了TextBox控件的SelLength属性和SelStart属性。SelLength属性返回显示的字符数，只能在代码中使用，值为0时，表示为选中任何字符。SelStart属性返回选择文本的起始位置，只能在代码中使用，第一个字符的位置为0，第二个字符的位置为1。 Command控件Click事件过程为： Private Sub Command1_Click() Text2.Text = Text1.SelStart Text3.Text = Text1.SelLength End Sub

按要求保存文件即完成本题。

（1）在考生文件夹下有一个工程文件sj45.vbp，相应的窗体文件为sj45.frm。 其功能是产生30个0～999的随机整数，放入一个数组中，然后输出其中 的最小值。程序运行后，单击命令按钮（名称为Command1，标题为\输 出最小值\），即可求出其最小值，并在窗体上显示出来（如图所示）。 这个程序不完整，请把它补充完整，并能正确运行。