Visual Basic中如何实现ListBox菜品金额计算与总价累加

先瞅一眼你当前的总价代码，确实有不少逻辑漏洞，我给你拆解下问题，再给你补全正确的实现：

你的代码里的核心问题 #

1. 变量逻辑混乱：priceOfDish初始成了字符串"0"，但你想用它匹配菜品名称；Total定义成Integer，但金额是带小数的，算出来肯定会丢失精度。
2. 未遍历ListBox项：你光定义了一堆价格变量，但根本没去读取lstList里的每一条已选菜品记录，这根本没法累加总价。
3. Select Case逻辑失效：你用priceOfDish做判断，但这个变量根本没从ListBox里提取菜品名称；而且每个Case里只是给价格变量加固定值，完全没结合数量计算单道菜的金额。
4. 无金额累加逻辑：代码里既没做单价×数量的计算，也没把每道菜的金额加到总金额里，最后当然算不出正确结果。

分两步解决：先优化添加菜品逻辑，再写正确的总价计算代码 #

第一步：优化添加菜品到ListBox的代码 #

为了后续能方便提取单价和数量，我们把菜品和单价用字典存起来（比一堆零散变量清爽多了），然后添加菜品时把必要的数据妥善存储：

如果你用的是VB.NET：

' 先定义一个字典存菜品和对应的单价，可放在Form_Load或模块中
Dim dishPrices As New Dictionary(Of String, Double) From {
    {"Fries", 2.5},
    {"Garlic Bread", 2.5},
    {"Fried Chicken Wing", 2.5},
    {"Spring Roll", 2.5},
    {"Chicken Rice", 4},
    {"Fried Rice", 4},
    {"Curry Rice", 4},
    {"Thai Chicken Rice", 4},
    {"Fried Seafood Noodle", 3.5},
    {"Chicken Noodle", 3.5},
    {"Beef Noodle", 3.5},
    {"Prawn Noodle", 3.5}
}

' 添加菜品的按钮代码
Private Sub btnAddDish_Click(sender As Object, e As EventArgs) Handles btnAddDish.Click
    Dim quantity As Integer
    ' 先验证数量是否为有效正整数，避免出错
    If Not Integer.TryParse(txtQuantity.Text, quantity) OrElse quantity <= 0 Then
        MessageBox.Show("请输入大于0的有效数量！")
        Return
    End If

    If lstDish.SelectedIndex > -1 Then
        Dim dishName As String = lstDish.SelectedItem.ToString()
        Dim unitPrice As Double = dishPrices(dishName)
        
        ' 把显示文本和后台数据分开，用ListBoxItem的Tag存单价和数量
        Dim listItem As New ListBoxItem()
        listItem.Text = $"{dishName} --> {quantity}" ' 保持你需要的显示格式
        listItem.Tag = New With {.UnitPrice = unitPrice, .Quantity = quantity} ' 存储后台计算用的数据
        lstList.Items.Add(listItem)
    End If

    txtQuantity.Text = "1" ' 重置数量输入框为默认值1
End Sub

如果你用的是VB6：

VB6没有ListBoxItem和匿名类型，我们用拆分字符串的方式实现：

' 先在模块或Form_Load中初始化菜品价格字典
Dim dishPrices As New Scripting.Dictionary
Private Sub Form_Load()
    dishPrices.Add "Fries", 2.5
    dishPrices.Add "Garlic Bread", 2.5
    dishPrices.Add "Fried Chicken Wing", 2.5
    dishPrices.Add "Spring Roll", 2.5
    dishPrices.Add "Chicken Rice", 4
    dishPrices.Add "Fried Rice", 4
    dishPrices.Add "Curry Rice", 4
    dishPrices.Add "Thai Chicken Rice", 4
    dishPrices.Add "Fried Seafood Noodle", 3.5
    dishPrices.Add "Chicken Noodle", 3.5
    dishPrices.Add "Beef Noodle", 3.5
    dishPrices.Add "Prawn Noodle", 3.5
End Sub

' 添加菜品的按钮代码
Private Sub btnAddDish_Click()
    Dim quantity As Integer
    If Not IsNumeric(txtQuantity.Text) Then
        MsgBox("请输入有效的数字！")
        Exit Sub
    End If
    quantity = CInt(txtQuantity.Text)
    If quantity <= 0 Then
        MsgBox("请输入大于0的数量！")
        Exit Sub
    End If

    If lstDish.ListIndex > -1 Then
        Dim dishName As String = lstDish.List(lstDish.ListIndex)
        Dim displayText As String = dishName & " --> " & quantity
        lstList.AddItem displayText
    End If

    txtQuantity.Text = "1"
End Sub

第二步：正确计算总价的代码 #

现在遍历ListBox里的每一项，提取数据并计算累加：

VB.NET版本：

Private Sub btnCalculateTotal_Click(sender As Object, e As EventArgs) Handles btnCalculateTotal.Click
    Dim totalAmount As Double = 0 ' 用Double存储总价，保留小数精度

    ' 遍历每一项菜品
    For Each item As ListBoxItem In lstList.Items
        ' 从Tag里取出单价和数量，计算单道菜金额并累加
        Dim dishData = item.Tag
        totalAmount += dishData.UnitPrice * dishData.Quantity
    Next

    ' 格式化显示为两位小数的金额，用C2是货币格式（如$7.00），要纯数字可改用F2
    txtTotal.Text = totalAmount.ToString("C2")
End Sub

VB6版本：

Private Sub btnCalculateTotal_Click()
    Dim totalAmount As Double
    Dim i As Integer
    Dim itemText As String
    Dim parts() As String
    Dim dishName As String
    Dim quantity As Integer

    For i = 0 To lstList.ListCount - 1
        itemText = lstList.List(i)
        ' 拆分显示文本，提取菜品名称和数量
        parts = Split(itemText, " --> ")
        If UBound(parts) = 1 Then
            dishName = parts(0)
            quantity = CInt(parts(1))
            ' 从字典中获取单价，计算单道菜金额并累加
            totalAmount = totalAmount + (dishPrices(dishName) * quantity)
        End If
    Next i

    ' 格式化显示两位小数
    txtTotal.Text = Format(totalAmount, "#,##0.00")
End Sub

为啥这么改？ #

1. 用字典存菜品价格，比一堆变量+Select Case简洁太多，以后加新菜品直接往字典里加就行，不用修改大量代码。
2. 添加菜品时把数据妥善存储（VB.NET用Tag，VB6靠拆分文本），计算时直接提取，避免逻辑混乱。
3. 遍历ListBox的每一项，逐个计算累加，确保所有菜品都被计入总价。
4. 用Double存储总价，避免小数精度丢失，显示时格式化两位小数，符合金额的显示习惯。

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