Vb.net Visual Basic代码-无法显示总计。VB新手

我必须为一家餐饮公司编写一个计算成本的程序。我已经记下了那个部分，但让我难堪的是我无法显示总数。同样让我感到困惑的是，我必须制作一个汇总按钮，将之前计算的所有内容汇总到一个总计中，并将其显示在一个消息框中。显示和计算并不是我真正关心的问题，但获取要计算的数据才是我真正关心的问题。 多谢各位

这是密码

Const decPRIME_RIB As Decimal = 25.95D
Const decCHICKEN As Decimal = 18.95D
Const decPASTA As Decimal = 12.95D
Const decOPEN_BAR As Decimal = 25D
Const decWINE As Decimal = 8D
Const decBEER As Decimal = 10D

'Declare module-level variables for summary information.
Private TotalDollar As Decimal
Private AmountDue As Decimal
Private SubTotalDecimal As Decimal
Private TotalDecimal As Decimal
Private Guest As Integer
Private EventCountInteger As Integer

Private Sub CalcBtn_Click(sender As Object, e As EventArgs) Handles CalcBtn.Click
    ' Calculate and display the current amounts and add to totals.
    Dim FoodChoiceDecimal As Decimal
    Dim OpenBarDecimal As Decimal
    Dim WineDecimal As Decimal
    Dim DrinksDecimal As Decimal

    ' Find the price.
    If PrimeRB.Checked Then
        FoodChoiceDecimal = decPRIME_RIB
    ElseIf ChickRB.Checked Then
        FoodChoiceDecimal = decCHICKEN
    ElseIf PastaRB.Checked Then
        FoodChoiceDecimal = decPASTA
    End If

    If OpenCB.Checked Then
        OpenBarDecimal = decOPEN_BAR
    End If
    If WineCB.Checked Then
        WineDecimal = decWINE
    End If

    'Multiply price by number of guest and drink selection.
    Try
        DrinksDecimal = (OpenBarDecimal + WineDecimal)
        AmountDue = (FoodChoiceDecimal + DrinksDecimal) * Guest


        ' display totals.
        TotalLbl.Text = TotalLbl.ToString("C")

        ' Allow change for new event.
        OpenCB.Enabled = False
        WineCB.Enabled = False
        ClearBtn.Enabled = True
        SummaryBtn.Enabled = True

    Catch NumberOfGuestsException As FormatException
        MessageBox.Show("Number of Guests must be Numeric", _
        "Data entry Error", MessageBoxButtons.OK, _
        MessageBoxIcon.Information)



    End Try
End Sub


Private Sub SummaryBtn_Click(sender As Object, e As EventArgs) Handles SummaryBtn.Click
    ' Calculate total dollar amounts and number of events.

    Dim MessageString As String
    If EventCountInteger > 0 Then
        ' Calculate the summary sales totals.
        TotalDollar += AmountDue

        'Concatenate the message string.
        MessageString = "Number of Events:" & EventCountInteger.ToString() _
        & Environment.NewLine & Environment.NewLine _
        & "Total Sales: " & TotalDollar.ToString("C")
        MessageBox.Show(MessageString, "Sales Summary", _
        MessageBoxButtons.OK, MessageBoxIcon.Information)
    End If

---

<代码> toTalb.t= ToString。（“C”）< /COD>为什么这是标记的java和C++？这和C++有什么关系吗？@ HoVrCRAFTFulfFeell我固定了标签。OP是一个新用户，不要因为一个愚蠢的错误而记下一个问题。相反，编辑问题以纠正错误标记，并留下关于如何做得更好和继续前进的评论。这个问题本身是有效的，即使它没有解释清楚。请查看页面。在您发布的两个sub中使用了几个变量，它们似乎在发布的代码之外被修改。例如，您已将

EventCountInteger

声明为私有int32，但我看不到在何处为其分配了值，这意味着

如果EventCountInteger>0，则

块将始终计算为false，因为整数的默认值为0。