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

admin2010-09-02  33

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

(2)在Forml的窗体上画一个文本框,名称为Text1,Text属性为空白。再画一个列表框,名称为L1,通过属性窗口向列表框中添加4个项目,分别为“AAAA”、“BBBB”、“CCCC”和“DDDD”,编写适当的事件过程。程序运行后,在文本框中输入一个字符串,如果双击列表框中的任一项,则把文本框中的字符串添加到列表框中。程序的运行情况如
图1-126所示。

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

选项

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

解析 第1小题
   本题需用菜单设计器建立菜单,并编写“显示”和“清除”菜单项的单击事件过程。
第2小题
    列表框控件(ListBox)用于显示可供单一或多个选择的列表项,给列表框添加列表项既可以在设计阶段通过其List属性设置加入,也可在程序运行时使用Addltem方法加入。
    双击列表框中的某个项目,将触发其DblCliek事件。要实现双击列表框中的某一项,就把文本框中的内容加入列表框,只需在DbIClick事件过程中编写添加项目的语句即可。
转载请注明原文地址:https://jikaoti.com/ti/0mg0FFFM
0

最新回复(0)