27.1.Вживання циклу do-loop

Цей цикл є найбільш універсальним з логічних циклів. Існує 4 конфігурації цього циклу (з передумовою ; постумовою та перевіркою на істину; хибність):

1. Умова TRUE на початку

2. Умова TRUE в кінці

3. Умова FALSE на початку

4. Умова FALSE в кінці

DO  WHILE   умова БЛОК [EXIT DO] БЛОК LOOP	DO  UNTIL   умова БЛОК [EXIT DO] БЛОК LOOP
DO БЛОК [EXIT DO] БЛОК LOOP   WHILE   умова	DO БЛОК [EXIT DO] БЛОК LOOP  UNTIL   умова

Оператор EXIT DO – призначений для передчасного припинення циклу і зазвичай застосовується в структурі IF, яка перевіряє альтернативну умову переривання циклу.

При читанні даних з файлу можна використовувати функцію EOF() для перевірки чергової частини файлу і пошуку маркера кінця.

Приклад: Пошук першого позитивного елементу масиву.

Function Example2(Massive) As Single

DIM J As Integer, Value As Integer

J = LBOUND(Massive) – 1 ‘ визначення нижнього індексу набору Massive

DO ‘ початок циклу

J = J +1 ‘ нарощення індексу

IF J>UBOUND(Massive) Then ‘ порівняння J з верхнім індексом набору Massive

Value = CVErr(xlErrValue) ‘ визначення коду помилки, якщо не ‘знайдеться ні одного позитивного елементу набору Massive

EXIT DO ‘ переривання циклу

END IF

Value = Massive(J) ‘ вибір значення елементу масиву за номером J

LOOP UNTIL Value > 0 ‘ перевірка значення елементу

Example2 = Value

End Function

27.2.Вживання циклів WHILE-WEND

Цикл WHILE-WEND – еквівалентний структурі DO WHILE - LOOP

Синтаксис:

WHILE умова

.

WEND

У структурі WHILE-WEND не застосовується оператор EXIT, що дозволяє переривати цикл до його виконання, а також відсутня можливість записати умову в кінці циклу.

Контрольні завдання по темі

1. Теоретичні питання

2. Тести

3. Практичні завдання

Вбудовані діалогові вікна

Існують різні способи організації введення і виведення даних — от діалогових вікон до дискових файлів.

Visual Basic надає можливість застосовувати діалогові вікна для здобуття даних від користувача і для передачі йому інформації. Окрім власних вбудованих діалогових вікон, Visual Basic може використовувати всі діалогові вікна Excel або Project. Додатково надається можливість використовувати діалогові вікна у творенні користувачем.

1. Вживання функції MsgBox()

Функція MsgBox() забезпечує створення діалогового вікна, подібного до простого вікна повідомлення. Якщо вікно повідомлення всього лише відображує повідомлення для користувача, то діалогове вікно вимагає від користувача і деяких дій з введення даних. Воно відображує рядок тексту, а потім чекає, поки користувач натискуватиме командну кнопку. У простому випадку діалогове вікно містить одну командну кнопку ОК, яку користувач повинен натискувати для підтвердження прийому повідомлення і закриття діалогового вікна. Можна розширити можливості такого вікна, додавши деяку кількість командних кнопок і надавши їм деяке повернене значення, вказуючи, яку командну кнопку натискував користувач.