check和label的关联问题

Question

我有10个check1(0)~check1(9),10个lable1(0)~label1(9).想如果选择check1(7)的话，lable1(0)显示check1(7).capation,如果在按下check1(7)的话，lable1(0)无显示。如果接着按下check1(1)的话，lable1(1)显示check1(1).capation.如果在按下check1(7)的话，lable1(0)则显示check1(1).capation.

Answer 1

请你列个表格，共两列，左边一列是check，右边一列是lable用这个表格让大家知道 你是想怎样让这两组控件 对应？

Answer 2

CHECK1(0)  LABLE1(0)
CHECK1(1)  LABLE1(1)
CHECK1(2)  LABLE1(2)
CHECK1(3)  LABLE1(3)
CHECK1(4)  LABLE1(4)
CHECK1(5)  LABLE1(5)
CHECK1(6)  LABLE1(6)
CHECK1(7)  LABLE1(7)
CHECK1(8)  LABLE1(8)
CHECK1(9)  LABLE1(9)
我想按任一个check,比如CHECK1(6) 则LABLE1(0)显示CHECK1(6)；再按CHECK1(1)则LABLE1(1)显示CHECK1(1)；再按CHECK1(8)则LABLE1(2)显示CHECK1(8)；依次类推。如果中间取消了CHECK1(1)则LABLE1(1)显示由CHECK1(1)变为CHECK1(8)；并且LABLE1(2)显示为空

Answer 3

Private Flag(10) as IntegerForm_Load()    For i = 0 To 10
        Flag(i) = -1
    Next iEnd SubPrivate Check1_Click(Index As Integer)    If Check1(Index).Value = vbChecked Then ' 选中
    
        For i = 0 To 9
            If Flag(i) = -1 Then
                Label1(i).Caption = Check(Index).Caption
Flag(i) = Index
                Exit Sub
    End If
        Next i    Else ' 取消        For i = 0 To 9
            If Flag(i) = Index Then                For j = i To 9
                    If j = 9 Then
                        Label1(j).Caption = ""
                    Else
                        Label1(j).Caption = Label1(j+1).Caption
                        ' 或者 Label1(j).Caption = Check1( Flag(j+1) ).Caption
                    End If
                    Flag(j) = Flag(j+1)
                
                Next j
                Exit Sub
    End If
        Next i    End IfEnd Sub

Answer 4

你能在你这个列表里把你文字表达的关系对应上么？比如像下面这样：
CHECK1(0)  LABLE1(?) 
CHECK1(1)  LABLE1(1) 
CHECK1(2)  LABLE1(?)
CHECK1(3)  LABLE1(?)
CHECK1(4)  LABLE1(?)
CHECK1(5)  LABLE1(?)
CHECK1(6)  LABLE1(0) 
CHECK1(7)  LABLE1(?)
CHECK1(8)  LABLE1(2) 
CHECK1(9)  LABLE1(?)