les programmes de takamichi =D

Module Module1
   Sub Main()
       Dim Variable As Integer = 1
       Dim Nombre1 As Integer
       Dim Nombre2 As Integer
       Dim Nombre3 As Integer
       Dim Nombre4 As Integer
       Dim Resultat As Integer


       Console.WriteLine("  -----------Console d'adition de 4 nombres maximums------------")
       While Variable = 1
           Console.WriteLine("INSTRUCTIONS : Si vous ne voulez additionner que 2 ou 3 nombre mettez au nombre que vous ne voulez pas additionner '0'")
           Console.WriteLine()


           Console.WriteLine("Ecrivez votre 1er nombre")
           Nombre1 = Console.ReadLine()
           Console.WriteLine()

           Console.WriteLine("Ecrivez votre 2eme nombre")
           Nombre2 = Console.ReadLine()
           Resultat = Nombre1 * Nombre2

           Console.WriteLine("Ecrivez votre 3eme nombre")
           Nombre3 = Console.ReadLine()
           Console.WriteLine()

           Console.WriteLine("Ecrivez votre 4eme nombre")

           Nombre4 = Console.ReadLine()
           Console.WriteLine()
           Resultat = Nombre1 + Nombre2 + Nombre3 + Nombre4

           Console.Write(Nombre1)
           Console.Write("+" & Nombre2)
           Console.Write("+" & Nombre3)
           Console.Write("+" & Nombre4)
           Console.WriteLine("=" & Resultat)

           Console.WriteLine()
           Console.WriteLine()
           Console.WriteLine("Tapez 1 pour recommencer tapez 0 pour arreter")
           Variable = Console.ReadLine()
           Console.WriteLine()
           Console.WriteLine()
       End While






       Console.Read()

   End Sub
End Module

O_O
48 ko*
moi d'un megaoctey mais c'est terrible pour un navigateur internet