首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下的工程文件sjt4.vbp中有两个名称分别为List1、Lst2的列表框控件,两个名称分别为Command1、Command2,标题分别为“>>”、“<<”的命令按钮。请在List1中添加“文本框”、“标签”、“列表框”、“单选钮”等选项,如图
考生文件夹下的工程文件sjt4.vbp中有两个名称分别为List1、Lst2的列表框控件,两个名称分别为Command1、Command2,标题分别为“>>”、“<<”的命令按钮。请在List1中添加“文本框”、“标签”、“列表框”、“单选钮”等选项,如图
admin
2019-06-11
59
问题
考生文件夹下的工程文件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://www.kaotiyun.com/show/YRUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
利用属性窗口为窗体的下面4个属性设置了值,其中错误的设置是()。
设有以下程序:PrivateSubForm_Click()x=50Fori=1To4y=InputBox("请输入一个整数")y=Val(y)IfyMod5=0Then
为了通过传值方式来传送过程参数,在函数声明部分应使用的关键字为()。
设窗体上有1个名称为Command1的命令按钮,并编写了下面的事件过程:PrivateSubConmmadl_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSing
下列叙述中正确的是()。
如果需要线控件在窗体上成为一条与水平线呈45°的斜线,它的属性值应满足的条件是()。
在商场购物中,实体顾客和实体商品之间的联系是()。
数据字典(DD)所定义的对象都包含于
下面对对象概念描述正确的是
随机试题
_______只用一套额外的机构来改变凸轮轴相角,对原机改动较小,便于采用,应用较广泛。
阅读闻一多《发现》一诗,然后回答下列小题。我来了,我喊一声,进着血泪,“这不是我的中华,不对,不对!”我来了,因为我听见你叫我;鞭着时间的罡风,擎一把火,我来了,不知道是一场空喜。我会见的是噩梦,哪里是你?那是恐怖、是噩梦挂着悬崖,那不是你
A.Lindner试验B.Yount征C.Dugas征D.PivotShifttestE.Gaenslen征髋关节的检查
多发性骨髓瘤容易引起感染是由于
在我国用于烧伤成人的能量消耗计算方法是()。
男婴,8个月。腹泻3天,大便10余次/日,蛋花汤样伴少量黏液,呕吐,4~5次/日。嗜睡,口于,尿量少。体检:精神萎靡,皮肤干燥、弹性较差,眼窝及前囟明显凹陷,哭时泪少。血钠132mmol/L,血钾4mmol/L,该患儿诊断为婴儿腹泻合并(
用重型击实法求得的路堤填料最大干密度为2.20g/cm3,要求压实度为96%,下面为各测点的工地干密度,压实合格的测点有( )。
以下不属于起重伤害的选项是()。
发行股息率可调整优先股票是为了适应()。
Internet上有许多应用,其中主要用来浏览网页信息的是()。
最新回复
(
0
)