VB 檢查圓括號是否配對

Dim b$, c%, d%, m%

d = 0

m = 0

For c = 1 To Len(TextBox1.Text)

b = Mid(TextBox1.Text, c, 1)

If b = "(" Then d = d + 1

If b = ")" Then m = m + 1

Next c

If d <> m Then MsgBox("不匹配")

'看見源碼中b的定義沒有，是string，不是integer。妳用的%是integer，字符串應該是$。

'另外就如syx54說的壹樣，d=0、e=0應該放在for循環c之前；檢驗文本應該在所有驗證之後，就是在for循環c之後。

'還有就是無論在什麽編程中都要少用中間變量，盡量減少程序長度，不僅可以加快程序運行速度，還可以讓人壹目了然