摘要：后缀表达式转中缀表达式代码如下：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... 阅读全文

摘要：有问题的话，欢迎留言。类文件代码如下：Private ContentString As StringPrivate ItemCount As LongPrivate Nodes() As NodePrivate Type Node preID As Long leftID As Long leftValue As Long rightID As Long rightValue As Long selfValue As Long selfContent As Integer visited As Integer ... 阅读全文

摘要：这个抽象算法早已为人所知，只不过在VB的公开文档中鲜见示例代码。于是，为了提高自己的程序设计水平，锻炼自己的能力，我写了如下代码。【VB代码版权所有，允许转载修改用作学习目的，转载必须注明来源】【求大家看完后留言啊！】堆栈类的实现： 1 Private Stack() As String 2 Private itemCount As Long 3 Private Sub Class_Initialize() 4 ReDim Stack(0) 5 Stack(0) = "#" 6 End Sub 7 Public Sub Push(ByVal inString As Stri 阅读全文