首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设窗体上有一个名称为List1的列表框和一个名称为Check1的复选框数组(下标从0开始)。程序运行时,单击某个复选框,如果列表框中没有该复选框的标题,则把该复选框的标题添加到列表框中,否则从列表框中把该复选框标题删除。 Private Sub C
设窗体上有一个名称为List1的列表框和一个名称为Check1的复选框数组(下标从0开始)。程序运行时,单击某个复选框,如果列表框中没有该复选框的标题,则把该复选框的标题添加到列表框中,否则从列表框中把该复选框标题删除。 Private Sub C
admin
2020-04-18
42
问题
设窗体上有一个名称为List1的列表框和一个名称为Check1的复选框数组(下标从0开始)。程序运行时,单击某个复选框,如果列表框中没有该复选框的标题,则把该复选框的标题添加到列表框中,否则从列表框中把该复选框标题删除。
Private Sub Check1_Chck(Index As Integer)
For k=0 To List1.ListCount-1
If Check1(Index).Caption=List1.List(k)Then
Exit For
End If
Next k
If k<List1.ListCount Then
List1.RemoveItem k
Else
List1.AddItem_______
End If
End Sub
为使上面程序可以实现该功能,程序代码中横线上应该填入的代码是( )。
选项
A、k
B、Check1.Caption
C、Check1(k)
D、Check1(Index).Caption
答案
D
解析
题干给出的是没有该复选框的标题时,把该复选框的标题添加到列表框中。List1.Addhem可以为列表框添加新项,但需要添加的新项要根据索引添加。故选D。
转载请注明原文地址:https://kaotiyun.com/show/yyTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下通用过程:PublicFunctionFun(xStrAsString)AsString DimtStrAsString,strLAsInteger tStr="" strL=Len(xStr) i=strL
在程序运行时,下面的叙述中正确的是()。
表达式Int(8*Sqr(36)*10^(-2)*10+0.5)/10的值是()。
在软件开发中,需求分析阶段产生的主要文档是( )。
(1)考牛文件夹下的工程文件sit3.vbp中有一个菜单、两个标签和两个文本框。程序运行时,用鼠标右键单击窗体会弹出一个弹出式菜单(如图3.160所示)。当选巾“计算100以内自然数之和”菜单项时,将计算100以内自然数之和并放入Text1中;当选中“计算
有如下函数过程:Functionfl(xAsInteger)AsLongDimsAsLong,iAsIntegers=0Fori=1Toxs=s+iNextif1
计算下面分段函数的正确语句是( )。
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有一个标题为“得分”的框架,在框架中有一个名称为Text1的文本框数组,含六个元素;文本框Text2用来输入难度系数。程序运行时,在左边的六个文本框中输入6个得分,输入难度系数后,单击“计算分数”按
下列关于控件焦点的叙述中正确的是()。
表达式Sgn(15.6)+Int(-16.8)的值是
随机试题
发现学习一定是有意义学习。
荧光探伤是用来发现焊接接头的()缺陷的。
在现阶段,()是调节我国社会关系的主要道德类型,是对全体公民的共同要求。
普通螺栓只有作为永久性连接螺栓时才需要进行螺栓实物最小拉力载荷试验。()
下列所得中免纳个人所得税的是()。
某普通合伙企业委托合伙人杨某执行合伙事务。根据合伙企业法律制度的规定,下列表述中,正确的是()。
2015年全国共建立社会捐助工作站、点和慈善超市3.0万个,比上一年减少0.2万个,其中:慈善超市9654个,同比下降5.1%。全年共接收社会捐赠款654.5亿元,其中:民政部门接收社会各界捐款44.2亿元,各类社会组织接收捐款610.3亿元。全年民政部门
从计算机系统发展角度来看,操作系统的主要作用是提供()。
Electricityplaysanessentialpartinourlife.Noonecandenythatelectriclightisnecessaryforpeople’slife.However,ca
Mostpeoplehavenoideaofthehardworkandworrythatgoesintothecollectingofthosefascinatingbirdsandanimalsthatth
最新回复
(
0
)