2. 计算机
  3. (1)在窗体上建立一个名称为Textl的文本框，然后建立两个主菜单，其标题分别为“编程语言”和“帮助”。名称分别为vbLanguage和vbHelp，其中“编程语言”菜单包括“C++”、“Basic”和“JAVA”三个子菜单，名称分别为vbLanguage

(1)在窗体上建立一个名称为Textl的文本框，然后建立两个主菜单，其标题分别为“编程语言”和“帮助”。名称分别为vbLanguage和vbHelp，其中“编程语言”菜单包括“C++”、“Basic”和“JAVA”三个子菜单，名称分别为vbLanguage

admin2009-08-26  45
问题 (1)在窗体上建立一个名称为Textl的文本框，然后建立两个主菜单，其标题分别为“编程语言”和“帮助”。名称分别为vbLanguage和vbHelp，其中“编程语言”菜单包括“C++”、“Basic”和“JAVA”三个子菜单，名称分别为vbLanguagel、VbLanguage2和vbLanguage3。程序运行后，如果在“编程语言”的下拉菜单中选择“C++”，则在文本框内显示“指针”；如果选择“Basic’’，则在文本框内显示“对话框”；如果选择“JAVA”，则在文本框内显示“对象”。程序中不能使用任何变量，直接显示
字符串。程序运行后，选择“编程语言”的“C++”选项，则界面如图46—3所示。  
    注意：保存时必须存放在考生文件夹下，窗体文件名为sj3．frm，工程文件名为sj3．Vbp。
    (2)在考生文件夹中有文件sj4．vbp及其窗体文件sj4．frm，该程序是不完整的。窗体上有一个名称为Textl的文本框；两个复选框，名称分别为Check1和Check2，标题分别为“足球”和“篮球”。要求程序运行后，如果只选中Checkl，单击窗体，则在文本框中显示“我的爱好是足球”；如果只选中Check2，然后单击窗体，则在文本框中显示“我的爱好是篮球”；如果同时选中Checkl和Check2，单击窗体，则在文本框中显示“我的爱好是足球和篮球”；如果Checkl和Check2都不选取，在单击窗体后，则在文本框中什么都不显示。如程序运行选中两项时，界面如图46—4所示。

    注意：请在有“?”的地方填入正确内容，然后删除“?”及所有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件夹和文件名。
选项
答案 (1)在Visual Basic中，菜单也被看做控件，具有属性和事件。菜单的建立在菜单编辑器中完成，菜单的级数通过内缩符号来表示，第一级菜单没有内缩符号，第二级菜单的内缩符号为1；文本框的内容由Text属性设置。根据题意，按“Ctrl+E”组合键打开菜单编辑器，在其中添加如下菜单项： [*] 单击“确定”按钮，完成菜单编辑。再将一个文本框控件添加到窗体中，将其名称设为Textl，在代码窗口中编写如下代码： Private Sub vbLanguagel_Click(Index As Integer)’C++选项 Textl．Text="指针" End Sub Private Sub vbLanguage2_Click(Index As Integer) ’Basic选项 Textl．Text="对话框" End Sub Private Sub vbLanguage3_Click(Index As Integer) ’JAVA选项 Textl．Text="对象" End Sub 单击[*]按钮运行程序，并按要求保存。 (2)在Visual Basic中，复选按钮的标题由Caption属性设置，Value属性用来表示复选框的状态，复选框的Value属性有0．1或2三种取值，0表示未选中；1表示选中该复选框；2表示该复选框被禁止(灰色)。 根据题意，将一个文本框控件和两个复选框添加到窗体中．文本框控件的名称设为Textl，复选框的名称分别设为Checkl和Check2，Caption属性分别设为“足球”和“篮球”。双击复选框进入代码窗口．补充后的具体代码如下： Private Sub Checkl Click() Form_Load End Sub Private Sub Check2 Click() Form_Load End Sub Private Sub Form Load() Dim str As String If Checkl．Value=1 Or Check2．Value=1 Then str="我的爱好是" If Checkl．Value=l Then str=str+Checkl．Caption End If If Check2．Value=1 Then If Checkl．Value=1 Then str=str+"和"+Check2．Caption Else str=str+Check2．Caption End If End If Else str="" End If Textl．Text=str End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/cc1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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