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