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

admin2020-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
0

最新回复(0)