首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,该程序是不完整的。在窗体上建立一个列表框、一个组合框和两个命令按钮。程序运行后,在列表框中选择所需要的项目,单击“导出”按钮,把所选择的项目移到组合框中。如果单击“导人”按钮,则把组合框
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,该程序是不完整的。在窗体上建立一个列表框、一个组合框和两个命令按钮。程序运行后,在列表框中选择所需要的项目,单击“导出”按钮,把所选择的项目移到组合框中。如果单击“导人”按钮,则把组合框
admin
2010-07-13
52
问题
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,该程序是不完整的。在窗体上建立一个列表框、一个组合框和两个命令按钮。程序运行后,在列表框中选择所需要的项目,单击“导出”按钮,把所选择的项目移到组合框中。如果单击“导人”按钮,则把组合框中所选择的项目移到列表框中。程序运行时的窗体界面如图50—3所示。
注意:请在有“?”号的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“’”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
(2)在考生文件夹下有工程文件sj4.vbp及窗体文件sj4.frm,该程序是不完整的。本题在窗体Forml中有一个文本框,名称为Textl;另有一个命令按钮,名称为Commandl,标题为“判断”。要求该应用程序具有数据过滤功能,即检查用户在文本框中输入的数值是否在能被3整除。如果是,则退出程序;否则在文本框巾显示“不能被3整除”,同时使焦点重新回到文
本框中。程序运行时的窗体界面如图50—4所示。
注意:请在有“?”号的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“’”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
选项
答案
(1)列表框控件用于显示可供单一或多个选择的列表项。给列表框添加列表项既可以在设计阶段通过其List属性设置加入(注意每输入完一项后按“Ctrl+Enter”组合键换行再输人下一项),也可在程序运行时通过代码“列表框名.AddItem“巧目”加入”;MultiSelect用于设置是否可在列表项中做多个选择,值为0(缺省设置)表示不允许做多项选择,值为1表示允许做简单多项选择,值为2表示允许按住“Shift+Ctrl”键做多项选择;Selected(Index)属性用于设置或返回指定索引号的列表项选择状态(索引号从0开始),值为True表示被选中,值为False表示未被选中;List(Index)属性用于设置或返回指定索弓1号的列表项的内容;ListCount属性用来返回列表框中当前的列表项条数;RemoveItem方法用于删除指定索引号的列表项。 根据题意,将一个列表框控件、一个组合框ComboBox控件和两个命令按钮添加到窗体中,列表框的名称为Listl、Sorted属性为True,ComboBox的名称为Comb01,命令按钮的名称分别为Commandl和Command2,Caption属性分别为“号出”和“导入”。双击Commandl进入代码窗口,补充后的代码如下: Private Sub Commandl_Click() If Listl.
Listlndex
>-1 Then,’如果Listl有选中项 Comb01.AddItem Listl.List(Listl.ListIndex) ’将Listl中的选中项添加到Combol中 Listl.
RemoveItem
(Listl.Listlndex) ’将选中项从Listl中删除 End If End Sub Private Sub Command2_Click() If Comb01.
ListIndex
>-1 Then,’如果Combol有选中项则执行 Listl.Addhem Combo1.List(Comb01.Listlndex) ’将Comb01的选中项添加到List中 Comb01.
RemoveItem
Comb01.ListIndex’将选中项从Combol中删除 End If End Sub 单击[*]按钮运行程序,并按要求保存。 (2)本题主要考查考生对SetFocus方法和LostFocus事件的掌握。 当按键盘上“Tab”键或单击其他对象时,当前对象将失去焦点并触发LostFocus事件;SetFocus方法用于将焦点移到擗定的对象上。 题目要求文本框应具有数据过滤功能,即当在文本框中输入数据时,会自动完成对输入数据的检查,故要用SetFocus方法使文本框获取焦点。 根据题意,将一个命令按钮和一个文本框控件添加到窗体中,命令按钮的名称为Commandl、Caption属性为“判断”,文本框的名称为Textl、Text属性为空。双击Commandl,进入代码窗口,编写如下代码: Private Sub Commandl_Click() Dim a As Integer a=
Val(Textl.Text)
’读取Textl中读取的数 If a
Mod 3=0
Then Unload Me’当能被3整除时,关闭窗口 Else Textl.
Text
="不能被3整除" ’当不能被3整除时,在Textl中显示 Textl.SetFocus End If End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/RGmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
Java中,通过网络使用URL访问对象的功能流是( )。
按照“后进先出”原则组织数据的数据结构是( )。
Applet是能够嵌入到【】页面中,并能够在浏览器中运行的Java类。
在结构化程序设计中,模块划分的原则是( )。
调用以下哪些方法可以使运行状态的线程进入阻塞状态?( )
在结构化方法中,软件功能分解属于下列软件开发中的阶段是
在关系运算中,______运算是对两个具有公共属性的关系所进行的运算。
下列创建一个标识有“关闭”按钮的语句是______。
下面不属于软件工程3个要素的是______。
随机试题
十字沟槽式联轴器在装配时,允许两轴钱有少量的径向偏转和歪斜。()
(2011年4月)公务员的津贴分为______和______。
简述规避风险的手段。
DNA损伤修复所需的核酸内切酶缺乏,会造成
下列属于抗白三烯的药物是()。
甲冒充房主王某与乙签订商品房买卖合同,约定将王某的住房以220万元卖给乙,乙首付100万元给甲,待过户后再支付剩余的120万元。办理过户手续时,房管局工作人员识破甲的骗局并报警。根据司法解释,关于甲的刑事责任的认定,下列哪一选项是正确的?(2017/2/5
案例F集团公司拥有长距离轻质原油输运管道(简称Ⅱ号管道),公司下属的H分公司负责Ⅱ号管道日常巡检维护,公司下属的工分公司负责Ⅱ号管道现场抢险及其他应急处置。Ⅱ号管道位于G市的海港居民生活区(简称海港区)。2013年12月2日19时,Ⅱ号管道在
事业单位的下列各项业务,不会引起专用基金发生增减变化的是()。
旅行社强迫旅游者购物的,每次应向旅游者支付旅游费用总额()的违约金。
Inabout45years,temperaturesonEarthwillbehotterthanatanytimeduringthepastonemillionyears,saystheU.S.【B1】____
最新回复
(
0
)