Цикл For...next

[Sholah]

Перейду сразу к вопросу. Как в тело цикла вставить условие, такое, чтобы при его невыполнении цикл дальше не продожал работу. Пробовал-ругается, что For без Next.

Код: Выделить всё


1: For i = 0 To 4
    If ExAr(i) > ExAr(i + 1) Then
     t = ExAr(i)
     ExAr(i) = ExAr(i + 1)
     ExAr(i + 1) = t
if FLAG=true then
     GoTo 1
    End If
   Next i


Заранее благодарен.

[GSerg]

Для начала, было неплохо проявить долю уважения к участникам форума и отформатировать приведённый код.

После чего можно задаться вопросом: а что если заменить условие на обратное?

[pronto]

Конечно, сложно понимать такие вопросы, но, возможно, для спрашивающего это немного прояснит картину...

Код: Выделить всё

1: For i = 0 To 4
      If ExAr(i) > ExAr(i + 1) Then
         t = ExAr(i)
         ExAr(i) = ExAr(i + 1)
         ExAr(i + 1) = t
         'If FLAG = True Then GoTo 1
      Else
         Exit For
      End If
   Next i

[Sholah]

Хочу извиниться за непотребный вид куска кода, но я на этом форуме впервые и многих тонкостей не знаю-при вставке копи-пастем код был вполне отформатированным, что с нима произошло потом-про то не ведаю, но впредь буду внимательнее.
2 pronto
Теперь вылазиет ошибка, что End IF без блока IF. Из огня да в полымя.

[GSerg]

Не верю.

[Sholah]

Опять-таки жутко извиняюсь, виновата моя рассеяность. Все правильно, всем спасибо за посильную помощь.

[Sholah]

Решил не создавать новую тему-нечего форум загрязнять. Собсно вопрос - что такое Exit For, и есть ли что-то, наподобие этого оператора, только действующего диаметрально противоположно?
Заранее благодарен

[Amed]

Exit For - оператор, позволяющий делать при необходимости досрочный выход из цикла.

Код: Выделить всё

For i = 1 To 10
    MsgBox i
    If i = 5 Then Exit For
Next i

В данном примере будет только пять сообщений вместо десяти.
Диаметрально противоположно - это как?

[Sholah]

Я подозревал, что Exit For - выход из цикла, поэтому и написал, что надо что-то типа того же только наоборот.

Код: Выделить всё


If FL = True Then
е=у
FL = False
Else
Exit For
End If


С помощью какого оператора можно с истинным условием продолжить работу цикла?

[GSerg]

С помощью оператора БудуЧитатьОтветыНаСвойВопрос().

а что если заменить условие на обратное?

[Sholah]

Я не силен в программировании на васике (да проятят меня гуру Basik'а), но если если сделать так, как ты сказал, то получится след. картина:

Код: Выделить всё


If FL = false Then
exit for
Else
тут будет продолжение цикла.
End If


Скорее всегоя я чего-то недопонимаю, и, если не трудно, не мог бы ты, GSerg, написать работоспособный код?

[GSerg]

А этот код не работоспособен?

[Роман-вб]

Собсно вопрос - что такое Exit For, и есть ли что-то, наподобие этого оператора, только действующего диаметрально противоположно?

Что может быть противоположным выходу из цикла? Наверное вход в него

[Sholah]

Блин, совсем я тогда не догоняю. Может кто-нибудь приведет кусок кода, наглядно показывающий что впичавать между Else и End if?
Буду презнателен.

[GSerg]

Продолжение цикла.


Если, конечно, под словами "продолжение цикла" автор вопроса понимает то же, что все остальные собравшиеся.

"Продолжение цикла" - это действие, которое заключается в чём?

[Роман-вб]

А тот код, который приведён выше -- плохой?
То же самое, но другими словами:

Код: Выделить всё

If УсловиеВыполняется Then
   ...
   ...
Else
   Exit For
End Ff

[Sholah]

2 GSerg
Да! Вообщем я думаю, что многие из здесь присутствующих меня недопонимают.
Что я хочу донести-если в теле цикла условие выполняется, то продолжить работу этого цикла, если нет, то Exit For. Думаю сейчас должнобыть немного понятней.

[vvs_adm]

Sholah
Вот твой обычный цикл:

Код: Выделить всё

For Переменная=НачальноеЗначение To КонечноеЗначение
   Тело цикла
Next Переменная

А вот цикл с выходом

Код: Выделить всё

For Переменная=НачальноеЗначение To КонечноеЗначение
   If УсловиеВыхода Then Exit For

   Тело цикла
Next Переменная

Только мне кажется, что кое кто прикалывается просто ...

[Роман-вб]

vvs_adm

Только мне кажется, что кое кто прикалывается просто ...

Это точно.