[问答题] 注意：下面出现的“考生文件夹”均为c：wexam25160001。 (1)在窗体上建立一个名称为Text1的文本框，然后建立两个主菜单，标题分别为“学分等级”和“帮助”，名称分别为vbM

[问答题] 注意：下面出现的“考生文件夹”均为c：wexam25160001。
(1)在窗体上建立一个名称为Text1的文本框，然后建立两个主菜单，标题分别为“学分等级”和“帮助”，名称分别为vbMenu和vbHelp，其中“学分等级”菜单包括标题为“等级A”、“等级B”和“等级C”三个子菜单，名称分别为vbMenu1、vbMenu2和vbMenu3。要求程序运行后，如果在“学分等级”的下拉菜单中选择“等级A”，则在文本框内显示 “85分以上”：如果选择 “等级B”，则在文本框内显示 “75分至85分”；如果选择“等级C”，则在文本框内显示 “60分至75分”。程序中不能使用任何变量，直接显示字符串。程序运行界面如图7-4所示。
注意：保存时必须存放在考生文件夹—下，窗体文件名为sjt3．frm，工程文件名为sjt3．vbp。
(2)在考生文件夹中有文件sjt4.vbp及其窗体文件sjt4.frm，该程序是不完整的，请在有号的地方填入正确内容，然后删除及所有注释符(即’号)，但不能修改其他部分。存盘时不得改变文件夹和文件名。
本题描述如下：
窗体上有一个名称为Text1的文本框；两个复选框，名称分别为Cp和Ch2，标题分别为“足球”和“乒乓球”；一个名称为C1，标题为“确定”命令按钮。要求程序运行后，如果只选中Cp，单击“确定”命令按钮，则在文本框中显示 “我喜欢足球”；如果只选中Ch2，单击“确定”命令按钮，则在文本框中显示“我喜欢乒乓球”；如果同时选中Cp和Ch2，然后单击“确定”命令按钮，则在文本框中显示“我喜欢足球和乒乓球”：如果Cp和Ch2都不选，然后单击“确定”命令按钮，则在文本框中什么都不显示。程序运行界面如图7-5所示。

参考答案：

在窗体上建立好控件后，先设置控件属性，再编写事件过程。 在Visual Basic中，菜单也被看作控件，具有属性和事件。菜单的建立在菜单编辑器中完成，菜单的级数通过内缩符号来表示，第一级菜单没有内缩符号，第二级菜单的内缩符号为1：文本框内容用Text属性来设置。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表7-3。 第二步：编写程序代码。 参考代码： Private Sub vbMenul_Click() Text1.Text = "85分以上" End Sub Private Sub vbMenu2_Click() Text1.Text = "75分至85分" End Sub Private Sub vbMenu3_Click() Text1.Text = "60分至75分" End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 (2) 复选框用来表示状态，在程序运行期间可以改变其状态。复选框标题由Caption属性来设置，复选框的Value属性用来表示复选框的状态，其取值有： 0：表示复选框未被选中： 1：表示复选框被选中； 2：表示复选框被禁止使用(灰色)。解题步骤： 第一步：编写程序代码。 程序提供的代码： Option Explicit Private Sub C1_Click() ’ = "" If Ch1.Value And Not Ch2.Value Then Text1.Text = "我喜欢足球" ’If Ch1.Value = And Ch2.Value Then Text1.Text = "我喜欢乒乓球" If Ch1.Value And Ch2.Value Then Text1.Text = "我喜欢足球和乒乓球" End Sub 参考代码： Option Explicit Private Sub C1_Click() Text1.Text = "" If Ch1.Value And Not Ch2.Value Then Textl.Text = "我喜欢足球" If Ch1.Value = 0 And Ch2.Value Then Text1.Text = "我喜欢乒乓球" If Ch1.Value And Ch2.Value Then Text1.Text = "我喜欢足球和乒乓球" End Sub 第二步：调试并运行程序。 第三步：按题目要求存盘。

问题解析:

解析无