设窗体上有一个名称为List1的列表框和一个名称为Check1的复选框数组(下标从0开始)。程序运行时,单击某个复选框,如果列表框中没有该复选框的标题,则把该复选框的标题添加到列表框中,否则从列表框中把该复选框标题删除。 Private Sub Check

admin2019-03-14  28

问题 设窗体上有一个名称为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/6KFp777K
0

随机试题
最新回复(0)