100人参加7项活动，已知每个人只参加一项活动，而且每项活动参加的人数都不一样。那么，参加人数第四多的活动最多有几人参加？

在窗体Form1上建立3个菜单(名称分别为Read、Calc和Save，标题分别为“读数”、“计算”和“存盘”)，然后绘制一个文本框(名称为Text1，MulfiLine属性设置为Tree， ScrollBars属性设置”2)，如下图所示。

程序运行后，如果执行“读数”命令，则读入in12.txt文件中的100个整数，放入一个数组中，数组的下界为1：如果执行“计算”命令，则把该数组中大于等于30的元素在文本框中显示出来，求出它们的和并把所求得的和在窗体上显示出来；如果执行“存盘”命令，则把所求得的和存入考生文件夹下的out12.txt文件中。

在考生文件夹下有一个工程文件execise12.vbp(相应的窗体文件为execise12.frm)，考生可以装入该文件。窗体文件中的ReadData过程可以把in12.txt文件中的100个整数读入Arr数组中；而WriteData过程可以把指定的整数值写到考生文件夹指定的文件中(整数值通过计算求得，文件名为out12.txt)。

注意：

考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为execise12.vbp，窗体文件名仍为execise12.frm。

注意：下面出现的“考生文件夹”均为c：\wexam\25160001。

在窗体上有三个菜单，名称分别为Read、Calc和Save，标题分别为“读入数据”、“计算并输出”和“存盘”，一个文本框，名称为Text1，MultiLine属性设置为Tree，ScrollBars属性设置为2，如图21-7所示。

程序运行后，如果执行“读入数据”命令，则读入datain1.txt文件中的100个整数，放入一个数组中，数组的下界为1；如果单击“计算并输出”按钮，则把该数组中下标为奇数的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果单击“存盘”按钮，则把所求得的和存入考生文件夹下的dataout.txt文件中。

在考生文件夹下有一个工程文件sjt5.vbp，窗体文件中的ReadData过程可以把datain1.txt文件中的100个整数读入Air数组中；而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得，文件名为dataout.txt)。请将程序中有问号的地方用相应的代码补完整，将注释号(')去掉。

注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为sjt5.vbp，窗体文件名仍为sjt5.frm。

在名为Form1的窗体中建立一个弹出式菜单(程序运行时不显示)，名为file，含两个菜单项，其名称分别为save、open，标题分别为“保存”、“打开”。编写适当的事件过程，使程序运行后，若用鼠标右键单击窗体，则弹出此菜单(如下图所示)。

注意：

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

dit和VbHelp。其中“编辑”菜单含有子菜单，共有3个菜单项，其标题依次为“剪切”、“复制”和“粘贴”，名称分别为VbCut、VbCopy和vbPaste，如下图所示。

注意：

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

称分别为vbFile和VbEdit；在“编辑”菜单下有第二级菜单，含有3个菜单项，标题分别为“剪切”、“复制”和“粘贴”，名称分别为vbCut、VbCopy和vbPaste。其中“剪切”菜单项设置为无效(如下图所示)。

注意：

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

中“帮助”菜单含有一个子菜单，共有3个菜单项，它们的标题依次为“Visual Basic帮助”、“关于Visual Basic”、“与我们联系”，它们的名称分别为vbHelpyou、vbAbout和vbMml(如下图所示)。

注意：

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

在窗体上创建三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“导入数据”、 “字母转换”和“保存数据”，以及一个文本框，名称为Text1。编写事件过程，使得在运行时，单击“导入数据”按钮，从考生文件里读入data.txt文件(字母&空格)，在Text1中显示。单击“字母转换”按钮，则把Text1中的所有大写字母转换成小写字母。单击“保存数据”按钮，存入out.txt文件中。程序运行后如图28所示。要求实现题目给出的功能，并将文件保存在考生文件夹下，工程文件名为ylc.vbp。

和“保存数据”，以及一个文本框，名称为Text1。编写事件过程，使得在运行时，单击“导入数据”按钮，从考生文件里读入data.txt文件(其中有20个整数)，在Text1中显示。单击“计算”，采用冒泡算法排序。单击“保存数据”，存入out.txt文件中。程序运行界面如图29所示。

文件”菜单下有3个菜单项，分别为“新建”、“打开”和“保存” (其名称分别为vbNew、vbOpen和vbSave)。

要求程序运行后，如果选中“文件”下的某个菜单项，则将该菜单项的标题通过MsgBox对话框显示出来，如下图所示。

注意：

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

“文件”菜单下有三个子菜单项，标题分别为“打开”、“保存”和“关闭”，名称分别为vbOpen、vbSave和vbClose。要求程序运行后，如果选中“文件”下的某个菜单项，则通过MsgBox对话框显示该菜单项的标题，如图6-3所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sj3．frm，工程文件名为sja．vbp。