for for

Module Module1

    Sub Main()

        Dim A, B As Integer

        For A = 0 To 10

            For B = 0 To 10

                Console.Write("a=")

            Next

            Console.WriteLine()

        Next

        Console.Read()

    End Sub

End Module

source

WHHILE

le Module1

    Sub Main()

        Dim a, b As Integer

        a = 0

        a = 2

        While a < 10

            Console.WriteLine("a=" & a)

            a = a + 1

        End While

        Console.Read()

    End Sub

End Module

SOURCE

IF

Module Module1

    Sub Main()

        Dim a, b As Integer

        a = 7

        b = 5

        If a = 7 Then

            If b = 5 Then

                Console.Write("correcte")

            Else

                Console.Write("faux")

            End If

        Else

            Console.Write("faux2")

        End If

        Console.Read()

    End Sub

End Module