Imports System.Console
 
Module Module1
 
    Sub Main(ByVal Argumente() As String)
        Dim op1, op2, ergebnis As Single
        Dim operation As String
 
        If Argumente.Length > 3 Then
            WriteLine("zuviele Argumente")
            Exit Sub
        ElseIf Argumente.Length < 3 Then
            WriteLine("zuwenig Argumente")
            Exit Sub
        End If
 
        op1 = Argumente(0)
        op2 = Argumente(2)
        operation = Argumente(1)
 
        Select Case operation
 
            Case "*"
                ergebnis = op1 * op2
                WriteLine(ergebnis)
 
            Case "/"
                ergebnis = op1 / op2
                WriteLine(ergebnis)
 
            Case "-"
                ergebnis = op1 - op2
                WriteLine(ergebnis)
            Case "+"
                ergebnis = op1 + op2
                WriteLine(ergebnis)
            Case Else
                WriteLine("kein passender operator")
                Exit Sub
 
        End Select
 
        WriteLine("{0} {1} {2} = {3}", op1, operation, op2, ergebnis)
 
    End Sub
 
End Module