以下程式在輸入1*(2+3)*4-5時，輸出應為123+*4*5-，可是卻是輸出123+*4-5*
請問要怎麼修改才行呢...？

Dim length As Integer = Len(TextBox1.Text) 'textbox1主要是放輸入的中序式
Dim i As Integer
Dim top As Integer = -1
Dim v As String
Dim Postfix_string As String '後序式字串
Dim stack(length) As Char '堆疊

v = TextBox1.Text
i = 0

While i < length
Select Case v(i)
Case "(" '當遇到(直接壓入堆疊
top += 1
stack(top) = v(i)

Case ")" '遇到)時，堆疊作POP，直到遇到(

Wh ..

訪客只能看到部份內容，免費 加入會員 或由臉書 Google 可以看到全部內容

會用到的一段副程式，忘了貼

  Function priority(ByRef op As Char) As Integer
    Select Case op
        Case "$"
          Return 1
        Case "*", "/"
          Return 2
        Case "+", "-"
          Return 3
        Case "("
          Return 4
    End Select
  End Function

自行解決了...

    Dim top As Integer = 0

    While top > 0
改了這二行
有興趣的人可以拿去用