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

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

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

Кафедра АТПП

Работа с VBA

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

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

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

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

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

Могилев 2020

Оглавление

Задание 4 3

Вариант 1 3

Задание 4

Вариант 1

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

Исходные данные:	Результат:
Введите n:0	Неверно введено n
Введите n:24	Сумма первых 25 положительных четных чисел равна 650
Введите n:2	Сумма первых 2 положительных четных чисел равна 6

Sub Задание4()

Dim n As Integer

Do While n < 1

n = InputBox("N=")

If n < 1 Then MsgBox ("Неверно введено n")

Loop

For i = 1 To n

s = s + 2 * i

Next i

MsgBox ("сумма первых n= " & n & "положительных четных чисел равна s= " & s)

End Sub