首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在窗体上绘制一个名称为Textl的文本框,然后建立两个主菜单,标题分别为“系别”和“帮助”,名称分别为vbMenu和vbHelp,其中“系别”菜单包括“工商管理”、“信息科学与工程”、“机械工程与自动化”3个子菜单,名称分别为vbMenul、vbMe
(1)在窗体上绘制一个名称为Textl的文本框,然后建立两个主菜单,标题分别为“系别”和“帮助”,名称分别为vbMenu和vbHelp,其中“系别”菜单包括“工商管理”、“信息科学与工程”、“机械工程与自动化”3个子菜单,名称分别为vbMenul、vbMe
admin
2012-10-09
25
问题
(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全国计算机二级
相关试题推荐
软件工程研究的内容主要包括:【】技术和软件工程管理。
阅读下面的程序段:Fora=1To2 Forb=1Toa ForC=bTo2 I=I+1 Next NextNextPrintI执行上面的三重循环后,I的值为
在窗体上画一个名称为、commonDidog1的通用对话框,一个名称为Command1的命令按钮。要求单击命令按钮时,打开一个保存文稿件的通用对话框。该窗口的标题为”Save",缺省文件名为”SaveFile",在“文件类型”栏中显示*.txt,则能够满足
在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Labet3的标签,然后编写如下代码:PrivatexASIntegerPrivateSubCommand1_Click(
在E盘当前目录文件夹下建立一个名为“Student.txt’’的顺序文件,要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。PrivateSubForm_Click( )【】
下列事件过程的功能是:建立一个名为Data1的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整。 PrivateTypeAng KAsInteger S
单击命令按钮时,下列程序的执行结果是 PrivateSubCommand1_Click() DimaAsInteger,bAsInteger,CAsInteger a=3 b=4 c=5 PrintSec
Print方法可以在对象上输出数据,这些对象包括
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。(1)在考生文件夹中有工程文件sjt3.vbp及其窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。
随机试题
背景:某小区共有40栋砖混住宅楼工程,属非地震区,分两期组织流水施工,每期20栋,屋面防水为两层3mm+3mmSBS卷材。先期施工的20栋楼建成后不久,发现在纵墙的两端出现斜裂缝,多数裂缝通过窗口的两个对角,裂缝向沉降较大的方向倾斜,
男性患者,32岁,半月前无诱因发热,体温逐渐上升,波动于37.5~39℃,近3d体温持续38.5~39.5℃,伴有食欲缺乏、乏力、腹胀及尿黄,查体:体温39.5℃,脉搏80/min,血压120/80mmHg,神清,表情淡漠,未见皮疹,巩膜轻度黄染,心肺
在下列临终关怀的提法中,正确的是()
某企业2001年1月15日租入全新的设备并交付使用,该设备的租赁期为5年,尚可使用年限为6年,租赁期满时企业将行使优惠购买选择权,同时转移设备的所有权。该设备的入账价值为3000000元,预计净残值为3000元。如果采用年限平均法对该设备计提折旧,则200
下列不属于金融风险可能造成的损失是()。
游客患重病时,导游应请求接待社派人照顾患者,并停止剩余的活动计划。()
()是一种由船舶所有人向租船人提供特定的租船,在特定的两港或数港之间从事一个特定的航次或几个航次承运特定货物的方式。
按新的办公模式要求,不需要与其他员工或客户有太多的接触,可安排在家完成工作内容的人员是()
所有甲都属于乙,有些甲属于丙,所有乙都属于丁,没有戊属于丁,有些戊属于丙。以下哪一项不能从上述论述中推出?()
Themediacanimpactcurrentevents.AsagraduatestudentatBerkeleyinthe1960s,Irememberexperiencingtheeventsrelatedt
最新回复
(
0
)