[问答题] 注意：下面出现的“考生文件夹”均为c：wexam25160001。 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1) 在Form1的窗体上画一个名称为

[问答题] 注意：下面出现的“考生文件夹”均为c：wexam25160001。 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1) 在Form1的窗体上画一个名称为Text1的文本框，然后建立一个主菜单，标题为“操作”，名称为Op，该菜单有两个子菜单，其标题分别为“显示”和“清除”，名称分别为Dis和Clea，编写适当的事件过程。程序运行后，如果单击“操作”菜单中的“显示”命令，则在文本框显示“计算机考试”；如果单击“清除”命令，则清除文本框中显示的内容。程序的运行情况如图13-1和图13-2所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 (2) 在窗体上画一个文本框，名称为Text1，Text属性为空白。再画一个列表框，名称为L1，通过“属性”窗口向列表框中添加4个项目，分别为“早上好”、“上午好”、“中午好”和“下午好”，编写适当的事件过程。程序运行后，在文本框中输入一个字符串，如果双击列表框中的任一项，则把文本框中的字符串添加到列表框中。程序的运行情况如图13-3所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

参考答案：

问题解析:

在窗体上建立好控件后，先设置控件属性，再编写事件过程。 通过“菜单编辑器”来创建菜单，文本框的内容通过Text属性设置，Tex=""语句可将文本框中的内容清空。 解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表13-1。 表 13-1控　件属　性设　置　值　菜单　名字　标题　Op　操作　菜单　名字　标题　Dis　显示 　菜单　名字　标题　Cle　清除 　文本框　Name　Text1　　第二步：编写程序代码。　　参考代码：　　　　Private Sub Clea_Click()　　　　　　Text1.Text=""　　　　End Sub　　　　Private Sub Dis_Click()　　　　　　Text1.Text="计算机考试"　　　　End Sub　　第三步：调试并运行程序。　　第四步：按题目要求存盘。　　(2) 在窗体上建立好控件后，先设置控件属性，再编写事件过程。　　列表框的内容由List属性设置，文本框的内容由Text属性设置，双击触发DblClick事件，向列表框中添加内容用Addltem方法。解题步骤：　　第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表13-2。　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　表　13-2 控　件属　性设　置　值　文本框　Name　Text1　列表框　Name　L1 第二步：编写程序代码： 参考代码： Private Sub L1_DblCliCk() L1.AddItem Text1.Text End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。