(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所示。
【正确答案】正确答案： (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 单击
编写如下代码： 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 单击
【答案解析】