VB：使用 IF 语句将变量添加到列表框中答案

【问题标题】：VB: Using IF statements to add together variables in a listboxVB：使用 IF 语句将变量添加到列表框中
【发布时间】：2012-01-31 22:01:48
【问题描述】：

我正在做的这个程序是确定游轮的价格。有基本的游轮费用（7 天或 10 天），加上包含不同游轮套餐的可变成本。总共有 3 个包，包的任何组合都可以从无到全部 3 个中选择。我正在尝试创建一个 if 块，它将 (a) 告诉我用户是否选择了 7 天或 10 天的巡航， (b) 确定这些包裹的价格，并将它们添加到总数中，以及 (c) 在列表框的下一行按它们的首字母 (V, E, R) 打印这些包裹。到目前为止我的程序如下。

If chkVIP.Checked Then
            strPackageInfo = strPackageInfo + "V"
            If optSeven.Checked Then
                dblTotal = dblTotal + 100
            Else
                dblTotal = dblTotal + 150
            End If
        End If
        If chkExcursion.Checked Then
            strPackageInfo = strPackageInfo + "E"
            If optSeven.Checked Then
                dblTotal = dblTotal + 200
            Else
                dblTotal = dblTotal + 300
            End If
        End If
        If chkRestaurant.Checked Then
            strPackageInfo = strPackageInfo + "R"
            If optSeven.Checked Then
                dblTotal = dblTotal + 70
            Else
                dblTotal = dblTotal + 100
            End If
  End If

我需要使用类似的东西：

lstInvoice.Items.Add(String.Format(strFormat, "游轮费用", FormatCurrency(dblTotal)))

在列表框中显示我的答案。但是，我不确定将这行代码放在哪里。

非常感谢您在此问题上提供的帮助。

【问题讨论】：

using IF statements to add together prices using VB 的可能重复项
这是一个不同的问题，但它是同一个领域。我已经弄清楚了那个区域，现在我需要弄清楚这个。

标签： vb.net if-statement

【解决方案1】：

通常，您应该首先验证数据，然后评估您的业务逻辑，然后进行演示。

因此，首先验证您的输入数据，然后确定包裹信息并计算成本。然后，在完成所有业务逻辑后，将行项目插入发票。

另外，您的示例缺少“End If”（在餐厅区）。

【讨论】：