VB：IF文を使用してリストボックスに変数を追加する

Question

私が取り組むこのプログラムは、クルーズの価格を決定することです。基本クルーズ料金（7日または10日）と異なるクルーズパッケージを含む変動費があります。合計3つのパッケージがあり、パッケージの組み合わせはどれも選択しないで、すべて3にすることができます。私はブロックを作成しようとしています。（a）ユーザーが7日間または10日間のクルーズを選択したかどうか、 （b）それらのパッケージの価格を決定し、それらを総数に加え、（c）リストボックスの次の行に最初のイニシャル（V、E、R）でパッケージをプリントする。これまでの私のプログラムは以下の通りです。

lstInvoice.Items.Add（String.Formatの（strFormat、 "クルーズパッケージ料金"、FormatCurrency（dblTotal）））

へ：

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 

は、私が好きなの周りのものを使用する必要があります私の答えをリストボックスに表示してください。しかし、このコード行をどこに置くべきかはわかりません。

事前にこの問題についてご支援いただき、ありがとうございます。

Answer 1

原則として、まずデータを検証し、ビジネスロジックを評価してからプレゼンテーションを行う必要があります。

まず入力データを検証し、パッケージ情報を決定してコストを計算します。次に、ビジネスロジックがすべて完了したら、明細を請求書に挿入します。

また、あなたの例では、（レストランブロック内の）「End If」が欠落しています。