首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有名称为Command1的命令按钮,名称分别为List1、List2的列表框,其中List1的MultiSelect属性设置为1(Simple),并有如下事件过程: Private Sub Command1_Click() For i=0 To
窗体上有名称为Command1的命令按钮,名称分别为List1、List2的列表框,其中List1的MultiSelect属性设置为1(Simple),并有如下事件过程: Private Sub Command1_Click() For i=0 To
admin
2015-08-28
24
问题
窗体上有名称为Command1的命令按钮,名称分别为List1、List2的列表框,其中List1的MultiSelect属性设置为1(Simple),并有如下事件过程:
Private Sub Command1_Click()
For i=0 To List1.ListCount-1
If List1.Selected(i)=True Then
List2.AddItem Text
End If
Next
End Sub
上述事件过程的功能是将List1中被选中的列表项添加到List2中。运行程序时,发现不能达到预期目的,应做修改,下列修改中正确的是( )。
选项
A、将For循环的终值改为List1.ListCount
B、将List1.Selected(i)=True 改为List1.List(i).Selected=True
C、将List2.AddItem Text 改为List2.AddItem List1.List(i)
D、将List2.AddItem Text 改为List2.AddItem List1.ListIndex
答案
C
解析
题目程序不能将List1中的选中项添加到List2中,List2.AddItem Text一行有误,应该改为List2.AddItem List1.List(i)才能使List1中每个选中的行添加到List2中。列表框控件的List属性保存了列表框中所有值的数组,可以通过下标访问数组中的值。
转载请注明原文地址:https://kaotiyun.com/show/ZOQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序运行后在立即窗口输出结果是()。PrivateSubForm_Click()x="a":y="b"z=1:u=2Debug.Printx;y,z;u
在窗体上画一个命令按钮,然后编写如下事件过程:OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4)j=1Fori=4To1Step-1s=s+a(i)*j
菜单编辑器可分为3个部分,即数据区、【】和菜单项显示区。
VisualBASIC应用程序通常由3类模块组成,即窗体模块、【】和类模块。
测试的目的是暴露错误,评价程序的可靠性;而【】的目的是发现错误的位置并改正错误。
下列程序段的执行结果为______。A="abcd"B="bcde"E=Right(A,3)F=Mid(B,2,3)IfE<FThenPrintE+FElsePrintF+E
设有语句Open"c:\Test.Dat"ForOutputAs#1则以下错误的叙述是______。
表达式Abs(-5)+Len("ABCDE")的值是______。
下列关于多重窗体程序的叙述中,错误的是()。
在VisualBasic6.0中,InputBox函数用于产生一个______对话框。
随机试题
传统上使用最多的非关税壁垒是_______、_______。
具有疏散风热,透疹利咽功效的药物
王家有三兄弟甲、乙、丙,丙幼年时送给胡某作养子。丙结婚时,胡某为其盖了新房,后因失火致使该屋被烧毁。丙的生母就将自己的住房腾出1间来,让丙夫妇及胡某永久居住。不久丙的生母病故。甲与乙要收回房子,丙认为自己有权继承母亲遗产,拒不搬出。依照法律规定,死者的遗产
某法院接到报案电话,张某称自己的人身安全正受到威胁,则人民法院应当如何处理?()
在国际上民用建筑项目工程总承包的招标多数采用( )的方式。
甲企业向乙企业发出电子邮件订货,该电子邮件列明了货物的种类、数量、质量、供货时问、交货方式等,并要求乙在l0日内报价。乙接受甲发出电子邮件列明的条件并按期报价,亦要求甲在l0日内回复;甲按期复电同意其价格,并要求签订书面合同。乙在未签订书面合同的情况下按甲
编制利润表的主要依据是()。
藏传佛教格鲁派的创立者是()。
下列行为中,不属于具体行政行为的是()。
Itwasverykind______helpmewhenIwasinneed.
最新回复
(
0
)