Question

VB中如何把选中的CheckBox的Caption添加到一个数组里去？

一个CheckBox控件组，一个二维动态数组myAy()，要把已选中的CheckBox的index和Caption(为数字)分别添加到myAy()去，具体要怎么实现？
比如
Check1(1).Caption=12
Check1(2).Caption=19
Check1(3).Caption=14

选中了Check1(1)和Check1(3)

要得到这样一个数组：
1 12
3 14

请高手帮忙，最好能提供具体的源代码，谢谢~~~~

Answer 1

Private Sub Form_DblClick() 

Dim myAy(1 To 5, 1 To 2) As Integer 

Dim i As CheckBox 

Dim j As Integer 

j = 1 

For Each i In Check1 

If i.Value = 1 Then 

myAy(j, 1) = i.Index 

myAy(j, 2) = i.Caption 

Print myAy(j, 1) & "," & myAy(j, 2) 

j = j + 1 

End If 

Next 

End Sub 

效果图：

Answer 2

cnt=0
for i=0 to check1.count-1
if check1(i) then
myay(cnt)(0)=i
myay(cnt(1)=check1(i).caption
cnt=cnt+1
end if
next i