vb check的问题

来源：百度知道 编辑：UC知道 时间：2024/05/17 00:28:15
我要实现单击check16则label26的值是-4，单击check17则label26的值是-4，而check16、17都选则label26的值是-8
不要多余的控件控制！
我写的语句都没完全实现
哪位高手帮着写一下

Private Sub Check16_Click()
If Check16.Value = 1 And Check17.Value = 1 Then
Label26.Caption = "-8"
Else
If Check16.Value = 0 And Check17.Value = 0 Then
Label26.Caption = "0"
Else
Label26.Caption = "-4"
End If
End If
End Sub

Private Sub Check17_Click()
If Check16.Value = 1 And Check17.Value = 1 Then
Label26.Caption = "-8"
Else
If Check16.Value = 0 And Check17.Value = 0 Then
Label26.Caption = "0"
Else
Label26.Caption = "-4"
End If
End If
End Sub

Private Sub Check16_Click()
label26 = Val(label26) - IIf(Check16.Value = 1, 4, -4)
End Sub

Private Sub Check17_Click()
label26 = Val(label26) - IIf(Check17.Value = 1, 4, -4)
End Sub

Private Sub Form_Load()
label26 = 0
End Sub

Private Sub Check16_Click()
If Check16.Value = 1