2. 计算机
  3. (1)在窗体上建立一个名称为Labell的标签，然后建立两个主菜单，标题分别为“命令”和“帮助”，名称分别为vbCommand和vbHelp，其中“命令”菜单包括“Iteml”、“Item2”和“Item3”三个子菜单，名称分别为vbCommandl、vb

(1)在窗体上建立一个名称为Labell的标签，然后建立两个主菜单，标题分别为“命令”和“帮助”，名称分别为vbCommand和vbHelp，其中“命令”菜单包括“Iteml”、“Item2”和“Item3”三个子菜单，名称分别为vbCommandl、vb

admin2009-03-26  28
问题 (1)在窗体上建立一个名称为Labell的标签，然后建立两个主菜单，标题分别为“命令”和“帮助”，名称分别为vbCommand和vbHelp，其中“命令”菜单包括“Iteml”、“Item2”和“Item3”三个子菜单，名称分别为vbCommandl、vbCommand2和vbCommand3。要求程序运行后，如果在“命令”菜单中选择“Iternl”，则在标签上显示“第一项”；如果选择“Itern2”，则在标签上显示“第2项”；而“Item3”不可用，程序运行的效果如图52—3所示。   
    注意：保存时必须存放在考生文件夹下，窗体文件名为sj3．frm，工程文件名为si3．vbp。
    (2)在考生文件夹下有工程文件sj4．vbp，窗体文件sj4．fm，该程序是不完整的，请在有“?”的地方填人正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。修改后的工程及窗体文件，均以原名保存在考生文件夹下。
    本题描述如下：在窗体上有一个名为Textl的文本框，有两个命令按钮，名称分别是Commandl和Command2、标题分别是“读人数据”和“计算保存”，如图52—4所示。要求程序运行后，单击“读人数据”按钮，弹出对话框，输入10个整数，将所有输入的数字保存到数组a中，并在文本框内显示出来。随后“读人数据”按钮变为无效。单击“计算保存”按钮，求出以数组a中的各元素的值为上限的所有数的和，例如，a(2)=3，则令a(2)=1+2+3=6。把计算后的数组的总和写人考生文件夹下的文本文件out4．txt中，最后“计算保存”按钮也变为无效。

    注意：去掉程序中的注释符“’”，把程序中的“?”改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
选项
答案 (1)根据题意，新建“标准EXE”工程，Visual Basic中的菜单是通过菜单编辑器来设计的。每个菜单项对应一个名称(不能重复)和标题；通过菜单编辑器上的箭头可设计多重菜单；“有效”复选按钮用于设置该菜单项在程序运行时是否有效。 根据题意，选择“工具”→“菜单编辑器”命令打开菜单编辑器，添加以下菜单项： [*] 然后再添加一个Label控件，名称为Labell、Caption属性为空。设置完成后在代码窗口中编写如下代码： Private Sub vbCommandl_Click() ’选中Iteml Labell．Caption="第一项" End Sub Private Sub vbCommand2_Click() ’选中Item2 Labell．Caption="第二项" End Sub 单击[*]按钮运行程序，并按要求保存。 (2)根据题意，将两个Command控件添加到窗体上，Command的名称分别为Commandl和Command2，Caption属性分别为“读人数据”和“计算保存”。双击Command控件进入代码窗口，编写如下代码： Dim a(10)As Integer Private Sub Commandl Click() Dim i As Integer For i=1 To 10 ’利用For循环将10个数读入到数组中 a(i)=Val(InputBox("请输入")) Next i Commandl_Enablcd=False End Sub Private Sub Command2_Click() Dim i As Integer Dim j As Integer Dim total As Long Dim trap As Long total=0 For i=1 To 10 tmp=0 For j=1 To a(i) ’对每个数都进行一个求与前面数和的操作 tmp=tmp+j Next j total=total+tmp Next i Open”App．Path&＼out4．txt"For Output As#1’打开文件准备写入 Print#1，total’将结果写入文件 Close#1 End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/cV1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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