Option Strict On : Option Explicit On
Imports System.Console
 
Module Module1
 
    Sub Main()
 
        Dim Argumente() As String = Environment.GetCommandLineArgs
 
        Dim op1, op2, ergebnis As Single
        Dim operation As String
 
        If Argumente.Length > 4 Then
            WriteLine("zuviele Argumente")
            Exit Sub
        ElseIf Argumente.Length < 4 Then
            WriteLine("zuwenig Argumente")
            Exit Sub
        End If
 
        If Not Single.TryParse(Argumente(1), op1) Then
            WriteLine("ungeeignetes 1. Argument")
            Exit Sub
        End If
 
        If Not Single.TryParse(Argumente(3), op2) Then
            WriteLine("ungeeignetes 2. Argument")
            Exit Sub
        End If
 
        operation = Argumente(2)
 
        Select Case operation
 
            Case "*"
                ergebnis = op1 * op2
            Case "/"
                ergebnis = op1 / op2
            Case "-"
                ergebnis = op1 - op2
            Case "+"
                ergebnis = op1 + op2
            Case Else
                WriteLine("kein passender operator")
                Exit Sub
        End Select
 
        WriteLine("{0} {1} {2} = {3}", op1, operation, op2, ergebnis)
 
        Threading.Thread.Sleep(4000)
        Environment.Exit(0)
    End Sub
 
End Module