【VB】vb程序设计要求判断 输入一段字符，判断其是否符合括号语法法则

给你说说方法

从左边开始搜索 遇到（ S = S +1
遇到） S = S -1
如果S<0 说明 ）比（多

'在窗体上放一个文本框控件和一个按钮
'按钮的单击事件
Private Sub Command1_Click()
Dim str As String
Dim count As Integer '计算括号数量
Dim i As Integer '循环变量

count = 0
str = Text1.Text

For i = 1 To Len(str) '循环判断文本框中的每一个字符
If Mid(str, i, 1) = "(" Then count = count + 1
If Mid(str, i, 1) = ")" Then count = count - 1
If count < 0 Then '当右括号多于左括号是提示并跳出过程
MsgBox "右括不正确!"
Exit Sub
End If
Next

If count > 0 Then
MsgBox "左括号多了!" '当左括号多时提示
Else
MsgBox "括号配套正确!"
End If
End Sub