Циклы. Цикл с параметром цикла
Оператор 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 =Х
IfX > 0 Then
TxtРез.Text =X: _
Lbl1.Caption = “Х - положительное” _
ElseIfX = 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 запишется в виде:
Case1 To9
Lbl1.Caption= “Значение больше 0”
Case0
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. ForI = 1 To20 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
ForI = 2 To 15
F = F * I
NextI
. . .
5.Вычислить сумму S. Если сумма превысит значение 100, выйти досрочно из цик-
ла. Напечатать количество слагаемых: