Добавление условий в цикл (For... Next)

For $i=0 To Ubound($a)-1

For $i=0 To Ubound($a)-1
If $c=1 then
;Выполняем какое-то действие,
ElseIf $c=0 then 
MsgBox(0,'','строка:'$i)
Next
EndIf

Local $a[10] = [0,0,0,1,0,0,1,1,0,0]

For $i = 0 To Ubound($a) -1

	$c = $a[Random(0, 9, 1)]
	Switch $c
		Case 1
			ConsoleWrite('Выполняем какое-то действие...' & @CRLF)
			$i -=1
		Case 0
			MsgBox(64, @ScriptName, 'строка: #' & $i, 1)
	EndSwitch
Next

Global $c = 0

AdlibRegister('_myfunc')


While 1
	Sleep(3000)
	$c = Not $c
WEnd


Func _myfunc()
	
	Switch $c
        Case 1
            ConsoleWrite('Выполняем какое-то действие...' & @CRLF)
        Case 0
            ConsoleWrite('Простой...' & @CRLF)
	EndSwitch
EndFunc ;==>_myfunc

$i = 0
While $i < UBound($a)
  If $c Then
    ; Выполняем какое-то действие
  Else
    $i += 1 ; увеличиваем счётчик
  EndIf
WEnd

Global $i = 0
While 1
	For $i=$i To 1
		If 1 Then
			; ...
			ExitLoop ; $i не меняем. Выходим из цикла
		EndIf
	Next
	; Попадем сюда
	If 1 Then ExitLoop ; Без условия выхода из While получится бесконечный цикл
WEnd