首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下的工程文件sjt4.vbp中有两个名称分别为List1、Lst2的列表框控件,两个名称分别为Command1、Command2,标题分别为“>>”、“<<”的命令按钮。请在List1中添加“文本框”、“标签”、“列表框”、“单选钮”等选项,如图
考生文件夹下的工程文件sjt4.vbp中有两个名称分别为List1、Lst2的列表框控件,两个名称分别为Command1、Command2,标题分别为“>>”、“<<”的命令按钮。请在List1中添加“文本框”、“标签”、“列表框”、“单选钮”等选项,如图
admin
2019-06-11
39
问题
考生文件夹下的工程文件sjt4.vbp中有两个名称分别为List1、Lst2的列表框控件,两个名称分别为Command1、Command2,标题分别为“>>”、“<<”的命令按钮。请在List1中添加“文本框”、“标签”、“列表框”、“单选钮”等选项,如图所示。程序的功能是:单击“>>”,将List1中的表项添加到List2中,同时将List1中选中的表项清空;单击“<<”,将List2中的表项添加到List1处中,同时将List2中选中的表项清空。程序已给出,但是不完整。请将程序中的注释符去掉,把?改为正确的内容,实现上述的功能。
注意:不能修改程序的其他部分和控件属性,最后将修改后的文件按原文件名进行存盘。
选项
答案
[操作步骤] 步骤1:打开本题工程文件,在List1中添加“文本框”、“标签”、“列表框”和“单选钮”等选项。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考代码(画下划线部分是需填入的内容) Private Sub remove(La As ListBox,Lb As ListBox) For i=0 To
La.ListCount
-1 Lb.AddItem
La
.List(i) Next
La
.clear End Sub Private Sub Command1 Click() Call remove(List1,List2) End Sub Private Sub Command2 Click() Call remove(List2,List1) End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/YRUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为了在形状控件中填充图案,应设置的属性是()。
在VisualBasic中,所谓“文件”指的是()。
定时器的Interval属性的值是一个整数,它表示的是()。
针对VisualBasic的菜单设计操作,下面叙述中错误的是()。
假定有以下通用过程:FunctionFun(nAsInteger)AsIntegerx=n*nFun=x一11EndFunotion在窗体上画一个命令按钮,其名称为Command1,然后编写如下事
某人设计了一个窗体用于登录注册信息,上面有若干控件,其中接收注册时间输入的文本框名称为Text1。他希望,当要输入注册时间时能自动填写当前时间,于是编写了一行代码:Text1.Text=Date请问,这行代码应该放入()事件的事件过程中才能达到目的
数据字典(DD)所定义的对象都包含于
下列关于数据库设计的叙述中,正确的是
随机试题
简述人际关系的作用。
高层建筑内设避消防水泵房,以下要求哪条有错?
必须逐日结出余额的账簿是()。
可以用于税负和财务杠杆不同的同行业的业绩较的投资报酬率是()。
桂林三花酒是中国米香型白酒的代表,被誉为米酒之王。()
在某福利院中,服务对象偷偷告诉社会工作者,他亲眼目睹了一个男孩打骂欺负一个女孩,而打骂者也清楚只有该服务对象知道此事,并威胁他不准告发。服务对象特别嘱咐社会工作者不能向外人透露此事。以上所述案例反映了社会工作伦理难题中的()
选择解决问题的策略、方法和步骤是()的核心内容。
有人说:布尔什维主义和布尔什维克党的产生,标志着与西欧社会民主党根本不同的新型的马克思主义政党的出现,这种“新型”主要是指()。
TheFirstFourMinutesWhendopeopledecidewhetherornottheywanttobecomefriends?Duringtheirfirstfourminutestogethe
Theonlyproblemwiththedebatelastweekwasthatthebeginningsoundedmorelikeapersonalattackthanadispassionate,inte
最新回复
(
0
)