亲 根据你的描述 代码是车样的Private Sub Check1_Click() If (Check1.Value = 0) And (Check2.Value = 1) Then Check2.Value = 0End SubPrivate Sub Check2_Click() If Check2.Value = 1 Then Check1.Value = 1 End IfEnd Sub