在窗体上有3个菜单，名称分别为Read、Arg和Save，标题分别为"读入数据"、"计算显示"和"保存"，一个文

在窗体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。

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

注意：

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

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

注意：

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

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

注意：

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

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

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

注意：

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

单项，标题分别为“加粗”、“斜体”和“下划线”，名称分别为 vbMenu1、vbMenu2、vbMenu3。

请编写适当的事件过程，在运行时当用鼠标右键单击文本框时，弹出此菜单，选中一个菜单项后，则进行菜单标题所描述的操作，如下图所示。

注意：

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

”和“帮助”，名称分别为vbCo1or和vbHe1p，其中“颜色”菜单包括“红色”、“绿色”和“黄色”3个菜单项，名称分别为vbRed、vbGreen和vbYellow (如下图所示)。

程序运行后，如果单击“红色”菜单项，则文本框内显示“西红柿是红色的”；如果单击“绿色”菜单项，则在文本框内显示“苹果是绿色的”；如果单击“黄色”菜单项，则在文本框内显示“香蕉是黄色的”。

要求；

不能使用任何变量，直接显示字符串：文件必须存放在考生文件夹中，窗体文件名为 execise90.frm，工程文件名为execise90.vbpo

帮助”，名称分别为vbMenu和vbHelp，其中“食品列表”菜单包括“洋葱”、“鸡蛋”和“鲜奶”3个菜单项，名称分别为vbMenu1、vbMenu2和vbMenu3。程序运行后，如果在“食品列表：的下拉菜单中选择“洋葱”，则在文本框内显示：“慢速运输”；如果选择“鸡蛋”，则在文本框内显示：“中速运输”；如果选择“鲜奶”，则在文本框内显示：“快速运输”运行结果(如下图所示)。

注意：

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

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

去掉程序中的注释符，把程序中的？改为正确的内容，使其实现下述功能，但不能修改程序中的其他部分。

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

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

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

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