2. 计算机
  3. (1)在窗体上绘制一个名称为Textl的文本框，然后建立两个主菜单，标题分别为“系别”和“帮助”，名称分别为vbMenu和vbHelp，其中“系别”菜单包括“工商管理”、“信息科学与工程”、“机械工程与自动化”3个子菜单，名称分别为vbMenul、vbMe

(1)在窗体上绘制一个名称为Textl的文本框，然后建立两个主菜单，标题分别为“系别”和“帮助”，名称分别为vbMenu和vbHelp，其中“系别”菜单包括“工商管理”、“信息科学与工程”、“机械工程与自动化”3个子菜单，名称分别为vbMenul、vbMe

admin2012-10-09  27
问题 (1)在窗体上绘制一个名称为Textl的文本框，然后建立两个主菜单，标题分别为“系别”和“帮助”，名称分别为vbMenu和vbHelp，其中“系别”菜单包括“工商管理”、“信息科学与工程”、“机械工程与自动化”3个子菜单，名称分别为vbMenul、vbMenu2、vbMenu3。要求程序运行后，如果在“系别”的下拉菜单中选择“工商管理”，则在文本框内显示“金融学、国际贸易学”；如果选择“信息科学与工程”，则在文本框内显示“系统工程、计算机应用技术”；如果选择“机械工程与自动化”，则在文本框内显示“机械工程、车辆电子工程”(要求：不能使用任何变量，直接显示字符串)。程序运行时，选择“工商管理”选项，程序运行窗体显示如图29—3所示。
    注意：保存时必须存放在考生文件夹下，窗体文件名为sj3．frm，工程文件名为sj3．Vbp。
    (2)在考生文件夹中有文件sj4．vbp及其窗体文件sj4．frm，该程序是不完整的。窗体上面有两个名称分别为Commandl和Command2、标题分别为“输入维数”和“计算”的命令按钮。程序运行后，如果单击“输人维数”命令按钮，则对数组a的维数进行赋值，初始化数组(通过等式a(i，j)=i*j计算)；如果单击“计算”命令按钮，则求出二维数组a(i，j)的各元素之和，并在文本框中显示出来。请设置相应的控件并编写程序实现该功能。程序运行效果如图29—4所示。

    注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件和文件名。考生完成程序编写后，将工程文件与窗体文件保存到考生文件夹下，文件名分别为sj4．vbp与sj4．frm。
选项
答案 (1)根据题意，新建“标准EXE”工程，单击窗体空白处，在弹出的快捷菜单中选择“菜单编辑器”命令，打开菜单编辑器，输入以下菜单项： [*] 编写如下代码： Private Sub vbMenul Click() Textl．Text="金融学、国际贸易学" End Sub Private Sub vbMenu2 Click() Textl．Text="系统工程、计算机应用技术" End Sub Private Sub vbMenu3 Click() Textl．Text="机械工程、车辆电子工程" End Sub 单击[*]按钮运行程序，并按要求保存。 (2)本题主要通过InputBox函数给变量a、b赋值，然后利用a(i，j)=i*j对数组进行初始化，即求出a(i，j)中各元素，最后再对各元素进行求和。补充后的代码如下： Dim a As Integer Dim b As Integer Private Sub Commandl Click() a=Val(InputBox("输入维数：")) ’利用输入对话框输入维数 b=Val(InputBox("输入维数：")) End Sub Private Sub Command2 Click() Dim total As Long total=0 Dim i As Integer Dim j As Integer For i=1 To a’利用双层循环遍历所有数组的数 For j=1 To b total=total+i*j ’求和 Next j Next i Textl．Text=total’将结果显示在Textl中 End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://jikaoti.com/ti/yDO0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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