首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm。该程序的窗体是不完整的,要求设计好窗体,并编写相应的程序,完成题目的要求。窗体上已有3个命令按钮,名称分别为Commandl、Command2、Command3,标题分别为“修改”、“保
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm。该程序的窗体是不完整的,要求设计好窗体,并编写相应的程序,完成题目的要求。窗体上已有3个命令按钮,名称分别为Commandl、Command2、Command3,标题分别为“修改”、“保
admin
2009-03-26
61
问题
(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全国计算机二级
相关试题推荐
下面的哪些程序段可能导致错误?()Ⅰ:Strings="Gonewiththewind";Stringt="good";Stringk=s+t;Ⅱ:Strings
在一个类的内部嵌套定义的类称为【】。
下列安全控制命令中,属于现实证书缓存区和密钥表项命令的是()。
结构化程序设计主要强调的是()。
线程在生命周期中要经历5种状态,分别是新建状态、可运行状态、运行状态、【】状态和终止状态。
关系数据库管理系统能实现的专门关系运算包括选择、连接和【】。
在AWT组件中,【】类可以实现带标题和边界的窗口,通常用于接收用户附加信息或发布通知,它是Window类的子类。
Applet可以做下列哪些操作______。
Applet的运行过程要经历4个步骤,其中不是运行步骤的是()。
为使Java程序独立于平台,Java虚拟机把字节码与各个操作系统及硬件():
随机试题
妊娠20周时对妊娠高血压综合征的发生进行预测性诊断,最有预测价值的方法是:
慢性肾盂肾炎治疗原则哪项是错误的
A.指胎头双顶径接近或达到坐骨棘水平,胎头进行一系列适应性下降B.指胎头双项径进入骨盆入口平面,胎头颅骨最低点接近或达到坐骨棘水平C.指胎头娩出后,胎头枕部向左旋转45°,使胎头与胎肩成正常关系D.指胎肩右肩向母体方向旋转45°,使胎肩径与出口前后径
一例无主女尸,剖检发现死者两肾体积缩小,重量减轻各为100g,质地硬,皮质变薄,表面呈颗粒状,肾切片观察,均有细动脉透明变性,肾小球纤维化等改变。此患者生前可能患的疾病是
根据《药品不良反应报告和监测管理办法》,属于药品严重不良反应情形的有
同时需输多品种的血液时,应首先输入()。
简述创造性及其特征。
十四大报告指出:“在所有制结构上,以公有制包括全民所有制和集中所有制为主体,个体经济、私营经济、外资经济为补充,多种经济成分长期共同发展。”十五大报告指出:“非公制经济是社会主义市场经济的重要组成部分。”十六大报告指出:“必须毫不动摇地鼓励、支持和引导非公
“太极图”是中华文化的瑰宝,它是由黑白两个鱼形纹组成的圆形图案,俗称“阴阳图”,该图看似简单,却包含着丰富的哲学意蕴。其内涵主要有()
Don’tWasteOurOceans[A]Fortoolong,marinelifehasbeenlargelyopenforthetakingbyanyonepossessingthemeanstoexplo
最新回复
(
0
)