[...] ByVal oper As Integer) As Integer Select Case oper Case "-"
Imports System.Console Module Module1 Sub Main() Dim val1 As Integer Dim val2 As Integer Dim opera As String Dim op As String Dim onContinue As String Do 'Saisie de l'opération Write("valeur1: ") val1 = ReadLine() Write("valeur2: ") val2 = ReadLine() Write("Operation :") opera = ReadLine() 'Calcul op = Operande(val1, val2, opera) Write(op) 'On continue ? Write(vbCrLf & "On Continue O/N ? ") onContinue = ReadLine() Loop Until onContinue.ToUpper = "N" End Sub Function Operande(ByVal valeur1 As Integer, ByVal valeur2 As Integer, ByVal oper As String) As String Dim chaine As String = "" Select Case oper Case "-" chaine "Résultat " & (valeur1 - valeur2).ToString Case "+" chaine "Résultat " & (valeur1 + valeur2).ToString Case "/" If valeur2 = 0 Then chaine = "La division par zero est impossible" Else chaine "Résultat " & (valeur1 / valeur2).ToString End If Case "*" chaine "Résultat " & (valeur1 * valeur2).ToString End Select Return chaine End Function End Module
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question