请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。 （1）在名称为Form1的窗体上创

以下程序用来产生20个(0，99)之间的随机整数，并将其中的偶数打印出来。请填空。

Private Sub Command1_Clcik()

Randomize

For I=1 To 20

X=Int(Rnd* ______ )

If X/2= ________ Then Print x

Next I

End Sub

以根据标题自动调整大小：再绘制一个命令按钮，其名称和标题均为Cmd1。编写适当的事件过程，使程序运行后，如果单击命令按钮，则标签消失，同时用标签的标题作为命令按钮的标题。程序运行情况如下图所示。

注意：

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

制两个复选框，名称分别为Chk1和Chk2，标题分别为“物理”和“高等数学”：绘制一个文本框，名为Text1；再绘制一个命令按钮，名为Cmd1，标题为“确定”，如下图所示。

请编写适当的事件过程，使得在运行时，选中复选框并单击“确定”按钮，就可以按照下表的要求把结果显示在文本框中。按原名并在原文件夹中保存。

注意：

不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的“关闭”按钮。在结束程序运行之前，必须进行产生下表一个结果的操作。

Index属性设置为0。请为Cmd1设置适当的属性，使得当焦点在 Cmd1上时，按Esc键就调用Cmd1的Click事件，该事件过程的作用是在文本框中显示“等级考试”，程序运行结果如下图所示。

注意：

文件必须存放在考生文件夹中，工程文件名为execise101.vbp，窗体文件名为 execiSe101.frm。

称分别为Opt1、Opt2和Opt3，标题分别为“体育”、“音乐”和“美术”。编写适当的事件过程，使程序运行后，若选择单选按钮“体育”，则在文本框中显示“90”：如果选择单选按钮“音乐”，则在文本框中显示“89”；如果选择单选按钮“美术”，则在文本框中显示“80”。程序的运行情况如下图所示。

注意：

程序中不得使用变量，事件过程中只能写一条语句：文件必须存放在考生文件夹中，工程文件名为execise76.vbp，窗体文件名为execise76.frm。

图所示。

要求程序运行后，如果单击“计算”按钮，则求出1～30之间所有可以被7整除的数的乘积并在文本框中显示出来，结果存入考生文件夹中的out117.txt文件中。

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

注意：

文件必须存放在考生文件夹中，窗体文件名为execisell7.frm，工程文件名为

execise117.Vbp。

示2”的命令按钮。编写适当的事件过程，使程序运行后、若单击“显示广命令按钮，则在标签卜显示字符串Cmd；如果单击“显示2”命令按钮，则在标签上显示字符串Cmd2。如下图所示。

注意：

不要使用任何变量，直接显示字符串；文件必须存放在考生文件夹中，窗体文件名为 execise62.frm，工程文件名为execise62.vbp。

别为Text1和Text2，内容设为空：再绘制一个名为Cmd1的命令按钮，其标题为“华氏温度等于”。编写适当的程序，使得单击“华氏温度等于”按钮时，将Textl中输入的摄氏温度(c)转换成为华氏温度(f)，转换公式为：f=c*9/5+32,并显示在Text2中。程序运行结果如下图所示。

注意：

程序中不得使用任何变量；文件必须存放在考生文件夹中，窗体文件名为 execise119.frm，工程文件名为execise119.vbp。

大写显示(要求焦点在最右端)，如下图所示。

注意：

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