我想在 vb 上创建一个包检查，但我的代码没有任何建议？

Question

我想不出任何其他方法来让它工作，有什么建议吗？ 这是我的代码：

Public Class 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，则答案文本将设置为 "Rejected: Too heavy"，但在下一个 if 块中它将被替换（由 "Accepted" 或 "Rejected: Too large"）。仅当 状态为 'accepted' 时，您才应继续检查更多值 。一旦发现拒绝原因，请及时报告。

或者，您可以构建一个更复杂的答案文本，它可以是所有拒绝原因的组合，也可以是 'accepted'。这在编程上会稍微复杂一些，但可以一次找到所有问题。