26.1.Циклічна структура for – next

Обчислювальні цикли реалізуються в Visual Basic за допомогою циклічної структури FOR – NEXT. Обчислювальний цикл може пририватися упереджено за допомогою EXIT   FOR.

Синтаксис:

FOR   змінна_циклу = початок   TO  кінець  STEP  крок

БЛОК

EXIT   FOR

БЛОК

NEXT   змінна_циклу

В даному випадку є ім'ям змінної, яка дозволяє підрахувати кількість повторів циклу. Змінні початок та  кінець визначають початкове та останнє значення для   змінної_циклу. Крок – величина нарощування зміної_циклу після кожного виконання перед новим повтором. Якщо значення кроку дорівнює одиниці, то його можна опускати (не вказувати).

Коли в програмі зустрічається цикл FOR – NEXT, змінна_циклу отримує значення початок, потім виконується блок коду до оператору   NEXT. Далі змінна_циклу змінюється на значення крок и порівнюється із значенням кінець. Якщо значення  змінна_циклу більше ніж значення кінець, цикл припиняє дію і передається керування до оператору, що знаходиться після оператора NEXT. Якщо значення  змінна_циклу менше або дорівнює значення кінець, то блок коду циклу виконується ще раз. І так продовжується завжди поки значення змінна_циклу не стане більше значення кінець.

Коли вході виконання блоку коду циклу зустрічається оператор EXIT   FOR, цикл негайно припиняє свою роботу і передає управління до оператору, що знаходиться після оператора NEXT.

Приклад, сигнал потрібно подати 10 разів, то код має вигляд:

FOR  I = 1 TO 10

BEEP ‘ сигнал

NEXT I ‘ I = I + 1

Приклад, Побудувати таблицю з десяти рядкі в стовпцях А, В, С (А-№ з/п, В - значення х задане користувачем через вікно повідомлення, С – ):

Sub Тable ()

Dim x, y As Single, i As Integer ‘ зміна I відповідає за номер рядка у таблиці

Range("A1").Value = "№ з/п" ‘ назва першого стовпчика у таблиці

Range("B1").Value = "Х" ‘ назва другого стовпчика у таблиці

Range("C1").Value = "У(х)" ‘ назва третього стовпчика у таблиці

For i = 2 To 11 ‘ заповнення таблиці починаючи з рядка під номером 2

x = Val(InputBox("x= ")) ‘ введення значення Х

y = Sqr(Abs(x - x ^ 2))  ‘розрахунок значення У за формулою для введеного Х

Cells(i, 1).Value = i-1 ‘заповнення елементу першого стовпчика

Cells(i, 2).Value = x ‘заповнення елементу другого стовпчика(значення Х)

Cells(i, 3).Value = y ‘заповнення елементу третього стовпчика(значення У)

Next i ‘ перехід до наступного значення і (нового рядка таблиці)

Range("A1:C1").Select ‘ вибір шапки створеної таблиці, для форматування

Selection.HorizontalAlignment = xlCenter ‘розташування по центру клітини

With Selection.Font ‘форматування шрифту для вибранного обєкту

.Name = "Arial Cyr" ‘шрифт - Arial Cyr

.FontStyle = "полужирный" ‘стиль шрифту - "полужирный"

.Size = 12 ‘розмір шрифту - 12

.ColorIndex = 5 ‘колір шрифту - синій

End With

Range("A15").Select ‘ перехід до клітини A15

End Sub

Процедура створення у вікні модуля Exel, результат роботи процедури відображається на поточному листі Лист2 - створено таблицю. Результат роботи програми надано на Рисунку 1.

Рисунок 1. Результат роботи процедури Тable