注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1)在窗体上建立一个名称为Text1的文本框,然后建立两个主菜单,标题分别为“销售业态”和“帮助”,名称分别为vbMenu和vbHelp,其中“销售业态”菜单包括“大型百货”、

admin2009-02-25  21

问题 注意:下面出现的“考生文件夹”均为c:\wexam\25160001。
   (1)在窗体上建立一个名称为Text1的文本框,然后建立两个主菜单,标题分别为“销售业态”和“帮助”,名称分别为vbMenu和vbHelp,其中“销售业态”菜单包括“大型百货”、“连锁超市”和“前店
后厂”三个子菜单,名称分别为vbMenu1、vbMenu2和vbMenu3。要求程序运行后,在“销售业态”的下拉菜单中选择“大型百货”,则在文本框内显示“百货大楼”;如果选择“连锁超市”,则在文本框内显示“利客隆”:如果选择“前店后厂”则在文本框内显示“稻香村”。程序运行界面如图8-3所示。
   注意:保存时必须存放在考生文件夹下,窗体文件名为sjt3.frm,工程文件名为sjt3.vbp。
   (2)在考生文件夹中有文件sjt4.vbp及其窗体文件sjt4.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。存盘时不得改变文件夹和文件名。
   本题描述如下:
   窗体上有一个名称为Text1的文本框;两个复选框,名称分别为Ch1和Ch2,标题分别为“羽毛球”和“乒乓球”;一个名称为C1,标题为“确定”的命令按钮。要求程序运行后,如果只选中Ch1,单击“确定”命令按钮,则在文本框中显示  “报名参加羽毛球比赛”;如果只选中Ch2,然后单击“确定”命令按钮,则在文本框中显示  “报名参加乒乓球比赛”;如果同时选中Ch1和Ch2,单击“确定”命令按钮,则在文本框中显示  “报名参加羽毛球和乓乓球比赛”;如果Ch1和Ch2都不选,然后单击“确定”命令按钮,则在文本框中什么都不显示。程序运行界面如图8-4所示。

选项

答案(1)在窗体上建立好控件后,先设置控件属性,再编写事件过程。 在Visual Basic中,菜单也被看作控件,具有属性和事件。菜单的建立在菜单编辑器中完成,菜单的级数通过内缩符号来表示,第一级菜单没有内缩符号,第二级菜单的内缩符号为1;文本框内容用Text属性来设置。解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表8-3。 [*] 第二步:编写程序代码。 参考代码: Private Sub vbMenul Click() Text1.Text = "百货大楼" End Sub Private Sub vbMenu2 Click() Text1.Text = "利客隆" End Sub Private Sub vbMenu3 Click() Text1.Text = "稻香村" End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。 (2)复选框用来表示状态,在程序运行期间可以改变其状态。复选框标题由Caption属性来设置,复选框的Value属性用来表示复选框的状态,其取值有: 0:表示复选框未被选中; 1:表示复选框被选中; 2:表示复选框被禁止使用(灰色)。 解题步骤: 第一步:编写程序代码。 程序提供的代码: Option Explicit Private Sub C1_Click() Text1.Text="" If Ch1.Value And Not Ch2.Value Then Text1.Text="报名参加羽毛球比赛" ’If Ch1.Value= ? And Ch2.Value Then Text1.Text:“报名参加乒乓球比赛” ’If Ch1.Value And Ch2.Value= ? Then Text1.Text:“报名参加羽毛球和乒乓球比赛” End Sub 参考代码: Option Explicit Private Sub C1_Click() Text1.Text="" If Ch1.Value And Not Ch2.Value Then Text1.Text=“报名参加羽毛球比赛” If Ch1.Value=0 And Ch2.Value Then Text1.Text=“报名参加乒乓球比赛” If Ch1.Value And Ch2.Value=1 Then Text1.Text=“报名参加羽毛球和乒乓球比赛” End Sub 第二步:调试并运行程序。 第三步:按题目要求存盘。

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

最新回复(0)