VB.Net-评估字符串中的数学表达式

Dim expression As String = "2 + 3 * 4 / 2"

Dim values As New List(Of Double)

For Each token As String In expression.Split("+"c)
    Dim operator As String = token.Trim()
    Dim right As Double = values(values.Count - 1)
    Dim left As Double = values(values.Count - 1 - (operator = "/"))

    Select Case operator
        Case "*"
            values.Add(left * right)
        Case "/"
            If right = 0
                Throw New ArgumentException("Cannot divide by zero.")
            values.Add(left / right)
        Case Else
            Throw New ArgumentException("Unknown operator.")
    End Select
Next

Dim result As Double = values(0)
For Each value As Double In values
    result = result * value
Next

Console.WriteLine(result)