Я хочу создать проверку пакета на vb, но мои коды не работают ни на какие предложения?

Question

Я не могу придумать какой-либо другой способ заставить его работать, любые предложения? Это мои коды:

Открытый класс frmPackageCheck

Private Sub btnCheck_Click(sender As Object, e As EventArgs) Handles btnCheck.Click 
    If txtWeight.Text <= 27 Then 
     Me.lblAnswer.Text = "Accepted" 
    ElseIf txtWeight.Text >= 27 Then 
     Me.lblAnswer.Text = "Rejected: Too heavy" 
    End If 
    If txtLength.Text <= 100 Then 
     Me.lblAnswer.Text = "Accepted" 
    ElseIf txtLength.Text >= 100 Then 
     Me.lblAnswer.Text = "Rejected: Too large" 
    End If 
    If lblWidth.Text <= 100 Then 
     Me.lblAnswer.Text = "Accepted" 
    ElseIf txtWidth.Text >= 100 Then 
     Me.lblAnswer.Text = "Rejected: Too large" 
    End If 
    If txtHeight.Text <= 100 Then 
     Me.lblAnswer.Text = "Accepted" 
    ElseIf txtHeight.Text >= 100 Then 
     Me.lblAnswer.Text = "Rejected: Too large" 
    End If 
End Sub 

Answer 1

Ваша проблема, скорее всего, что Me.lblAnswer.Text продолжает получать изменилось. Например, если вес равен 50, текст ответа будет установлен на «Отклонен: слишком тяжелый», но в следующем if-блоке он будет заменен (либо «Принято», либо «Отклонено: слишком большое»). Вы должны продолжить проверку большего количества значений , только если состояние принята. После обнаружения причины отклонения вы должны сообщить об этом.

В качестве альтернативы вы можете создать более сложный текст ответа, который является либо комбинацией всех причин отклонения, либо «принят». Это было бы немного сложнее для программирования, но все проблемы были бы обнаружены за один проход.