Question

我正在尝试使用if语句将巡航特殊包的价格加在一起。我正在使用包的复选框，因此可以检查从无到有3的任何复选框。可用的套餐包括贵宾，短途旅行和餐厅。价格还取决于游轮长度（7天或10天）。我想知道使用哪种格式，如果我甚至需要使用if语句，但这个让我难过。如果有人对如何使这个陈述成真有任何想法，我会很感激帮助。谢谢。

Answer 1

使用CheckBox的公共事件处理程序来调用这样的更新方法。

Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged
    UpdatePricing()
End Sub

Private Sub UpdatePricing()
    Dim total As Double
    Dim pricing1 As Double = 2000.99
    Dim pricing2 As Double = 4000.49
    Dim pricing3 As Double = 6000.19

    If CheckBox1.Checked Then total = total + pricing1
    If CheckBox2.Checked Then total = total + pricing2
    If CheckBox3.Checked Then total = total + pricing3 


    Label1.Text = Format(total, "$####0.00")
End Sub

使用IF语句使用VB将价格加在一起

1 个答案: