首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm。该程序的窗体是不完整的,要求设计好窗体,并编写相应的程序,完成题目的要求。窗体上已有3个命令按钮,名称分别为Commandl、Command2、Command3,标题分别为“修改”、“保
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm。该程序的窗体是不完整的,要求设计好窗体,并编写相应的程序,完成题目的要求。窗体上已有3个命令按钮,名称分别为Commandl、Command2、Command3,标题分别为“修改”、“保
admin
2009-03-26
26
问题
(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全国计算机二级
相关试题推荐
利用E-R模型进行数据库的概念设计,可以分成3步:首先设计局部E-R模型,然后把各个局部E-R模型综合成一个全局的模型,最后对全局E-R模型进行()。
在面向对象方法中,类之间共享属性和操作的机制称为【】。
下列选项中,不属于JDK文件子文件夹的是()。
请在下面代码中加入监听器语句【】。importjava.awt.*;importjava.applet.Applet;publicclassSimpleextendsAppletimplementsMouseLi
Java语言支持【】协议,从而使得Java程序在分布式环境中能够很方便地访问处于不同地点的对象。
在下面的代码段中填入一个适当的语句,表示从输入流中能读取对象(注:FileInputStream的形象为theTime)。FileInputStreamin=【】;ObjectInputStreams=ObjectInput
在软件生存周期中,能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是
强行排错法涉及的调试技术主要是【】和监视表达式。
在事件处理过程中,涉及的3类对象是事件、事件源和【】。
E-R模型可以转换成关系模型。当两个实体间联系是M:N联系时,它通常可转换成关系模式的个数是()。
随机试题
根据下列材料回答问题。经过50多年的发展,我国台湾地区资本市场建立起由“证券交易所集中市场一上柜市场—兴柜市场”构成的完善成熟的多层次资本市场体系。近年由于金融海啸、欧债危机等因素影响,台湾多层次资本市场总体成交值从2010至2012年连续3年下降,20
早期的电影多是全景式的“纪录视角”,这是由于摄影机无法移动,只能________传统戏剧我演你看的观演关系。随着各种摄影新技术和剪辑新手法的出现,电影依靠独特的镜头语言,逐渐脱离戏剧的束缚,________。完全依据戏剧思维,使用单一固定的场景所打造的电影
甲状腺危象的治疗,首选药物是
正常阴道分泌物为
2004年底,华夏基金管理公司推出国内首只上市开放式基金——华夏上证50ETF。()
下列不属于商业银行流动性的基本要素的是()
关于国有土地上房屋征收的说法,错误的有()。
管理会计应用主体必须是单位内部的责任中心。()
这是一个发生在春天的故事,一个房间苏醒了。两扇窗扉,被一缕朝阳打开,眉目便____________________起来。风在窗外徐徐地吹,几只麻雀跳在枝尖——不,是跳在一封远方寄来的情书中,跳成一个逗号,一个句号,或者一串_________________
Islamiclawisaparticularlyinstructiveexampleof"sacredlaw".Islamiclawisaphenomenonsodifferentfromallotherforms
最新回复
(
0
)