VB Check控件4选2问题

来源：百度知道 编辑：UC知道 时间：2024/05/31 14:39:51
类似于选择题里的多项选择,但只能4个里面选2个!在VB6里是默认全部可以选的,我做了个限制要求只能4选2,比如你先选A再选D的最后在选C后就变AC了,不知道怎么写代码各位知道的帮帮忙

'Check1控件数组
Private Sub Check1_Click(Index As Integer)
Dim i As Integer, j As Integer
For i = 0 To 3
j = j + Check1(i).Value
Next i
If j > 2 Then
j = 2
For i = 3 To 1 Step -1
If i <> Index And Check1(i).Value Then
j = j - 1 '避免第三下选得是第一项，结果只有第一项被选择
If j > 0 Then Check1(i).Value = 0
End If
Next i
End If
End Sub

只要 每次点都遍历