首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm。该程序的窗体是不完整的,要求设计好窗体,并编写相应的程序,完成题目的要求。窗体上已有3个命令按钮,名称分别为Commandl、Command2、Command3,标题分别为“修改”、“保
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm。该程序的窗体是不完整的,要求设计好窗体,并编写相应的程序,完成题目的要求。窗体上已有3个命令按钮,名称分别为Commandl、Command2、Command3,标题分别为“修改”、“保
admin
2009-03-26
63
问题
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm。该程序的窗体是不完整的,要求设计好窗体,并编写相应的程序,完成题目的要求。窗体上已有3个命令按钮,名称分别为Commandl、Command2、Command3,标题分别为“修改”、“保存”、“添加”;另有一文本框,名称为Text1。要求在窗体设计一组合框,名称为Combol,初始表项内容如下:“北京010”、“天津022”、“上海021”。
运行程序时,Combol文本框中内容为“中国直辖市”。单击“添加”按钮,则可以把文本框中的内容添加到组合框中;当选中组合框的表项时,单击“修改”按钮,文本框中显示选中的表项,同时“保存”按钮变为可用。修改完毕,单击“保存”,被选中项发生相应的变化,同时“保存”按钮变为不可用,如图69—3所示。
注意:保存时必须存放在考生文件夹下,窗体文件名为sj3.frm,工程文件名为sj3.vbp。
(2)在考生文件夹下有工程文件sj4.vbp及窗体文件sj4.frm,该程序是不完整的。窗体上有一个标签,名称为Labell。Labell上为提示文字和返回值。在窗体上画一个命令按钮,命名为Commandl,标题为“判断”。程序运行后,如果单击命令按钮,.则显示一个输入框,在该对话框中输入一个整数,并用这个整数作为实参调用函数过程Funcl,在Funcl中判断所输入的整数是否为偶数。如果是偶数,过程Funcl返回1,否则返回O,并在标签上显示出来。程序运行时的窗体界面如图69—4所示。
注意:请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“’”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
选项
答案
(1)根据题意,将一个ComboBox控件、一个文本框控件和三个命令按钮添加到窗体中,ComboBox的名称为Comb01,在其11,ist属性中添加“北京010”、“天津022”和“上海021”,文本框的名称为Textl、Text属性为空,命令按钮的名称分别为Commandl、Command2和Command3,Caption属性分别为“修改”、“保存”和“添加”。双击Commandl进入代码窗口,编写如下代码: Private Sub Commandl_Click() Textl.Text=Comb01.List(Comb01.ListIndex) ’将选中项显示在Textl中 Command2.Enabled=True’Command2可用 End Sub Private Sub Command2_Click() Dim a As Integer a=Combo1.Listlndex’记录Combol选中的索引值 Comb01.RemoveItem(Comb01.ListIndex) ’删除选中项 Comb01.Addhem(Textl.Text),a’将经过修改的项存人Comb01的原有位置 Comb01.Text=Comb01.List(a) ’将修改后的项显示在Comb01中 Command2.Enabled=False ’Command2不可用 End Sub Private Sub Command3_Click() Combo1.AddItem Textl.Text’向Comb01中添加项 E;nd Sub Private Sub Form_Load() Command2.Enabled=False’初始时Command2不可用 End Sub 单击[*]按钮运行程序,并按要求保存。 (2)根据题意,将一个标签和一个命令按钮添加到窗体中,标签的名称为Labell,命令按钮的名称为Commandl、Caption属性为“判断”。双击Commandl,进入代码窗口,编写如下代码: Private Sub Commandl_Click() Dim b As Integer b=Val(
InputBox
("请输入整数:")) ’通过对话框输入整数 Labell.
Caption
="返回值为"+CStr(Func(b)) ’将获得的返回值通过Label显示出来 End Sub Private Function Func(a As Integer)As Integer ’检测是否是偶数 If
a Mod 2=0
Then Func=1’如果是偶数则返回1 Else Func=
0
’如果不是则返回0 End If End Function 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/JV1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列模式中,能够给出数据库物理存储结构与物理存取方法的是()。
数据库设计有两种方法,它们是()。
结构化程序设计主要强调的是()。
数据的存储结构是指()。
在编写JavaApplication程序时,若需要使用到标准输入输出语句,则必须在程序的开头写上______语句。()
下面叙述正确的是()。
Java的图形界面技术经历了两个发展阶段,分别通过提供AWT开发包和【】开发包宋体现。
当一个Applet被下载到本地环境时,不发生的操作是
E-R模型可以转换成关系模型。当两个实体间联系是M:N联系时,它通常可转换成关系模式的个数是()。
用鼠标点击菜单项(Menultem)产生的事件是()。
随机试题
根据我国法律规定,美国人甲长期居住在华盛顿,于五年前到中国上海履行公务,并在两年前患病,两年中多次前往北京就医,并于一年前前往深圳进行康复疗养,请问甲的经常居住地是()
环境容纳量是指一定环境内最大种群数量。()
少尿型急性肾衰竭少尿期常见的并发症有______、______、______、______和______。
右心功能不全常见并发症不包括
患者,男,45岁。因一周来自汗多而就诊,现蒸蒸汗出,面赤烘热,口苦,烦躁易怒,小便黄,大便干。舌红苔黄,脉弦数。此辩证属()。
头孢菌素族药物的反应四环素类抗生素药物的特性
钢筋混凝土框架剪力墙结构在8度抗震设计中,剪力培的间距取值()。
期货交易所不得公布上市品种期货合约的( )。
2007年11月,甲公司向乙银行借款300万元。双方约定:借用期限为6个月,期限届满一次性偿还,并按照银行同期存款利率计算利息,如果借款人逾期不还,乙银行有权要求甲公司承担违约责任。同时,乙银行与丙公司签订担保合同,约定:丙公司为甲公司的借款提供连带保证责
—Letmetellyousomethingaboutmyjourney.—Don’tyouremember______meitthedaybeforeyesterday.
最新回复
(
0
)