在考生文件夹中有工程文件sj5．vbp及其窗体文件Sj5．frm，该程序是不完整的，请将程序补充完整。在名称为Form1的窗体上有两个命令按钮，其名称分别为Command1和Com mand2，标题分别为“计算”和“保存”；两个单选按钮，名称分别为Option1和Option2，标题分别为“50～150的素数”和“200～350的素数”；一个文本框，名称为Text1，程序运行界面如图8-5 所示。如果选中一个单选按钮并单击“计算”按钮，则计算出该单选按钮标题所指明的所有素数之和，并在文本框中显示出来。如果单击“保存”按钮，则把计算结果存人out5．txt文件中，该文件必须放在考生文件夹中。(在考生文件夹中有标准模块mode．bas，其中的isPrimeNum 函数可以判断整数x是否为素数，如果是素数，则函数返回True，否则返回False，而writeData 过程可以把结果存入指定的文件，考生可以将该模块文件添加到自己的工程中。)

注意：存盘时不得改变文件名和文件夹。必须把其中一种素数之和存入考生文件夹下的out5．txt文件中，否则没有成绩。保存程序时必须存放在考生文件夹下，窗体文件名为sj5．frm，工程文件名为sj5．vbp。

在考生文件夹中有工程文件sj5．vbp及其窗体文件Sj5．frm，该程序是不完整的，请将程序补充完整。在名称为Form1的窗体上有两个命令按钮，其名称分别为Command1和Com mand2，标题分别为“计算”和“保存”；两个单选按钮，名称分别为Option1和Option2，标题分别为“50～150的素数”和“200～350的素数”；一个文本框，名称为Text1，程序运行界面如图8-5 所示。如果选中一个单选按钮并单击“计算”按钮，则计算出该单选按钮标题所指明的所有素数之和，并在文本框中显示出来。如果单击“保存”按钮，则把计算结果存人out5．txt文件中，该文件必须放在考生文件夹中。(在考生文件夹中有标准模块mode．bas，其中的isPrimeNum 函数可以判断整数x是否为素数，如果是素数，则函数返回True，否则返回False，而writeData 过程可以把结果存入指定的文件，考生可以将该模块文件添加到自己的工程中。)

注意：存盘时不得改变文件名和文件夹。必须把其中一种素数之和存入考生文件夹下的out5．txt文件中，否则没有成绩。保存程序时必须存放在考生文件夹下，窗体文件名为sj5．frm，工程文件名为sj5．vbp。

在考生文件夹下有工程文件sj4．vbp及窗体文件sj4．frm，该程序是不完整的。本程序的功能为当用户单击窗体上的命令按钮“输入”时，可以输入6个数值，随后程序对这6 个数值进行斗序排序，单击按钮“输出”则把大于平均值的数显示出来，程序运行时的窗体如图7—4所示。

注意：请在有“?”号的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“¨’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。

在考生文件夹下有一个工程文件sj4．vbp与窗体文件sj4．frm，在Form1的窗体中有一个标签、两个命令按钮和一个计时器。要求程序运行时实现以下功能：单击“开始”按钮，就开始倒计数，每隔1秒，文本框中的数减1；单击“停止”按钮，则停止计数，初始计数为60，当计数到0时，则重新从60开始倒计数。如图2—4所示。

注意：修改适当的控件的属性，并去掉程序中的注释符“'”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。考生完成程序编写后，将-工程文件与窗体文件保存到考生文件夹下，文件名分别为sj4．vbp与sj4．frm。

在窗体上建立一个二级菜单，该菜单含有“文件”和“编辑”(名称分别为vbFile和vbEdit)两个主菜单项，其中“文件”菜单包括“打开”、“保存”和“关闭”三个子菜单项(名称分别为vbOpen、vbSave和vbClose)，如图8-1所示。只建立菜单，不必定义其事件过程。

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

在名称为Form1的窗体上创建两个名称分别为Option1和Option2，标签分别为“教授”和“研究员”的单选按钮，再建立一个名称为Label1的标签，实现如下功能：

当选中“教授”时，标签上显示“博士学位以上”，如果选中“研究员”，则标签上显示“硕士学位以上”，结果如图7-1所示。

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

有弹出式菜单的结构如右表，程序运行时，单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一功能的是（　　）。

设a=5，b=6，c=7，d=8，执行语句x=IIf((a>b)And(c>d)，10，20)后，X的值是（　　）。

窗体上有一-个Text1文本框，一个Command1命令按钮，并有以下程序：

Private Sub Command1 Click（　　）

Dim n

If Text1．Text<>"123456"Then

n=n+1

Print"口令输入错误”＆n＆”次"

End If

End Sub

希望程序运行时得到左图所示的效果，即：输入口令，单击“确定口令’’命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是（　　）。

下述关于数据库系统的叙述中，正确的是（　　）。

对长度为n的线性表进行顺序查找，在最坏情况下需要比较的次数为（　　）。