Циклические конструкции VBA

С предусловием Do while условие Цикл выполняется до тех пор пока Инструкции выполняется условие: [Exit Do] Do – начало цикла, делать. Loop While – до тех пор пока условие истинно. Exit Do – необязательный компонент, предназначен для организации выхода из цикла, до полного его завершения. Loop – ограничитель тела цикла. While условие Инструкции Wend Wend – ограничитель тела цикла. Do until условие Until – до тех пока условие ложно. Инструкции [Exit Do] Loop

Пример Начало алгоритма Начало Sub prim() X 0=-1 Задание значений исходных Dim X 0 as Integer, X as Single, X 1 as X 1=1 данных H=0, 1 Integer, H as Single, Y as Single X=X 0 Организация цикла X 0=-1 X 1=1 Нет X<= Определение значения H=0. 1 Y по формуле X 1 Да X=X 0 Y=SIN(X)+X Вывод полученного значения Do While X<=X 1 Y=Sin(X)+X Вывод Y Msg. Box “Y=”+Str(Y), , ”Результат” X=X+H Loop Окончание алгоритма End Sub Конец

Sub prim() Sub prim() Dim X 0 as Integer, X as Single, X 1 as Dim X 0 as Integer, X as Single, X 1 Integer, H as Single, Y as Single as Integer, H as Single, Y as X 0=-1 Single X 1=1 X 0=-1 H=0. 1 X 1=1 X=X 0 H=0. 1 While X<=X 1 X=X 0 Y=Sin(X)+X Do Until X>X 1 Msg. Box “Y=”+Str(Y), , ”Результат” Y=Sin(X)+X X=X+H Msg. Box “Y=”+Str(Y), , ”Результат” Wend X=X+H End Sub Loop End Sub

С постусловием Do Цикл выполняется до тех пор пока Инструкции [Exit Do] выполняется условие: Loop while условие Do – начало цикла, делать. While – до тех пор пока условие истинно. Exit Do – необязательный компонент, предназначен для организации выхода из Do цикла, до полного его завершения. Инструкции Loop – ограничитель тела цикла. [Exit Do] Until – до тех пока условие ложно. Loop until условие

Пример Начало алгоритма X 0=-1 Задание значений Sub prim() X 1=1 исходных данных H=0, 1 Dim X 0 as Integer, X as Single, X 1 as Integer, H as Single, Y as Single X=X 0 Организация цикла X 0= Input. Box(“Ввести начальное значение Х ”, ”Значение X 0”) X 1= Input. Box(“Ввести конечное значение Y=SIN(X)+X Определение значения Y по формуле X”, ”Значение X 1”) H= Input. Box(“Ввести шаг”, ”Значение H”) Вывод полученного Do Y значения Y=Sin(X)+X Msg. Box “Y=”+Str(Y), , ”Результат” X=X+H Loop While X<=X 1 Нет Окончание алгоритма X>X 1 End Sub Да Конец

Sub prim() Dim X 0 as Integer, X as Single, X 1 as Integer, H as Single, Y as Single X 0= Input. Box(“Ввести начальное значение Х ”, ”Значение X 0”) X 1= Input. Box(“Ввести конечное значение X”, ”Значение X 1”) H= Input. Box(“Ввести шаг”, ”Значение H”) Do Y=Sin(X)+X Msg. Box “Y=”+Str(Y), , ”Результат” X=X+H Loop Until X>X 1 End Sub

С параметром For параметр=начало To конец [Step шаг] Параметр –числовая переменная. Инструкции Начало и конец – обязательные [Exit For] параметры цикла (при положительном Инструкции значении шага начало<=концу; при Next [параметр] отрицательном значении шага начало>=концу). Step – шаг, необязательный параметр, на которое может изменяться параметр цикла при каждом выполнении тела цикла. Next – ограничитель цикла.

Пример Начало алгоритма Sub prim() X 0=-1 Задание значений X 1=1 Dim X 0 as Integer, X as Single, X 1 as Integer, H as Single исходных данных H=0, 1 Dim Y as Single X 0=-1 X=X 0, X 1, H Организация цикла X 1=1 H=0. 1 Определение значения Y For X=X 0 To X 1 Step H Y=SIN(X)+X по формуле Y=Sin(X)+X Msg. Box “Y=”+Str(Y), , ”Результат” Вывод полученного Next X Y значения End Sub Конец Окончание алгоритма

Тестовое задание Задание № 1. Напечатайте таблицу умножения на 5. Предпочтительно печатать 1 x 5 = 5, 2 x 5 = 10, а не просто 5, 10 и т. д. Задание № 2. Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый день он увеличивал дневную норму на 10% нормы предыдущего дня. • Какой суммарный путь пробежит спортсмен за 7 дней? Задание № 3. С клавиатуры вводятся числа и последовательно суммируются. Найти количество введенных чисел, когда их сумма превысила 100.