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