单选题
设窗体上有一个名称为List1的列表框和一个名称为Check1的复选框数组(下标从0开始)。程序运行时,单击某个复选框,如果列表框中没有该复选框的标题,则把该复选框的标题添加到列表框中,否则从列表框中把该复选框标题删除。 Private Sub Check1_Click(Index As Integer) For k=0 To Listl.ListCount-1 If Checkl(Index).Caption=List1.List(k)Then Exit For Next k If k