End Select

Оператор Case Else передає управління групі операторів тоді, коли жодна умова у створеній структурі Select Caseне може бути виконана.

ЛЕКЦІЯ 15

1.1. Використання циклів

1.1. Використання циклів

Цикли типу For ... Next.Такий тип циклів має у своїй конструкції змінну-лічильник, для якої задають її початкове значення, дані для зміни цього значення у процесі виконання циклу, кінцеве значення. Цикл виконується доти, доки поточне значення змінної-лічильника не дорівнюватиме кінцевому; далі буде виконуватися оператор, розташований після опису циклу. При створенні циклу типу For... Nextможна також додавати крок приросту (або зменшення) значення змінної-лічильника, але він не є обов'язковим. Загальний вигляд операторів циклу такий:

 

For <змінна>= початкове значення То <кінцеве значення [Step<число>]

група операторів, що виконуються в циклі

Next [змінна]

 

У наведеному нижче прикладі початкове значення змінної-лічильника дорівнює 2, крок приросту — 2, кінцеве значення змінної-лічильника— 15. Після виконання чергового кроку циклу до змінної-лічильника додається значення 2, а розраховане значення порівню­ється з кінцевим (15). Якщо останнє ще не досягнуто, то друкується черговий рядок, інакше цикл закінчує свою роботу і управління передається оператору, розташованому після опе­ратора Next(у програмі — це команда на закінчення процедури обробки події активізації кнопки).

Вивід непарних чисел:

For i= 1 То 15 Step 2

MsgBox (Str(l))

Next і

 

Програма сумування парних чисел:

 

s = 0

For І = 2 То N Step 2

S = S + i

Next і

Цикли типу Do.

В циклах такого типу група операторів виконується доти, доки істинною є умова, якою може бути логічний вираз (наприклад, Pinkod = "999") або функція, що повертає логічне значення (наприклад, EOF).Такого типу цикли використовуються тоді, коли невідома кількість повторень циклу. Є два види цього оператора:

Do While <умова> — виконується доти, доки істиною є умова;

Do Until <умова-> — виконується доти, доки умова є хибною.

Загальний вигляд циклу типу Do такий:

Do While <умова>

група операторів, що виконуються