اختبار هياكل السيطرة والحلقات

If condition Then

Endif

If Variable1 = Variable2 Then

Public Sub Main()

  Dim age As Integer

  Print "How old are you ? "
  Input age

  If age >= 18 Then
    Print "You are major."
  Else
    Print "You are minor."
  Endif

End

' Gambas module file

Public Sub Main()

  Dim power As Integer = 15  'power in ch

  If puissance < 15 Then
    Print "Do you want to change your car? :p "
  Endif

End

Public Sub Main()

  Dim power As Integer = 15  'power in ch

  If puissance < 15 Then Print "Do you want to change your car? :p "

End

Public Sub Main()

  Dim pays As string

  Print "De quel pays venez-vous ?"
  Input pays
  pays= lcase(pays) 'remove uppercases

  Select Case pays
     Case "france"
        Print "Bonjour !"
     Case "england"
        Print "Hello !"
     Case "espana"
        Print "Ola !"
     Case "portugal"
        Print "Hola !"
     Case Else
        print"??"
  End Select

End

Public Sub Main()

  Dim i As Integer

  For i = 1 To 5
    Print "Value of i: " & i
  Next

End

Value of i: 1
Value of i: 2
Value of i: 3
Value of i: 4
Value of i: 5

Public Sub Main()

  Dim result As integer

  Print "How many two and two ?"

  Do
     Input result
  Loop Until result = 4

  PRINT "Congratulation! You have found :-) "

End

Do
  Input result
Loop While result <> 4

' Gambas module file

Public sub Main()

  Dim age As Integer

  While age < 10
    Inc age
    Print "Value of age : " & age
  Wend

End

Value of age : 1
Value of age : 2
Value of age : 3
Value of age : 4
Value of age : 5
Value of age : 6
Value of age : 7
Value of age : 8
Value of age : 9
Value of age : 10