请编写适当的事件过程，使得在运行时，选中复选框并单击“确定”按钮，就可以按照表中的要求把结果显示在文本框中。按原名并在原文件夹中保存。注意：不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的“关闭”按钮。在结束程序运行之前，必须进行产生下一个结果的操作。
如下图所示，在名为Form1的窗体上建立一个名称为Text1的文本框；建立两个主菜单，其标题分别为“颜色”和“帮助”，名称分别为vbColor和vbHelp，其中“颜色”菜单包括“红色”、“绿色”和“黄色”3个菜单项，名称分别为vbRed、vbGreen和vbYellow。
程序运行后，如果单击“红色”菜单项，则文本框内显示“西红柿是红色的”；如果单击“绿色”菜单项，则在文本框内显示“苹果是绿色的”；如果单击“黄色”菜单项，则在文本框内显示“香蕉是黄色的”。
注意：不能使用任何变量，直接显示字符串；文件必须存放在考生文件夹中，窗体文件名为sj4.frm，工程文件名为sj4.vbp。
参考答案：①新建一个名为FormA的窗体；
②执行“工具”菜单中的“菜单编辑器”命令，打开菜单编辑器；在“标题”栏中输入“颜色”，在“名称”栏中输入vbColor,单击“下一个”按钮，再单击编辑区的右箭头按钮，在“标题”栏中输入“红色”，在“名称”栏中输入vbRed；单击“下一个”按钮，在“标题”栏中输入“绿色”，在“名称”栏中输入vbGreen；单击“下一个”按钮，在“标题”栏中输入“黄色”，在“名称”栏中输入“vbYellow”；单击“下一个”按钮，再单击编辑区的左箭头按钮，在“标题栏”中输入“帮助”，在“名称”栏中输入“vbHelp”；
③打开代码窗口输入如下代码：
Private Sub vbGreen_Click()
TextA.Text="苹果是绿色的"
End Sub
Private Sub vbRed_Click()
TextDA.Text="西红柿是红色的"
End Sub
Private Sub vbYellow_Click()
TextA.Text="香蕉是黄色的"
End Sub
④按要求保存文件即完成本题。
