关于Check1（）组的问题

Question

现在有控件组Check1（0）-Check1（11）每一个caption的标题都不一样如
Check1（0）的是" 初一”
Check1（1）的是“绘画“
Check1（2）得是“书法“。。
。。
。。
还有控件组Option1（0）-Option1（2）每一个caption的标题也都不一样
Option1（0）的是“1“
Option1（1）的是“2“
Option1（2）的是“3“
现在点击Command2要在List1中显示Check1（0）-Check1（11）当中被选的复选控的caption，和Option1（0）-Option1（2）当中被选的单选框的caption，中间用“，”分隔
如我选择了
Check1（1）
Check1（2）
和Option1（2）
那么点击Command2，在List1显示格式为  “绘画，书法，3”，
如果只选择了Option1，没有选择Check1那么MsgBox弹出“请选择复选条件”
该怎么写

Answer 1

Private Sub Command1_Click()
    Dim i As Integer
    Dim strTemp As String
    
    For i = 0 To 2
        If Check1(i) Then
            strTemp = strTemp & Check1(i).Caption & ","
        End If
    Next i
    
    If Len(strTemp) = 0 Then
        MsgBox "请选择复选条件"
        Exit Sub
    End If
    
    For i = 0 To 2
        If Option1(i).Value = True Then
            strTemp = strTemp & Option1(i).Caption
        End If
    Next i
    
    List1.AddItem strTemp
End Sub

Answer 2

Private Sub Command1_Click()
    Dim i As Integer
    Dim strTemp As String
    
    For i = 0 To 11
        If Check1(i) Then
            strTemp = strTemp & Check1(i).Caption & ","
        End If
    Next i
    
    If Len(strTemp) = 0 Then
        MsgBox "请选择复选条件"
        Exit Sub
    End If
    
    For i = 0 To 2
        If Option1(i).Value = True Then
            strTemp = strTemp & Option1(i).Caption
        End If
    Next i
    
    List1.AddItem strTemp
End Sub

Answer 3

Private Sub Command1_Click()
    Dim i As Integer
    Dim strTemp As String
    
    For i = 0 To Check1.UBound
        If Check1(i) Then
            strTemp = strTemp & Check1(i).Caption & ","
        End If
    Next i
    
    If Len(strTemp) = 0 Then
        MsgBox "请选择复选条件"
        Exit Sub
    End If
    
    For i = 0 To Option1.UBound
        If Option1(i).Value = True Then
            strTemp = strTemp & Option1(i).Caption
        End If
    Next i
    
    List1.AddItem strTemp
End Sub