请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。 (1)在Forml的窗体上画一个名称为Textl的文本框,然后建立一个主菜单,标题为“操作”,名称为op,该菜单有两个子菜单,其标题分别为“显示”和“退出”,其名称分别为Dis和

admin2010-09-02  23

问题 请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。
(1)在Forml的窗体上画一个名称为Textl的文本框,然后建立一个主菜单,标题为“操作”,名称为op,该菜单有两个子菜单,其标题分别为“显示”和“退出”,其名称分别为Dis和Exit,编写适当的事件过程。程序运行后,如果单击“操作”菜单中的“显示”命令,则在文本框中显示“等级考试”;如果单击“退出”命令,则结束程序运行。程序的运行情况如图1-201所示。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjtl.vbp,窗体文件名为sjtl.frm。

(2)在Forml的窗体上画一个列表框,名称为Ll,通过属性窗口向列表框中添加四个项目,分别为“AAAA”、“BBBB”、“CCCC”和“DDDD”,编写适当的事件过程。程序运行后,如果单击列表框中的某一项,则该项就从列表框中消失。程序的运行情况如图1-202所示。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。

选项

答案第1小题 【操作步骤】 步骤1:新建一个“标准EXE’’工程,在窗体Forml中画一个名为Textl的文本框。 步骤2:选择【工具】→【菜单编辑器】命令,打开菜单设计器,如表2-116中的设置建立菜单项。 [*] 步骤3:打开代码编辑窗口,编写“显示”和“退出”菜单命令的单击事件过程。 参考代码: PriVate Sub Dis_Click() Textl.Text="等级考试" End Sub PriVate Sub Exit_Click() End End Sub 步骤4:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:新建一个“标准EXE”工程,在窗体Forml中加入一个列表框,在属性设置窗口中将其Name属性设置为Ll,在其List属性中添加四个项目,依次为“AAAA”、“BBBB”、“CCCC”和“DDDD”。注意:每输入完一项后按键换行再输入下一项。 步骤2:打开代码编辑窗口,编写列表框的Click事件过程: 参考代码: PrlVate Sub Ll_C11ck() L1.RemoveItem L1.ListIndex End Sub 步骤3:按要求将文件保存至考生文件夹中。

解析 第1小题
    菜单中所包含的每一个菜单项都可看成是一个命令按钮,程序运行时,选择某菜单项将触发其Click事件。
    要实现本题中的功能,应在“显示”菜单项的Click事件过程中,为文本框的Text属性赋值为“等级考试”,在“退出”菜单项的Click事件过程中,结束程序的运行。
    第2小题
    列表框控件(ListBox)用于显示可供单一或多个选择的列表项,给列表框添加列表项既可以在设计阶段通过其List属性设置加入,也可在程序运行时使用Addltem方法加入。在程序运行时删除列表框中的项目可以使用Removeltem方法,其语法为:列表框.RemoveRem索引值。其中,“索引值”可以指定插入项在列表框中的位置,从0开始计数。
    单击列表框中的某个项目,将触发其Click事件。要实现单击列表框中的某一项,该项就从列表中消失的功能,只需在Click事件过程中编写删除项目的语句即可。列表框的Listlndex属性可返回当前选择的项目的索引号,因此删除选中项目的语句为:
   L1.RemoveItem L1.ListIndex。
转载请注明原文地址:https://kaotiyun.com/show/DUmp777K
0

最新回复(0)