二、简单应用题

（1）在考生文件夹中有一个工程文件 vbsj3.vbp 及其窗体文件 vbsj3.frm。在名为 Form1的窗体中有一个名为 Txt1 的文本框；请在窗体上绘制两个名称分别为 Fra1 和 Fra2 的框架， 其标题分别为“性别”和“身份”；在 Fra1 中绘制两个名称分别为 Opt1 和 Opt2 的单选按 钮，其标题分别为“男”和“女”；在 Fra2 中绘制两个名称分别为 Opt3 和 Opt4 的单选按 钮，其标题分别为“学生”和“老师”；再绘制一个名为 Cmd1 的命令按钮，其标题为“确 定”。程序界面如图 57-3 所示。

图 57-3

请编写适当的事件过程，使得在运行时，在 Fra1、Fra2 中选一个单选按钮，然后单 击“确定”按钮，就可以按照下表把结果显示在文本框中。

注意：不得修改窗体文件中已经存在的程序和 Txt1 的属性，在结束程序运行之前， 必须进行能够产生上表中一个结果的操作；必须用窗体右上角的关闭按钮结束程序，否则 无成绩。最后保存修改后的文件。

（2）在名为Form1的窗体上建立一个名为Txt1的文本框；建立一个名为Cmd1的命令按钮，其标题为“计算”。要求程序运行后，如果单击“计算”按钮，则求出1~30之间所有可以被7整除的数的乘积并在文本框中显示出来，如图57-4所示，结果存入考生文件夹中的dw2.dat文件中。

图 57-4

在考生的文件夹中有一个 model.bas 标 准 模 块 ，该模 块 中 提供 了保存文件的过程writedata，考生可以直接调用。

注意：文件必须存放在考生文件夹中，窗体文件名为 vbsj4.frm ，工程文件名为vbsj4.vbp。