问答题
在Form1的窗体上建立一个二级下拉菜单。第一级共有二个菜单项，名称分别为Operation、Help，标题分别为“操作”、“帮助”；在“操作”菜单下有第二级菜单，含有两个菜单项，名称分别为Msg、MyExit，标题分别为“显示消息”、“退出”(如图1—1所示)。程序运行后，单击“显示消息”菜单时，弹出一个消息框，其中的消息为“计算机等级考试”(如图1—2所示)；单击“退出”则结束应用程序。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
2．在窗体上画两个单选按钮(名称分别为Op1和Op2，标题分别为“本科生”和“研究生”)和一个文本框(名称为T1)，然后编写适当的代码。程序运行后，如果选择“本科生”单选按钮，则在文本框中显示“我是本科生”；如果选择“研究生”单选按钮，则在文本框中显示“我是研究生”。程序的运行情况如图1—3和图1—4所示。
存盘时，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
2．在窗体上画两个单选按钮(名称分别为Op1和Op2，标题分别为“本科生”和“研究生”)和一个文本框(名称为T1)，然后编写适当的代码。程序运行后，如果选择“本科生”单选按钮，则在文本框中显示“我是本科生”；如果选择“研究生”单选按钮，则在文本框中显示“我是研究生”。程序的运行情况如图1—3和图1—4所示。
存盘时，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
【正确答案】① 建立界面和设置对象属性。
程序用到的控件及其属性如下表l所示。
表 1
② 编写程序代码
Private Sub Msg_Click()
MsgBox"计算机等级考试"
End Sub
Private Sub MyExit_Click()
End
End Sub
③ 按题目要求存盘。
2．① 启动Visual Basic，在窗体上画一个文本框和两个单选按钮。
② 在属性窗口中设置3个控件的属性值，见表2。
表 2
③ 编写第1个单选按钮的Click事件过程：
Private Sub Op1_Click()
Text1.Text＝"我是本科生"
End Sub
④ 编写第2个单选按钮的Click事件过程：
Private Sub Op2_Click()
Text1.Text＝"我是研究生"
End Sub
程序用到的控件及其属性如下表l所示。
表 1
控 件 | 属 性 | 设 置 值 |
菜单 | 名称 标题 | Operation “操作” |
菜单 | 名称 标题 | Help “帮助” |
菜单 | 名称 标题 内缩符号 | Msg “显示消息” 1 |
菜单 | 名称 标题 内缩符号 | MyExit “退出” 1 |
Private Sub Msg_Click()
MsgBox"计算机等级考试"
End Sub
Private Sub MyExit_Click()
End
End Sub
③ 按题目要求存盘。
2．① 启动Visual Basic，在窗体上画一个文本框和两个单选按钮。
② 在属性窗口中设置3个控件的属性值，见表2。
表 2
控件 | 属性 | 设置值 |
文本框 | 名称 | T1 |
单选按钮 | 名称 Caption | Op1 本科生 |
单选按钮 | 名称 Caption | Op2 研究生 |
Private Sub Op1_Click()
Text1.Text＝"我是本科生"
End Sub
④ 编写第2个单选按钮的Click事件过程：
Private Sub Op2_Click()
Text1.Text＝"我是研究生"
End Sub
【答案解析】