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

Question

我正在研究的这个程序是确定一个克鲁斯的价格。有一个基本的游轮费用（7或10天），以及包括不同游轮套餐的变量费用。总共有3个包，任何包的组合都可以从none到all 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，“Cruise package charge”，FormatCurrency（dblTotal）））

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

事先感谢您对此事的帮助。

Answer 1

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

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

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