2 Задачи На Vba. Покупка в Кредит. Використання Функції Користувача

ЗМІСТ
    Завдання 1. Покупка в кредит. 2
    Завдання 2. Використання функції користувача 4
    Література. 5

Завдання для лабораторної роботи

Завдання 1. Покупка в кредит.

Постанова задачі. Клієнту банку треба обміняти певну суму гривень.
Чоловік вирішив придбати автомобіль який коштує S доларів США. В нього є початковий капітал – n грн. Скільки років чоловікові треба накопичувати гроші, якщо він може відкладати тільки m грн.   взнос
Алгоритм розв’язання задачі у вигляді блок-схеми

Програма
      Sub pokupka_auto()
      Dim S As Currency, n As Currency, m As Currency, Y As Integer, tmp As String
      S = Val(InputBox("Введить ціну автомобіля", "S ="))
      n = Val(InputBox("Введить початковий капітал", "n ="))
      m = Val(InputBox("Введить щорічний внесок", "m ="))
      Y = Int((S - n) / m)
      If (S - n) Mod m   0 Then Y = Y + 1
      MsgBox "Потрібно накопичувати гроші " & Y & " років"
      End Sub

Результат   роботи програми
[pic]

[pic]

[pic]
[pic]

Завдання 2. Використання функції користувача

      Дана