Module Module1 'lance la console

    Sub Main() 'commence la lecture principal du code source

        Console.WriteLine("Entrer la 1ere valeur:")  'ecrit dans la console "Entrer la 1ere valeur:"

        Dim Var1 As String = Console.ReadLine()     'cre une variable qui contiendra la 1ere valeur

        Console.WriteLine()
        Console.WriteLine("Entrer la 2ere valeur:")  'ecrit dans la console "Entrer la 2ere valeur:"

        Dim Var2 As String = Console.ReadLine()     'cre une variable qui contiendra la 2ere valeur
        Dim var3 As String = Var1 * Var2

        Console.WriteLine()
        Console.Write(Var1 & " x " & Var2 & " = " & var3)

        'ecrit la 1ere valeur tap puis x puis la 2ere valeur tap puis = et enfin la variables "var3" ici le resulat 
        'exemple ecris dans la console avec 8 et 9 (8 x 9 = 72) 

        If var3 > 10000000 Then
            Console.WriteLine()
            Console.WriteLine("Il se peut que le resultat est bug")
            Console.Read() 'attend que la toucher Enter soit enfoncer
        End If

        Console.Read() 'attend que la toucher Enter soit enfoncer

    End Sub          'fin de la lecture principal du code source

End Module 'ferme la console