Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
ЛАБОРАТОРНАЯ РАБОТА №4
Редактор VBA. «Оператор цикла с условием»
Цель работы.
• ознакомиться с алгоритмом типа «цикл», оператором цикла с условием;
получить навыки создания программного модуля с использованием оператора цикла с условием Do-Loop.
Задание к работе:
К работе допущен:
Работу выполнил:
Работу защитил :
Теоретическая часть
Рамочные служебные слова Do – «делать»; «выполнять», Loop – «оборот».
Это универсальный оператор цикла для выполнения наборов инструкций (операторов) неопределённое (произвольное) число раз в зависимости от результата текущего анализа внутреннего условия. Имеется четыре формата записи, которые можно разделить на две группы.
Первая группа – повторение инструкций, пока (While) условие имеет значение истина (True).
В этом варианте возможно, что цикл не будет выполняться ни разу, если условие сразу ложь.
Вариант 2 первой группы: проверка условия на выходе из цикла
В этом варианте цикл будет выполняться хотя бы один раз.
Вторая группа – повторение инструкций до тех пор, когда (Un-til) условие примет значение истина.
Вариант 1 второй группы: проверка условия до входа в цикл
В этом варианте возможно, что цикл не будет выполняться ни разу, если условие сразу истина.
Практическая часть.
Private Sub Пуск_Click()
Dim s As Integer, i As Integer
s = 0 'Начальное значение суммы
i = 1 'Начальное значение ряда чисел
Do While i < 5
s = s + i 'Накопление суммы
s = s + 1 'Задание очередного числа
Loop
TextBox1.Text = s
End Sub
Задача для нахождения четных чисел от 50 до 100]
Public sub pr_2()
Dim ch as integer
‘переменная принимающая значения четных чисел от 50 до 100
Dim sum as integer
‘ переменная, в которой сохраняется результат поиска суммы четных чисел
Sum = 0
Ch=50‘ присваеваем переменной сh значение равное первому числу из указанного интервала
Do while ch<100
Sum=sum+ch
Ch= ch+50
Loop
Msgbox “сумма четных чисел =” & sum
End sub
‘Форма для для решения задачи
‘Запускаем программу и активируем CommandButton1 после чего в Textbox1 выходит сумма четных чисел
Вывод: После окончания работы я научился составлять алгоритмы, эскиз окна формы и составлять программный код для решения задач.
Do
Тело цикла
Loop Until условие
ложь истина-выход
Продолжение цикла