天下一家·MJ

摘要： 后缀表达式转中缀表达式代码如下：Public Function TrueBackToMid(ByVal strBack As String) As String Dim i As Long Dim opCode() As String' Stop Dim ops1 As String, ops2 As String, opC As String '计算符表示，【保留】 '初始化堆栈 WorkStack.Clear '保留 '堆栈初始化结束 opCode = Split(strBack, ",")' Stop For i = 0 阅读全文

摘要： 根据老师上课讲的方法，完成了这些代码：下面代码基于StackClass.cls这个堆栈类，具体内容参见本博客其他博文。代码如下：Public WorkStack As New StackClassPublic Function CalcStringEx(ByVal numStr As String) As String '完成 Dim i As Long Dim opCode() As String' Stop Dim ops1 As String, ops2 As String, opC As String '计算符表示，【保留】 '初始化堆栈 W... 阅读全文