Вариант 4. На счет в банк внесена сумма S рублей. В конце каждого месяца со счета снимается сумма

  • ID: 23276 
  • 6 страниц
200 рубСкачать

гарантия низкой цены

Формы в-4.xls

Отчет.docx

Содержание:


Постановка задачи

На счет в банк внесена сумма S рублей.

В конце каждого месяца со счета снимается сумма в размере N рублей.

Если на счете останется сумма меньше M рублей, то банка "заморозит" счет.

На сколько месяцев хватит первоначальной суммы?

Решение

Проектирование формы

Через меню Insert -> UserForm вставили пустую форму UserForm1.

Добавили элементы метки - label, label2, label3, label4, label5, label6.

Добавили элементы поля ввода - TextBox1, TextBox2, TextBox3, TextBox4.

Добавили элементы кнопки CommandButton1, CommandButton2.

[image]

Рисунок 1. Спроектированная форма

Текст программы

Private Sub Workbook_Open()

UserForm1.Show

End Sub

Private Sub CommandButton1_Click() 'Начало (заголовок) процедуры

A = Val(TextBox1.Text) 'Первоначальная сумма

N = Val(TextBox2.Text) 'Перечисляемая сумма

M = Val(TextBox3.Text) 'Лимит

s = A 'Текущая сумма на счете

mon = 0 'Кол-во месяцев

If (A = 0 Or N = 0 Or M = 0) Then 'если исходные данные равные нулю, то

MsgBox ("Ошибка в исходных данных!") 'вывод сообщения об ошибке

Else 'иначе делаем расчет

Do While (s > M) 'Начало цикла с предусловием

mon = mon + 1 'Прибавляем очередной месяц

s = s - N 'Снимаем сумму со счета

Loop '

End If

'Вывод исходных данных и результата

TextBox4.Text = Str(mon)

End Sub ' Конец процедуры

Private Sub CommandButton2_Click()

End

End Sub

Результат работы программы

Ввод исходных данных

[image]

Рисунок 2. Ввод исходных данных в форму

Для получения результата, нужно нажать кнопу «Рассчитать»

[image]

Рисунок 3. Результат расчета

Для выхода из программы нужно нажать кнопку «Выход».

Список использованной литературы

Н.В.Макарова. Информатика. М.: Ф и С. 1998 г.