VB: Использование операторов IF для сложения переменных в списке

Question

Эта программа, над которой я работаю, предназначена для определения цены круиза.Существует базовая стоимость круиза (7 или 10 дней), а также переменные расходы, которые включают в себя различные круизные пакеты.Всего имеется 3 пакета, и любые комбинации пакетов могут быть выбраны из ни одного, для всех 3. Я пытаюсь создать блок if, который (а) сообщит мне, выбрал ли пользователь 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)))

, чтобы показать мой ответ в списке.Однако я не уверен, где разместить эту строку кода.

Заранее большое спасибо за помощь в этом вопросе.

Answer 1

Как правило, сначала вы должны проверить данные, затем оценить свою бизнес-логику, а затем провести презентацию.

Итак, сначала проверьте ваши входные данные, затем определите информацию о пакете и рассчитайте стоимость. Затем, как только вся ваша бизнес-логика будет завершена, вставьте позицию (и) в накладную.

Кроме того, в вашем примере отсутствует «End If» (в блоке restaurant).