' if z= 0 then bucleInfinito... salvo que se use exit for (exit sub, etc..) dentro del código, el programador es responsable de que en alguna ocasión se ejecute dicha salida...
w = x
If x < y Then ' controla si inicio es mayor que final
If (w + z) => x Then ' controla el paso
If w <= y Then ' controla si puede ejecutarse el bucle
RepetirA:
' codigo
w = w + z
If (w <= y) Then GoTo RepetirA ' controla si puede seguirse repitiendo el bucle
End If
End If
Else
If (w + z) <= x Then ' controla el paso
If w >= y Then
RepetirB:
' codigo
w = w + z
If (w >= y) Then GoTo RepetirB
End If
End If
End If