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

admin2019-04-29  36

问题 设窗体上有一个名称为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
Next k
If k<List1.ListCount Then
   List1.Removeltem k
Else
  List1.Addltem
  End If
End Sub   
为使上面程序可以实现该功能,程序代码中横线上应该填入的代码是

选项 A、k
B、Checkl.Caption
C、Checkl(k)
D、Checkl(Index).Caption

答案D

解析 横线处应该填写要添加进列表框的项目内容,本题要求添加复选框的标题,由于复选框是一个控件数组,要想确定某一个具体的复选框需要使用控件数组的下标来访问到控件,然后取出标题属性添加进列表框中。
转载请注明原文地址:https://jikaoti.com/ti/8qN0FFFM
0

最新回复(0)