VB中使復(fù)選框?qū)崿F(xiàn)單選框功能

下面考試大給大家貼出VB中使復(fù)選框?qū)崿F(xiàn)單選框功能代碼！
    Dim lastIndex%, bCheck As Boolean
    Private Sub chkHonbu_Click(Index As Integer)
    If bCheck3 Then Exit Sub Else bCheck3 = True
    If lastIndex3 <> Index Then
    chkHonbu(lastIndex3).Value = 0
    lastIndex3 = Index
    Else
    chkHonbu(Index).Value = 1
    End If
    bCheck3 = False
    End Sub
    方法2
    Private Sub Check1_Click()
    If Check1.Value Then Check2.Value = 0
    If Check1.Value = 0 And Check2.Value = 0 Then Check1.Value = 1
    End Sub
    Private Sub Check2_Click()
    If Check2.Value Then Check1.Value = 0
    If Check1.Value = 0 And Check2.Value = 0 Then Check2.Value = 1
    End Sub方法3(的方法)
    Private i As Integer
    Private Sub Check1_Click()
    i = i + 1
    If i = 1 Then
    Check2.Value = (Not Check2.Value) And 1
    i = 0
    End If
    End Sub
    Private Sub Check2_Click()
    i = i + 1
    If i = 1 Then
    Check1.Value = (Not Check1.Value) And 1
    i = 0
    End If
    End Sub