Операторы операторы

Loop Loop

Использование условия типа While — продолжения цикла. Операторы повторения выполняются, если значение Условного выражения равно True (Истина). В противном случае цикл завершается.

Использование условия типа Until — завершения цикла. Операторы повторения выполняются, если значение Условного выражения равно False (Ложь). В противном случае цикл завершается.

Очевидно, что всегда можно заменить условие типа While условием типа Until, и наоборот. Для этого нужно использовать логическое отрицание Условного выражения.

Приведенный фрагмент программы с этими операторами будет иметь вид:

Dim Massiv(1 To 5), S As Single, I As Integer

I=1

Do While I<=5

Massiv(I) = Val(InputBox("Введите элемент массива " & Str(I), "Окно ввода"))

I=I+1

Loop

S = 0

I=1

Do While I<=5

S = S + Massiv(I) -этот оператор выполняется пока I<=5

I=I+1

Loop

MsgBox "Сумма элементов массива равна " & Str(S),, "Ответ"