Студопедия.Орг Главная | Случайная страница | Контакты | Мы поможем в написании вашей работы!  
 

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 <умова>

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

Loop

Do

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

Loop While < умова>.

Різниця між такими циклічними блоками полягає в місці перевірки значення умовного виразу (на початку циклу або в кінці). Відповідно змінюється також розташування змінної (або кількох змінних), значення якої аналізується в умові.

У кожному новому кроці циклу перевіряється умова. Тому важливо при створенні програми стежити за тим, щоб у тілі циклу значення змінної в умові циклу могло бути змінено так, аби умова стала хибною, тобто цикл закінчився.

Нехай, наприклад, треба встановити у перших п'яти реченнях документа Word розмір шрифту 24. Тоді фрагмент програми матиме такий вигляд:

І=1

Do

ActiveDocument.Sentences(i).Font.Size = 24

і=і+1

Loop While і < 6

Наступний блок циклічних операторів працює доти, доки не буде виконана умова:

Do Until <умова>

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

Loop

Наприклад, всі слова документа будуть зроблені курсивом. За допомогою властивості Count знайдемо N:

N = ActiveDocument.Words.Count ' N - кількість слів в активному документі.

і=1

Do Until і > N

ActiveDocument.Words(i).Font.Italic = True

Loop

Розглянемо приклад:

Знайти суму S та добуток P парних чисел від 1 до n.

Створимо форму, на якій розмістимо два текстових поля та кнопку. Введення величини n передбачимо за допомогою вікна InputBox.

Текст програми:

Private Sub Command1_Click()

Dim s As Single

Dim p As Single

Dim n As Integer

Dim i As Integer

n = InputBox("введення даних", "введіть n")

s = 0

p = 1

For i = 2 To n Step 2

s = s + i

p = p * i

Next i

Text1.Text = s

Text2.Text = p

End Sub

ЛЕКЦІЯ 16

1.1. Робота з масивами

1.2. Змінні з індексами

1.3. Одномірні масиви

1.4. Основи роботи з одновимірними масивами





Дата публикования: 2014-11-18; Прочитано: 432 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!



studopedia.org - Студопедия.Орг - 2014-2024 год. Студопедия не является автором материалов, которые размещены. Но предоставляет возможность бесплатного использования (0.007 с)...