首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设窗体上有一个名称为List1的列表框和一个名称为Check1的复选框数组(下标从0开始)。程序运行时,单击某个复选框,如果列表框中没有该复选框的标题,则把该复选框的标题添加到列表框中,否则从列表框中把该复选框标题删除。 Private Sub Check
设窗体上有一个名称为List1的列表框和一个名称为Check1的复选框数组(下标从0开始)。程序运行时,单击某个复选框,如果列表框中没有该复选框的标题,则把该复选框的标题添加到列表框中,否则从列表框中把该复选框标题删除。 Private Sub Check
admin
2018-12-20
27
问题
设窗体上有一个名称为List1的列表框和一个名称为Check1的复选框数组(下标从0开始)。程序运行时,单击某个复选框,如果列表框中没有该复选框的标题,则把该复选框的标题添加到列表框中,否则从列表框中把该复选框标题删除。
Private Sub Check1_Click(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.AddItem可以为列表框添加新项。需要添加的项要根据索引添加。选D)。
转载请注明原文地址:https://kaotiyun.com/show/TfFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有三个水平滚动条,名称分别为HSRed、HSGreen和HSBlue,取值范围均是0~255,代表颜色的三种基色。改变滚动框的位置,可以改变三种基色的值,从而改变窗体的背景色,如下图所示。程序代码如下:Dimcolor(3)AsIntege
现有如下一段程序:PrivateSubCommand1_Click() x=UCase(InputBox("输入:")) SelectCasex Case"A"To"C" Print"考核通过!"
设有如下程序:OptionBase1Dima(3,4)AsInteger,b(4,3)AsIntegerPrivateSubCommand1_Click() ’循环1 Fori=1To3 Forj=1To4
下面不能在信息框中输出"VB"的是( )。
在窗体上画1个命令按钮和1个文本框,其名称分别为Command1和Text1,再编写如下程序:DimssAsStringPrivateSubText1_KeyPress(KeyAsciiAsInteger) IfChr(KeyAsc
以下关于函数过程的叙述中,正确的是( )。
下列叙述中正确的是( )。
面向对象方法中,继承是指( )。
一个栈的初始状态为空。现将元素1,2,3,A,B,C依次入栈,然后再依次出栈,则元素出栈的顺序是
随机试题
按照通风、防尘安全要求,错误的施工措施是()。
模拟信号数字化过程不包括()
调配有配伍禁忌的处方,必须经
治疗热淋涩痛治疗热病伤阴心烦不眠,阴虚火旺骨蒸潮热
0.5,2,,8,()
一般资料:某女,55岁,病退,在儿子的劝说下前来咨询。案例介绍:35岁丧偶,性格刚强有主见,独自一人将儿子抚养成人。那时起养成喝酒的习惯,每天要喝2两白酒,否则就觉得不舒服,喝醉后心情不好时就会听到别人在窗外议论自己“孤儿寡母”,看到墙壁上有一些狰
修建性详细规划的编制方法包括()。
设有关键码序列(66,13,51,76,81,26,57,69,23),要按关键码值递增的次序排序,若采用快速排序法,并以第一个元素为划分的基准,那么第一趟划分后的结果为
FivePowerKeysforLeadershipSuccessManypeoplehopetobecomeasuccessfulleader.Infact,thereare5powerkeyswhich
TherearemanysuperstitionsinBritain,butoneofthemost【C1】______heldisthatitisunluckytowalkunderaladderevenif
最新回复
(
0
)