VB开发食谱调整表单：如何让未使用文本框保持空白不显示0

出现未使用的文本框显示"0"的问题，来自三个逻辑层面的原因：

• Val()函数遇到空文本、非数字文本时，会直接返回0，不会抛出异常，计算后哪怕结果为0，赋值给TextBox的Text属性就会显示为"0"
• 现有逻辑仅判断了相邻输入框的空值状态，没有校验参与计算的源值是否有效，也没有对计算结果为0的场景做空值处理
• 隐藏运行风险：如果TextBox51（总份量输入）为空或输入0，Val(TextBox51.Text)会返回0，触发除以零的运行时错误

' 第一步：先校验总份量输入的有效性，无效则清空所有计算输出框
If Not IsNumeric(TextBox51.Text) OrElse Val(TextBox51.Text) = 0 Then
    TextBox21.Text = ""
    TextBox22.Text = ""
    TextBox23.Text = ""
    TextBox24.Text = ""
    TextBox25.Text = ""
    TextBox26.Text = ""
    TextBox27.Text = ""
    TextBox28.Text = ""
    TextBox29.Text = ""
    TextBox30.Text = ""
    Exit Sub
End If
Dim totalServings As Double = Val(TextBox51.Text)

' 以下为逐块修改后的原有判断逻辑
If TextBox12.Text = "" Then
    ' 仅当TextBox11为有效非零数字时才计算并显示结果
    If IsNumeric(TextBox11.Text) AndAlso Val(TextBox11.Text) <> 0 Then
        TextBox30.Text = (Val(TextBox11.Text) / totalServings).ToString()
    Else
        TextBox30.Text = ""
    End If
End If

If TextBox13.Text = "" Then
    If IsNumeric(TextBox12.Text) AndAlso Val(TextBox12.Text) <> 0 Then
        TextBox29.Text = (Val(TextBox12.Text) / totalServings).ToString()
    Else
        TextBox29.Text = ""
    End If
End If

If TextBox14.Text = "" Then
    If IsNumeric(TextBox13.Text) AndAlso Val(TextBox13.Text) <> 0 Then
        TextBox28.Text = (Val(TextBox13.Text) / totalServings).ToString()
    Else
        TextBox28.Text = ""
    End If
End If

If TextBox15.Text = "" Then
    If IsNumeric(TextBox14.Text) AndAlso Val(TextBox14.Text) <> 0 Then
        TextBox27.Text = (Val(TextBox14.Text) / totalServings).ToString()
    Else
        TextBox27.Text = ""
    End If
End If

If TextBox16.Text = "" Then
    If IsNumeric(TextBox15.Text) AndAlso Val(TextBox15.Text) <> 0 Then
        TextBox26.Text = (Val(TextBox15.Text) / totalServings).ToString()
    Else
        TextBox26.Text = ""
    End If
End If

If TextBox17.Text = "" Then
    If IsNumeric(TextBox16.Text) AndAlso Val(TextBox16.Text) <> 0 Then
        TextBox25.Text = (Val(TextBox16.Text) / totalServings).ToString()
    Else
        TextBox25.Text = ""
    End If
End If

If TextBox18.Text = "" Then
    If IsNumeric(TextBox17.Text) AndAlso Val(TextBox17.Text) <> 0 Then
        TextBox24.Text = (Val(TextBox17.Text) / totalServings).ToString()
    Else
        TextBox24.Text = ""
    End If
End If

If TextBox19.Text = "" Then
    If IsNumeric(TextBox18.Text) AndAlso Val(TextBox18.Text) <> 0 Then
        TextBox23.Text = (Val(TextBox18.Text) / totalServings).ToString()
    Else
        TextBox23.Text = ""
    End If
End If

If TextBox20.Text = "" Then
    If IsNumeric(TextBox19.Text) AndAlso Val(TextBox19.Text) <> 0 Then
        TextBox22.Text = (Val(TextBox19.Text) / totalServings).ToString()
    Else
        TextBox22.Text = ""
    End If
End If

If TextBox20.Text <> "" Then
    If IsNumeric(TextBox20.Text) AndAlso Val(TextBox20.Text) <> 0 Then
        TextBox21.Text = (Val(TextBox20.Text) / totalServings).ToString()
    Else
        TextBox21.Text = ""
    End If
End If

• 用IsNumeric()校验输入是否为有效数字，避免Val()把空文本自动转0导致的错误计算
• 只要遇到输入无效、源值为0、分母为0的场景，直接给目标文本框赋值空字符串，不会出现显示"0"的问题
• 可根据显示需求调整小数位数，比如要保留2位小数，可将计算后的.ToString()替换为.ToString("0.00")，结果为0的场景依然会保持文本框为空

现有代码存在大量重复的判断块，后续可以通过文本框配对、循环处理的方式精简代码，减少重复编写带来的写错风险。

内容的提问来源于stack exchange，提问作者Charles Zuspann