代码效率比较1

写了几行代码，不知道哪个更好，

欢迎指导，呵呵

 

    Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strCkb1 As String
        Dim strCkb2 As String
        strCkb1 = CInt(-ckb1.Checked).ToString
        strCkb2 = CInt(-ckb2.Checked).ToString
        Select Case strCkb1 & strCkb2
            Case "00"
                MsgBox("neither checked")
            Case "10"
                MsgBox("only checkbox1 checked")
            Case "01"
                MsgBox("only checkbox2 checked")
        End Select

    End Sub

    Private Sub Button2_Click()Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If ckb1.Checked And Not ckb2.Checked Then
            MsgBox("only checkbox1 checked")
        End If
        If Not ckb1.Checked And ckb2.Checked Then
            MsgBox("only checkbox2 checked")
        End If
        If Not ckb1.Checked And Not ckb2.Checked Then
            MsgBox("neither checked")
        End If
    End Sub

说白了也就是想在有两个条件的时候使用CASE

水平比较低，见笑了