End Sub. Результат выполнения программного кода цикла с предусловием с использованием универсального оператора цикла DO LOOP представлен на рисунке 11.5

Loop

txtIk.Value = I

Результат выполнения программного кода цикла с предусловием с использованием универсального оператора цикла DO … LOOP представлен на рисунке 11.5. Фрагмент программного кода данного примера отображается на форме внутри элемента управления типа Label (метка).

Рис. 11.5. Форма для примера 3 (Цикл-Пока)

Для реализации так называемого цикла со счётчиком (с параметром) используется оператор FOR … NEXT (см.). Блок-схема соответствующей алгоритмической структуры показана на рисунке 11.6. По сути, это частный случай цикла с предусловием. При этом действие, изменяющее значение счётчика с заданным шагом, вынесено из тела цикла непосредственно в заголовок (символ подготовки).

Рис. 11.6. Цикл с параметром

Фрагмент программного кода для примера 4 на языке VBA

Dim strY As String * 15

Dim strX As String * 7

Dim I As Integer

Rad = Atn(1) * 4 / 180 'коэффициент для перевода градусной меры угла в радианы

I = 0

For x = -180 To 180 Step 10

I = I + 1

strI = I

strX = x

ModX = Abs(x)

If ModX > 89 And ModX < 91 Or ModX > 269 _

And ModX < 271 Then

strY = "-Нет решения"

Дата добавления: 2014-10-22