Покупатель должен заплатить в кассу S р. У него имеются 1, 2, 5, 10, 50, 100, 500 р. Сколько купюр разного достоинства отдаст покупатель, если он начинает платить с самых крупных?
VBA , без масивов

Предыдущий
вопрос Следующий
вопрос

Давайте напишем код на VBA, который будет определять количество купюр разного достоинства, которые покупатель отдаст в кассу:

Sub CalculateChange()
Dim totalPayment As Integer
totalPayment = InputBox("Введите сумму для оплаты:")
Dim denomination As Variant
denomination = Array(500, 100, 50, 10, 5, 2, 1)
Dim countCurrency As Integer
Dim i As Integer
For i = LBound(denomination) To UBound(denomination)
If totalPayment >= denomination(i) Then
countCurrency = totalPayment \ denomination(i)
totalPayment = totalPayment - countCurrency * denomination(i)
MsgBox "Купюр достоинством " & denomination(i) & "р.: " & countCurrency
End If
Next i
End Sub

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