Циклы. Цикл с параметром цикла

Оператор Select Case выполняет только одну группу операторов. По выполнению одного из условий будут выполнены соответствующие этому условию операторы. Select Case завершит свою работу. Остальные условия проверяться не будут.

End Select

Select Case X

End Select

Управляющий оператор Select

End Sub

Else

И Окно функци InputBox Примера 1

Используя синтаксис языка Visual Basic 6.0,можно осуществлять перенос части

строки оператора на следующую физическую строку программы с использованием сим-

вола подчёркивания “_” после пробела. Программа Примера 1 будет выглядеть в виде:

Private Sub ПУСК_ Click()

Dim X As Single

X= InputBox (“Введите значение X”)

TxtХ. Text = Х

If X > 0 Then

TxtРез. Text = X: _

Lbl1. Caption = “ Х - положительное” _

ElseIf X = 0 Then

TxtРез. Text = X: _

Lbl1. Caption = “Значение Х равно 0” _

TxtРез. Text = X: _

Lbl1. Caption = “ Х - отрицательное”

В программе условный оператор If представлен в виде однострочного оператора, но с использованием символа “_”. Программа стала компактнее на 4 строки и отсутствуют ключевые слова End If.

В языке Visual Basic 6.0 для организации разветвляющихся вычислительных процессов имеется управляющий оператор, обеспечивающий выполнение требуемых действий (выполнение требуемой группы операторов) но не в зависимости от заданных условий, а на основании анализа значения заданного выражения (нескольких условий) – оператор выбора Select Case.

Синтаксис оператора:

Select Case <анализируемое выражение>

Case <значение1>

операторы1

Case <значение2>

операторы2

...

Замечание: выполняется только одна группа операторов!!!

Пример 2:

Значения анализируемого выражения сравниваются со значениями <значение1>

<значение2>... и при совпадении с одним из них выполняется соответствующая группа операторов (операторы1,операторы2...). Для решения рассмотренного примера 1

оператор Select Case запишется в виде:

Case 1 To 9

Lbl1. Caption = “Значение больше 0”

Case 0

Lbl1. Caption = “Значение равно 0”

Case -9 To -1

Lbl1. Caption = “Значение меньше 0”

Замечание:

Для организации повторяющихся действий в программах в языке Visual Basic 6.0 используются следующие типы циклов:

– с параметром цикла For... Next;

– цикл с условием Do... Loop;

– цикл с условием While... Wend.

Цикл с параметром цикла имеет следующую конструкцию:

For параметр_цикла = выр1 To выр2 [ Step выр3] – заголовок цикла

оп 1: оп 2: ¼ оп L

................ тело цикла

................

оп N

Next параметр_цикла - конец цикла

где:

- параметр цикла – арифметическая переменная;

- выр1 – указывает начальное значение параметра цикла;

- выр2 – задаёт конечное значение параметра цикла;

- выр3 – задаёт величину шага, т.е. приращения, получаемого пара­метром цикла

после каждого выполнения тела цикла. Если опция Step выр3 отсутствует,

то приращение (величина шага) принимается равным 1.

Все выражения имеют арифметический тип.

При обращении к оператору цикла сначала вычисляются величина шага и значения выражений 1 и 2 (они не могут быть изменены в теле цикла).

При положительном шаге выполнение тела цикла происходит, если параметр цикла £ выр2, иначе выход из цикла (проверка в конце цикла).

При отрицательном шаге выполнение тела цикла происходит, если параметр цикла ³ выр2, иначе выход из цикла.

Всякий раз при выходе на оператор Next значение параметра цикла изменяется на величи-

ну шага.

Оператор Exit For, размещённый в теле цикла, осуществляет немедленный выход из цикла.

Примеры:

1. For I = 1 To 20 Step 3

...

Next I 'цикл выполняется при I=1, 4, 7, 10, 13, 16, 19

2. For I = 10 To 1

...

Next I ‘цикл не выполняется

3. For I =10 To 1 Step –4

...

Next I Цикл выполняется при I = 10, 6, 2

4. Вычислить F = 15!

...

F = 1

For I = 2 To 15

F = F * I

Next I

...

5. Вычислить сумму S. Если сумма превысит значение 100, выйти досрочно из цик-

ла. Напечатать количество слагаемых:

Дата добавления: 2014-01-04