Module Module1

    Sub Main()
        Dim choix As String = ""
        Dim valeurentree As String = ""
        Dim nombre1 As Double = 0
        Dim nombre2 As Double = 0
        Console.WriteLine("------Calculatrice------")
        Console.WriteLine("------Addition------")
        Console.WriteLine("------Soustraction------")
        Console.WriteLine("------Division------")
        Console.WriteLine("------Multiplication------")
        Do
            Console.WriteLine("Quelle opération souhaitez vous effectuer?")
            choix = Console.ReadLine()

        Loop Until choix = "Addition" Or choix = "Soustraction" Or choix = "Division" Or choix = "Multiplication"
        Do
            Console.WriteLine("Entrez le premier nombre")
            valeurentree = Console.ReadLine()
        Loop Until IsNumeric(valeurentree)
        nombre1 = valeurentree
        Do
            Console.WriteLine("Entrez le second nombre")
            valeurentree = Console.ReadLine()
        Loop Until IsNumeric(valeurentree)
        nombre2 = valeurentree
        Select Case choix
            Case "Addition"
                Console.WriteLine("Le résultat est :" & nombre1 + nombre2)
            Case "Soustraction"
                Console.WriteLine("Le résultat est :" & nombre1 - nombre2)
            Case "division"
                Console.WriteLine("Le résultat est " & nombre1 / nombre2)
            Case "Multiplication"
                Console.WriteLine("Le résultat est :" & nombre1 * nombre2)
        End Select
        Console.Read()
    End Sub

End Module