代码效率比较1

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

欢迎指导，呵呵

Private SubButton1_Click() SubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimstrCkb1AsString
DimstrCkb2AsString
strCkb1=CInt(-ckb1.Checked).ToString
strCkb2=CInt(-ckb2.Checked).ToString
SelectCasestrCkb1&strCkb2
Case"00"
MsgBox("neitherchecked")
Case"10"
MsgBox("onlycheckbox1checked")
Case"01"
MsgBox("onlycheckbox2checked")
EndSelect

EndSub

Private SubButton2_Click() SubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
Ifckb1.CheckedAndNotckb2.CheckedThen
MsgBox("onlycheckbox1checked")
EndIf
IfNotckb1.CheckedAndckb2.CheckedThen
MsgBox("onlycheckbox2checked")
EndIf
IfNotckb1.CheckedAndNotckb2.CheckedThen
MsgBox("neitherchecked")
EndIf
EndSub

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

水平比较低，见笑了