首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有名称为Commandl的命令按钮,名称分别为List1、List2的列表框,其中List1的 MultiSelect属性设置为1(Simple),并有如下事件过程: Private Sub Command 1_Click()
窗体上有名称为Commandl的命令按钮,名称分别为List1、List2的列表框,其中List1的 MultiSelect属性设置为1(Simple),并有如下事件过程: Private Sub Command 1_Click()
admin
2020-04-18
32
问题
窗体上有名称为Commandl的命令按钮,名称分别为List1、List2的列表框,其中List1的 MultiSelect属性设置为1(Simple),并有如下事件过程:
Private Sub Command 1_Click()
For i=0 To List1.ListCount-1
If List 1.Selected(i)=True Then
List2.Addltem Text
End If
Next
End Sub
上述事件过程的功能是将List1中被选中的列表项添加到List2中。运行程序时,发现不能 达到预期目的,应做修改,下列修改中正确的是
选项
A、将For循环的终值改为List1.ListCount
B、将List1.Selected(i)=True改为List1.List(i).Selected=True
C、将List2.Addltem Text改为List2.Addltem List 1.List(i)
D、将List2.Addltem Text改为List2.Addltem List1.Listlndex
答案
C
解析
列表框的List属性是一个字符串数组,数组的一项就是一个列表项目,可以通过下标访问数组中的值。本题中试图向List2中添加Listl中的列表项,所以应该是List2.AddltemListl.List(i),列表框的Text属性可返回列表框中当前选中项目的内容,但不能加入一个没有指明对象的Text属性。
转载请注明原文地址:https://kaotiyun.com/show/OqTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体的MouseUp事件过程如下:PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle) ……EndSub关于以上定义,以下
某人编写了下面的程序:PrivateSubCommand1_Click() DimaAsInteger,bAsInteger a=InputBox("请输入整数") b=InputBox("请输入整数") pr
编写如下程序:PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=1:y=1Doy=x*yIfy>10The
设有下面的语句:PrintIIf(x>0,1,IIf(x
以下描述中,不是线性表顺序存储结构特征的是()。
下面是求最大公约数的函数的首部()。Functionfun(ByValxAsInteger,ByValyAsInteger)AsInteger若要输出8、12、16这3个数的最大公约数,下面正确的语句是
某人编写了下面的程序,希望能把Text1文本框中的内容写到Temp.txt文件中PrivateSubCommand1_Click()Open"Temp.txt"ForOutputAs#2Print"Text1"
下列可以打开随机文件的语句是
设程序中有如下数组定义和过程调用语句:Dima(10)AsIntegerCallp(a)如下过程定义中,正确的是
随机试题
对于非细菌感染性腹泻可选用
关于卵泡囊肿的叙述,不正确的是
关于滴虫性阴道炎,错误的是
窗台低于( )时,应采取防护措施。
赵某2007年9月参加全国一级建造师资格考试,且成绩合格,下面说法中正确的是()。
某房地产开发有限公司2008至2009年间3次迟报房地产开发投资基层统计报表。2009年8月,市统计局依法对该公司作出统计行政处罚。该公司不服,提起了行政复议和行政诉讼。经审理,受理行政复议和行政诉讼的机关均维持了市统计局作出的行政处罚决定。根据
ANewStudySaysYourStressCanSpreadtoYourDogResearchshowsthatmostdogownersfindtheirpetstobegreatstr
A、 B、 C、 D、 D
Readthisfollowingnewsaboutpersonalbranding.ChoosethebestwordorphrasetofilleachgapfromA,B,CorDontheoppos
Astimegoeson,however,weshallhavetouseourbrainsmoreandmore,andeventuallyweshallneedlargerones.
最新回复
(
0
)