2. 计算机
  3. 注意：下面出现的“考生文件夹”均为c：\wexam\25160001。 (1)在窗体上建立一个名称为Text1的文本框，然后建立两个主菜单，其标题分别为“商品类别”和“帮助”，名称分别为vbMenu和vbHelp，其中“商品类别”菜单包括“百货”、“

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

admin2009-02-25  53
问题 注意：下面出现的“考生文件夹”均为c：\wexam\25160001。
   (1)在窗体上建立一个名称为Text1的文本框，然后建立两个主菜单，其标题分别为“商品类别”和“帮助”，名称分别为vbMenu和vbHelp，其中“商品类别”菜单包括“百货”、“食品”和“家电”三个子菜单，名称分别为vbMenu1、vbMenu2和vbMenu3。程序运行后，如果在“商品类别”的下拉菜单中选择“百货”，则在文本框内显示“大类核算”；如果选择“食品”，则在文本框内显示“中类核算”；如果选择“家电”，则在文本框内显示“小类核算”。程序中不能使用任何变量，直接显示字符串。程序运行界面如图6-3所示。
   注意：保存时必须存放在考生文件夹下，窗体文件名为sjt3.frm，工程文件名为sjt3.vbp。

   (2)在考生文件夹中有文件sjt4.vbp及其窗体文件sjt4.frm，该程序是不完整的，请在有? 号的地方填入正确内容，然后删除? 及所有注释符(即，号)，但不能修改其他部分。存盘时不得改变文件夹和文件名。
    本题描述如下：
   窗体上有一个名称为Text1的文本框：两个复选框，名称分别为Ch1和Ch2，标题分别为“英语班”和“计算机班”。要求程序运行后，如果只选中Ch1，单击窗体，则在文本框中显示“报名参加英语班”；如果只选中Ch2，然后单击窗体，则在文本框中显示“报名参加计算机班”：如果同时选中Ch1和Ch2，单击窗体，则在文本框中显示“报名参加英语班和计算机班”；如果Ch1和Ch2都不选取，在单击窗体后，则在文本框中什么都不显示。程序运行界面如图6-4所示
选项
答案(1)在窗体上建立好控件后，先设置控件属性，再编写事件过程。 在Visual Basic中，菜单也被看作控件，具有属性和事件。菜单的建立在菜单编辑器中完成，菜单的级数通过内缩符号来表示，第一级菜单没有内缩符号，第二级菜单的内缩符号为1：文本框的内容由Text属性设置。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表6-3。 [*] 第二步：编写程序代码。 参考代码： Private Sub vbMenu1_Click() Text1.Text="大类核算" End Sub Private Sub vbMenu2_Click() Text1.Text="中类核算" End Sub Private Sub vbMenu3_Click() Text1.Text="小类核算" End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 (2)在窗体上建立好控件后，先设置控件属性，再编写事件过程。 在Visual Basic中，复选按钮的标题由Caption属性设置，Value属性用来表示复选框的状态，复选框的Value属性有0、 1或2三种取值，其作用为： 0：表示未选中； 1：表示选中该复选框； 2：表示该复选框被禁止(灰色)。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表6-4。 [*] 第二步：编写程序代码。 程序提供的代码： Option Explicit Private Sub Form Click() Text1.Text = "" ’If Ch1.Value = ? Then Text1.TeXt = Text1.Text + "英语班" End If If Ch2.Value Then ’If Text1.Text ＜＞ "" Then Text1.Text = ? + "和" Text1.Text = Text1.Text + "计算机班" End If If Text1.Text ＜＞ "" Then Text1.Text = "报名参加" + Text1.Text End If End Sub 参考代码： Option Explicit Private Sub Form Click() Text1.Text = "" If Ch1.Value = 1 Then Text1.Text = Text1.Text + "英语班" End If If Ch2.Value Then If Text1.Text ＜＞ "" Then Text1.Text = Text1.Text + "和" Text1.Text = Text1.Text + "计算机班" End If If Textl.Text ＜＞ "" Then Text1.Text = "报名参加" + Text1.Text End If End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/Dh1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)