Код проекту.

Option Explicit

'Оголошення глобальних змінних

Public CurZina As Currency, CurVartist As Currency, _

CurGotivka As Currency, CurReshta As Currency

Private Sub CmdРозрахунок_Click()

'Оголошення локальних змінних

Dim IntKilkist As Integer, IntI As Integer

Dim StrPovidoml As String, StrVid As String, StrText As String

CurVartist = 0 'Підготовка до накопичування вартості

IntI = 1

Do While MsgBox("Будемо ще купувати? ", vbQuestion + vbYesNoCancel, _

"Супермаркет КЛАС") = vbYes 'Початок тіла циклу

1: StrText = InputBox("Уведіть кількість " & _

Format(Int, "# ##0") & "-го товару", "Супермаркет КЛАС")

If StrText = "" Then

MsgBox "Нічого не введено! Повторіть спробу!"

GoTo 1

Else:

IntKilkist = CInt(StrText)

End If

2: StrText = InputBox("Уведіть ціну " & Format(Int, "# ##0 ") & _

"-го товару", "Супермаркет КЛАС")

If StrText = "" Then

MsgBox "Помилка при уведенні! Повторите спробу!"

GoTo 2

Else:

CurZina = CCur(StrText)

End If

'Розрахунок вартості товару

CurVartist = CurVartist + CurZina * IntKilkist

IntI = IntI + 1

Loop

'Завершення циклу при натисканні клавіші "Нет" або "Отмена"

TxtОплата.Text = Format(CurVartist, "# ##0.00")

' Потрібно забезпечити узгодження в реченнях

Select Case Int

Case 1: StrVid = " вид товару"

Case 2, 3, 4: StrVid = " види товару"

Case Else: StrVid = " видів товару"

End Select

'Вивід результатів

StrPovidoml = "Ви придбали " & IntI & " " & StrVid & _

" на загальну суму " & _

Format(CurVartist, "# ##0.00") & " гривень"

LblРезультат.Caption = StrPovidoml

End Sub

Private Sub TxtГотівка_Exit(ByVal Cancel As _ MSForms.ReturnBoolean)

'Розрахунок решти

CurGotivka = CCur(TxtГотівка.Text)

CurReshta = CurGotivka - CurVartist

TxtРешта.Text = Format(CurReshta, "# ##0.00")

End Sub

'Підготовка робочого місця до роботи з таким покупцем

Private Sub CmdОчистити_Click()

LblРезультат.Caption = Empty

TxtГотівка.Text = Empty

TxtОплата.Text = Empty

TxtРешта.Text = Empty

End Sub