Давайте напишем код на 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

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