编写简易Invoice Total程序运行报错，求定位代码问题

核心问题 #

你代码的核心错误是直接使用文本框的字符串类型值参与数值比较和算术运算，txtSubtotal.Text返回的是String类型，没有显式转换为数值类型，既可能触发类型不匹配的运行时异常，也可能出现判断逻辑错误。

具体问题列表 #

• 隐式类型转换风险：当用户输入非数字内容时，VB尝试自动把字符串转数值的过程会直接抛出异常，导致程序崩溃
• 区间判断冗余：上层If条件已经过滤了更大的数值范围，下层ElseIf不需要重复判断上限
• 无非法输入处理逻辑：没有对空输入、负数、非数字输入做校验兜底

修正后的代码 #

Public Class InvoiceTotalExpmt
    Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
        ' 先把输入的字符串转成Decimal数值
        Dim subtotal As Decimal
        ' 校验输入是否为合法的正数数值
        If Not Decimal.TryParse(txtSubtotal.Text, subtotal) OrElse subtotal < 0 Then
            MessageBox.Show("请输入有效的正数值作为小计")
            txtSubtotal.SelectAll()
            Return
        End If

        Dim discountPercent As Decimal
        If subtotal >= 500 Then
            discountPercent = 0.2D
        ElseIf subtotal >= 250 Then
            discountPercent = 0.15D
        ElseIf subtotal >= 100 Then
            discountPercent = 0.1D
        Else
            discountPercent = 0D
        End If

        Dim discountAmount As Decimal = subtotal * discountPercent
        Dim invoiceTotal As Decimal = subtotal - discountAmount

        txtDiscountPercent.Text = FormatPercent(discountPercent, 1)
        txtDiscountAmount.Text = FormatCurrency(discountAmount)
        txtTotal.Text = FormatCurrency(invoiceTotal)

        txtSubtotal.Select()
    End Sub

    Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub
End Class

修复说明 #

• 用Decimal.TryParse方法把用户输入的字符串显式转换为Decimal类型，同时校验输入合法性，非法输入给出提示直接终止后续逻辑
• 简化了区间判断逻辑，去掉了冗余的上限判断
• 数值字面量后加D后缀，明确声明为Decimal类型，避免隐式类型转换的精度问题

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