Как добавить максимальный балл для программы расчета

Question

Я пишу код для расчета школьных баллов.Когда студенты получат общий балл ниже 68, у них будет шанс получить бонусный балл.Бонусный счет имеет три варианта, которые можно выбрать.Однако при добавлении бонуса общая оценка не может превышать 68 баллов.Как мне сделать последнюю часть?

Вот код, который я написал

        If result < 68 Then
            If RadioButton1.Checked = True Then
                bonus = 15.0
            End If
            If RadioButton2.Checked = True Then
                bonus = 10.0
            End If
            If RadioButton3.Checked = True Then
                bonus = 5.0
            End If
        End If

        total = result + bonus

Answer 1

1. Я думаю, вы должны хранить информацию о том, был ли бонус добавлен или нет

       Dim IsBonusAdded As Boolean
       IsBonusAdded = False
       If result < 68 Then
           If RadioButton1.Checked = True Then
               bonus = bonus
               IsBonusAdded = True
           End If
           If RadioButton2.Checked = True Then
               bonus = 10.0
               IsBonusAdded = True
           End If
           If RadioButton3.Checked = True Then
               bonus = 5.0
               IsBonusAdded = True
           End If
       End If
   
       total = result + bonus
       ' total can't be more than 68 if bonus added
       If IsBonusAdded And total >=68 Then
            total = 68
       End If
   

2. Если бонус нужно добавить более одного раза? Тогда вы должны исправить свой код

       Dim IsBonusAdded As Boolean
       If result < 68 Then
           If RadioButton1.Checked = True Then
               bonus = bonus + 15
               IsBonusAdded = True
           End If
           If RadioButton2.Checked = True Then
               bonus = bonus + 10
               IsBonusAdded = True
           End If
           If RadioButton3.Checked = True Then
               bonus = bonus + 5
               IsBonusAdded = True
           End If
       End If
   
       total = result + bonus
       ' total can't be more than 68 if bonus added
       If IsBonusAdded And total >68 Then
            total = 68
       End If