(1)在窗体上建立一个名称为Textl的文本框,然后建立两个主菜单,标题分别为“体育活动”和“帮助”,名称分别为vbMenu和vbHelp,其中“体育活动”菜单包括标题为“足球”、“篮球”和“排球”三个子菜单,名称分别为vbMenul、vbMenu2和vl

admin2010-07-13  28

问题 (1)在窗体上建立一个名称为Textl的文本框,然后建立两个主菜单,标题分别为“体育活动”和“帮助”,名称分别为vbMenu和vbHelp,其中“体育活动”菜单包括标题为“足球”、“篮球”和“排球”三个子菜单,名称分别为vbMenul、vbMenu2和vloMenu3。要求程序运行后,如果在“体育活动”的下拉菜单中选择“足球”,则在文本框内显示“足球”;如果选择“篮球”,则在文本框内显示“篮球”;如果选择“排球”,则在文本框内显示“排球”。程序中不能使用任何变量,直接显示字符串。程序运行后,选择“排球”的界面如图54—3所示。
    注意:保存时必须存放在考生文件夹下,窗体文件名为sj3.frm,工程文件名为sj3.Vbp。
    (2)在考生文件夹中有文件sj4.vbp及其窗体文件sj4.frm,该程序是不完整的。窗体上有一个名称为Textl的文本框;两个复选框,名称分别为Checkl和Check2,标题分别为“英语”和“德语”。要求程序运行后,如果Checkl和Check2都不选,单击“显示”命令按钮,则在文本框中什么都不显示;如果只选中Checkl,单击“显示”命令按钮,则在文本框中显示“我精通英语”;如果只选中Check2,单击“显示”命令按钮,则在文本框中显示“我精通德语”;如果同时选中Checkl和Check2,单击“显示”命令按钮,则在文本框中显示“我精通英语和德语”。程序运行后,若选择Checkl,则显示界面如图54—4所示。

    注意:请在有“?”的地方填入正确内容,然后删除“?”及所有注释符(即“’”号),但不能修改其他部分。存盘时不得改变文件夹和文件名。

选项

答案(1)在窗体上建立好控件后,先设置控件属性,再编写事件过程。 在Visual Basic中,菜单也被看做控件,具有属性和事件。菜单的建立在菜单编辑器中完成,菜单的级数通过内缩符号来表示,第一级菜单没有内缩符号,第二级菜单的内缩符号为1;文本框内容用Text属性来设置。 根据题意,按“Ctrl+E”组合键打开菜单编辑器,在其中添加如下菜单项: [*] 单击“确定”按钮,完成菜单编辑。再将一个文本框控件添加到窗体中,将其名称设为Text1,在代码窗口中编写如下代码: Private Sub vbMenul_Click(Index As Integer) ’足球选项 Textl.Text="足球" End Sub Private Sub vbMenu2_Click(Index As Integer) ’篮球选项 Textl.Text="篮球" End Sub Private Sub vbMenu3_Click(Index As Integer) ’排球选项 Textl.Text="排球" End Sub 单击[*]按钮运行程序,并按要求保存。 (2)复选框用来表示状态,在程序运行期间可以改变其状态。复选框标题由Caption属性来设置,复选框的Value属性用来表示复选框的状态,其取值有:0表示复选框未被选中;1表示复选框被选中;2表示复选框被禁止使用(灰色)。 根据题意,将一个文本框、一个命令按钮和两个复选框控件添加到窗体中,文本框控件的名称设为Textl,命令按钮的名称:勾Commandl、标题为“显示”,复选框的名称分别设为Checkl和Check2,Caption属性分别设为“英语”和“德语”。双击复选框进入代码窗口,补充后的代码如下: Option Explicit Private Sub Commandl_Click() Textl.Text="" If Checkl.Value And Not Check2.Value Then Textl.Text="我精通英语" If Checkl.Value=0 And Check2.Value Then Textl.Text="我精通德语" If Checkl.Value And Check2.Value Then Textl.Text="我精通英语和德语" End Sub 单击[*]按钮运行程序,并按要求保存。

解析
转载请注明原文地址:https://kaotiyun.com/show/uGmp777K
0

随机试题
最新回复(0)