While... Wend (Bucle-Repetición)

' gambas module file

' by postapase
' Da comienzo a un bucle delimitado por las instrucciones While ...WEND.
' El bucle se repite mientras la Expresión sea cierta.
' Si la expresión es falsa al inicio, el bucle nunca se ejecuta.

Public Sub Main()
Dim EntroEnBucle As Boolean ' el valor predeterminado de una variable de tipo boolean es false
Dim x As Integer

x = 1

While x <= 7 'si x es menor o igual a 7 entonces lea la siguiente linea sino lea a partir de la siguiente linea de Wend
Print "x ahora es: "; x
If EntroEnBucle = False Then EntroEnBucle = True
Inc x
Wend 'lea a partir del while

If EntroEnBucle = True
Print "Se entro en el bucle porque la condicion de entrada fue True/verdadera"
Else
Print "No se entro en el bucle porque la condicion de entrada fue false/falsa"
Endif

End

REPEAT ... UNTIL

' gambas module file
'by postapase

Public Sub Main()
Dim x As Byte ' declaración de variable pequeña

Repeat
Inc x 'incrementa x en 1
Print "x equivale a " & x 'muestra en pantalla
Wait 1 ' pequeña pausa para poder observar el proceso
Until x = 10 'REPEAT ... UNTIL Bucle con una comprobación de salida al final.

End