我的程序代码是这样写的:
Private Sub Command1_Click()
full = 40
If Option2.Value = True Then
mark = full
Else
mark = full - 2
End If
If Option6.Value = True Then
mark = mark
Else
mark = mark - 2
End If
If Option10.Value = True Then
mark = mark
Else
mark = mark - 2
End If
If Option14.Value = True Then
mark = mark
Else
mark = mark - 2
End If
If Option18.Value = True Then
mark = mark
Else
mark = mark - 2
End If
If Option22.Value = True Then
mark = mark
Else
mark = mark - 2
End If
If Option26.Value = True Then
mark = mark
Else
mark = mark - 2
End If
If Option30.Value = True Then
mark = mark
Else
mark = mark - 2
End If
If Option34.Value = True Then
mark = mark
Else
mark = mark - 2
End If
If Option38.Value = True Then
mark = mark
Else
mark = mark - 2
End If
If Check1.Value = 1 And Check2.Value = 1 Then
mark = mark
Else
mark = mark - 2
End If
If Check6.Value = 1 And Check7.Value = 1 Then
mark = mark
Else
mark = mark - 2
End If
If Check11.Value = 1 And Check12.Value = 1 Then
mark = mark
Else
mark = mark - 2
End If
If Check16.Value = 1 And Check17.Value = 1 Then
mark = mark
Else
mark = mark - 2
End If
If Option41.Value = True Then
mark = mark
Else
mark = mark - 2
End If
If Option44.Value = True Then
mark = mark
Else
mark = mark - 2
End If
If Option45.Value = True Then
mark = mark
Else
mark = mark - 2
End If
If Option48.Value = True Then
mark = mark
Else
mark = mark - 2
End If
If Option49.Value = True Then
mark = mark
Else
mark = mark - 2
End If
Label3.Caption = mark
End Sub
下面是对象窗口的截图: