VB.NET编程技巧与实例集粹 Module5_输入简单表达式并求值



Module Module5_输入简单表达式并求值
    Sub Main()
        REM 定义存放表达式的字符串变量
        Dim Expression As String
        REM 定义存放操作数的两个单精度变量
        Dim opNumber1, opNumber2 As Single
        REM 定义存放操作符的字符串数组
        Dim opChars() As String = {"+", "-", "*", "/"}
        Dim opChar, opString1, opString2, Result As String
        Dim iCount, nPos As Integer
        Console.WriteLine("请输入一个简单表达式，如：1.1+1.3")
        REM 输入字符串表达式
        Expression = Console.ReadLine()
        REM 调用Trim方法去掉expression两端的空格
        Expression = Expression.Trim()
        REM 在字符串中查找空格，并删除
        While Expression.IndexOf(" ") >= 0
            Expression = Expression.Remove(Expression.IndexOf(" "), 1)
        End While