Question

VB有三个复选框，任意选中两个后另一个不能选

如图所示，我想任意选中两个复选框后，另外一个复选框不能选，而且一开始三个text文件都是看不见的，只有点了对应的check才能显示对应的text文件，如果check不选，后面的text就看不见。http://zhidao.baidu.com/question/1818719681437749988.html?quesup2&oldq=1 之前问了个相似的问题，由于自己的疏忽，忘记进一步提问。

Answer 1

复选框和文本框都必须是控件数组：

Private Sub Check1_Click(Index As Integer)
Dim n As Integer
If Check1(Index).Value = vbChecked Then
  Text1(Index).Visible = True
Else
  Text1(Index).Visible = False
End If
For i = 0 To 2
If Check1(i).Value = vbChecked Then n = n + 1
Next
If n < 2 Then
  For i = 0 To 2
    If Check1(i).Enabled = False Then
      Check1(i).Enabled = True
    End If
  Next
ElseIf n = 2 Then
  For i = 0 To 2
    If Check1(i).Value = vbUnchecked Then
      Check1(i).Enabled = False
    End If
  Next
End If
End Sub