2. 计算机
  3. (1)在窗体上建立一个名称为Textl的文本框，然后建立两个主菜单，标题分别为“操作系统”和“帮助”，名称分别为vbOS和vbHelp，其中“操作系统”菜单包括“Windows’’、“unix”和“AppleMacOS”三个子菜单，名称分别为vbOSl、v

(1)在窗体上建立一个名称为Textl的文本框，然后建立两个主菜单，标题分别为“操作系统”和“帮助”，名称分别为vbOS和vbHelp，其中“操作系统”菜单包括“Windows’’、“unix”和“AppleMacOS”三个子菜单，名称分别为vbOSl、v

admin2009-03-26  40
问题 (1)在窗体上建立一个名称为Textl的文本框，然后建立两个主菜单，标题分别为“操作系统”和“帮助”，名称分别为vbOS和vbHelp，其中“操作系统”菜单包括“Windows’’、“unix”和“AppleMacOS”三个子菜单，名称分别为vbOSl、vbOS2和vbOS3。要求程序运行后，在“操作系统”的下拉菜单中选择“WindoWS”，则在文本框内显示“个人用户”；如果选择“Unix”，则在文本框内显示“服务器”；如果选择“AppleMacOS”则在文本框内显示“苹果电脑”，如图28—3所示。
    注意：保存时必须存放在考生文件夹下，窗体文件名为sj3．frm，工程文件名为sj3．vbp。
    (2)在考生文件夹中有文件sj4．vbp及其窗体文件sj4．frm，该程序是不完整的，请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件夹和文件名。
  本题描述如下：
  窗体上有一个名称为Textl的文本框；两个复选框，名称分别为Checkl和Check2，标题分别为“C++”和“。Basic’’。要求程序运行后，如果Checkl和Check2都不选，则单击窗体后在文本框中什么都不显示；如果只选中(2heckl，则单击窗体后在文本框中显示“我掌握C++”；如果只选中Check2，则单击窗体后在文本框中显示“我掌握Basic”；如果同时选中Checkl和Check2，则单击窗体后在文本框中显示“我掌握C++和．Basic’’。程序运行后，若选择Check2，则单击窗体后显示界面，如图28—4所示。
选项
答案(1)在Visual Basic中，菜单也被看做控件，具有属性和事件。菜单的建立在菜单编辑器中完成，菜单的级数通过内缩符号来表示，第一级菜单没有内缩符号，第二级菜单的内缩符号为1。 根据题意，新建“标准EXE”工程，按“Ctrl+E”组合键打开菜单编辑器，在其中添加如下菜单项： [*] 单击“确定”按钮，完成菜单编辑。再将一个文本框控件添加到窗体中，将其名称设为Textl。代码如下： Private Sub vbOSl_Click(Index As Integer) ’Windows选项 Textl．Text="个人用户" End Sub Private Sub vbOS2_Click(Index As Integer) ’Unix选项 Textl．Text="服务器" End Sub Private Sub vbOS3_Click(Index As Integer) ’AppleMacOS选项 Textl．Text="苹果电脑" End Sub 单击[*]按钮运行程序，并按要求保存。 (2)复选框用来表示状态，在程序运行期间可以改变其状态。复选框标题由Caption属性来设置，复选框的Value属性用来表示复选框的状态，其取值有：0表示复选框未被选中；1表示复选框被选中；2表示复选框被禁止使用(灰色)。 根据题意，将一个文本框控件和两个复选按钮添加到窗体中，文本框控件的名称设为Textl，复选按钮的名称分别设为Checkl和Check2、Caption属性分别设为“C++”和“Basic”。由于是单击窗体触发事件，因此，双击窗体进入代码窗口，补充后的代码如下： Private Sub form_click() Textl．Text="" If Checkl．Value And Not Check2．Value Then Textl．Text="我掌握C++" If Checkl．Value=0 And Check2．Value Then Textl．Text="我掌握Basic" If Checkl．Value And Check2．Value=1 Then Textl．Text="我掌握C++和Basic" End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://jikaoti.com/ti/2Lq0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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