IF文を使用してVBを使用して価格を加算する

Question

if文を使用してクルーズスペシャルパッケージの価格を追加しようとしています。私はパッケージのチェックボックスを使用しているので、noneからall 3までのすべてをチェックすることができます。利用可能なパッケージはVIP、エクスカーション、レストランです。価格はクルーズの長さ（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