请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在Forml的窗体上画一个名称为Labell的标签,然后建立一个主菜单,标题为“时间”,名称为vbTime,该菜单有两个子菜单,其标题分别为“上午”和“下午”,名称分

admin2010-07-13  38

问题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
  (1)在Forml的窗体上画一个名称为Labell的标签,然后建立一个主菜单,标题为“时间”,名称为vbTime,该菜单有两个子菜单,其标题分别为“上午”和“下午”,名称分别为vbTimel和vbTime2。编写适当的事件过程,使程序运行后,如果单击“时间”菜单中的“上午”命令,则在标签中显示“8:00~12:00”;如果单击“下午”命令,则标签中显示“12:00~18:O0”。程序的运行情况如图39—1和图39—2所示。
    注意:存盘时必须存放在考生文件夹下,工程文件名为sjl.vbp,窗体文件名为sjl.frm。
    (2)在窗体上画一个文本框,名称为Textl,Text属性为空。再画一个列表框,名称为Listl,通过“属性”窗口向列表框中添加3个项目,分别为“足球”、“篮球”和“排球”。编写适当的事件过程,使程序运行后,在文本框中输入一个字符串,如果双击列表框中的任一项,则把文本框中的字符串覆盖到该项上。程序的运行情况如图39—3所示。

注意:存盘时必须存放在考生文件夹下,工程文件名为sj2.vbp,窗体文件名为sj2.frm。

选项

答案(1)根据题意,新建“标准EXE”工程,在窗体上添加一个标签,名称为Labell,Caption属性为空,再按“Ctrl+E”组合键打开菜单编辑器,添加以下菜单项: [*] 设置完成后,单击菜单进入代码编写窗口,分别编写vbTimel和vbTime2的处理函数,具体如下: Private Sub vbTimel_Click() Labell.Caption="8:00~12:00" End Sub Private Sub vbTime2_Click() Labell.Caption="12:00~18:00" End Sub 单击[*]按钮运行程序,并按要求保存。 (2)根据题意,新建“标准EXE”工程,将一个列表框控件和一个文本框控件添加到窗体中,列表框的名称设为Listl,单击其List属性,在其中添加“足球”、“篮球”和“排球”,每输入完一项按“Ctrl+Enter”组合建输入下一项,当输入完成后,按回车键。文本框的名称为Textl、Caption属性为空。双击Listl,进入代码编写窗口,具体代码如下: Private Sub Listl_Click() Listl.List(Listl.ListIndex)=Textl.Text End Sub 单击[*]按钮运行程序,并按要求保存。

解析
转载请注明原文地址:https://jikaoti.com/ti/hJg0FFFM
0

最新回复(0)