Министерство образования Республики Беларусь

Учреждение образования

«Могилевский государственный университет продовольствия»

Кафедра АТПП

Работа с VBA

Отчет по задачам

Специальность 1-36 20 01 Низкотемпературная техника

по дисциплине «Информатика»

Проверил Ст.преподаватель Н.П.Овсянникова «____» ____________2020 г

Выполнил Студент группы НТ-201 А.А.Алиев «____» ____________2020 г

Могилев 2020

Оглавление

Задание 3 3

Вариант 1 3

Задание 3

Вариант 1

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

Исходные данные	Результат:
Делимое: 0,9 Делитель: 0	1. Вы ошиблись. Делитель не должен быть равен нулю
Делимое: 13,7 Делитель: 0,5	3. Частное: 27,4

Sub Задание3()

Dim a As Single, b As Single

a = InputBox("Введите значение а") 'Ввод исходных данных

b = InputBox("Введите значение b")

If b <> 0 Then

C = a / b

MsgBox ("Частное" & C)

Else

MsgBox (" Вы ошиблись. Делитель не должен быть равен нулю")

End If

End Sub