Question

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

Answer 1

Для решения этой задачи с помощью VBA без использования массивов, мы можем использовать простой подход с использованием циклов и условных операторов.

Вот пример кода на VBA, который решает данную задачу:

vbaCopy code
Sub CalculateChange()
    Dim totalPayment As Integer
    totalPayment = InputBox("Введите сумму к оплате:")

    Dim bill500 As Integer, bill100 As Integer, bill50 As Integer
    Dim bill10 As Integer, bill5 As Integer, bill2 As Integer, bill1 As Integer
    
    bill500 = totalPayment \ 500 ' Деление нацело для получения количества купюр
    totalPayment = totalPayment Mod 500 ' Остаток после оплаты купюрами номиналом 500 р.

    bill100 = totalPayment \ 100
    totalPayment = totalPayment Mod 100

    bill50 = totalPayment \ 50
    totalPayment = totalPayment Mod 50

    bill10 = totalPayment \ 10
    totalPayment = totalPayment Mod 10

    bill5 = totalPayment \ 5
    totalPayment = totalPayment Mod 5

    bill2 = totalPayment \ 2
    bill1 = totalPayment Mod 2

    MsgBox "Купюры достоинством:" & vbCrLf & _
        "500 р. : " & bill500 & vbCrLf & _
        "100 р. : " & bill100 & vbCrLf & _
        "50 р. : " & bill50 & vbCrLf & _
        "10 р. : " & bill10 & vbCrLf & _
        "5 р. : " & bill5 & vbCrLf & _
        "2 р. : " & bill2 & vbCrLf & _
        "1 р. : " & bill1
End Sub

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