Question

VB6.0程序为什么不执行then后面的语句，所有的if都执行，所有的then后面的语句都不执行，不知道什么原因

Private Sub Command1_Click()
Dim i, left, right As Integer
Dim chArray(40)
For i = 0 To Len(Text1.Text)
left = 0 '表示左括号
right = 0 '表示右括号
If (chArray(i) = "(") Then left = left + 1
If (chArray(i) = ")") Then right = right + 1
Next i
While (left <> right)
If (left < right) Then
MsgBox "缺少左括号"
Else
MsgBox "缺少右括号"
End If
Wend
If (left = right) Then Text4.Text = Text1.Text
End Sub

Answer 1

Private Sub Command1_Click()
Dim i As Integer, l As Integer, r As Integer
Dim chArray(40) As Byte
chArray = StrConv(Text1.Text, vbFromUnicode)
For i = 0 To UBound(chArray)
    If Chr(chArray(i)) = "(" Then l = l + 1
    If Chr(chArray(i)) = ")" Then r = r + 1
Next i
If l < r Then
    MsgBox "缺少左括号"
ElseIf l > r Then
    MsgBox "缺少右括号"
Else
    Text4.Text = Text1.Text
End If
End Sub

追问

chArray(i) = StrConv(Text1.Text, vbFromUnicode)报错
实时报错‘13’
类型不匹配

用“chArray(i”实验的时候

then后面的语句依然不执行。
应该是l=1,r=0,提示缺少右括号啊

追答

Private Sub Command1_Click()
Dim i As Integer, l As Integer, r As Integer
Dim chArray() As Byte
chArray = StrConv(Text1.Text, vbFromUnicode)
For i = 0 To UBound(chArray)
    If Chr(chArray(i)) = "(" Then l = l + 1
    If Chr(chArray(i)) = ")" Then r = r + 1
Next i
If l < r Then
    MsgBox "缺少左括号"
ElseIf l > r Then
    MsgBox "缺少右括号"
Else
    Text4.Text = Text1.Text
End If
End Sub

Answer 2

1、你把if后面的括号都去掉，如：If (left = right) Then Text4.Text = Text1.Text改为：

If left = right Then Text4.Text = Text1.Text。

2、关键一点，你把
left = 0 '表示左括号
right = 0 '表示右括号
这两句放到For i = 0 To Len(Text1.Text)之前。

3、最后的While (left <> right)和Wend这两句去掉。

试以上三条后再看。

Answer 3

if then是条件语句 if后面的是条件then后面的语句当条件成立后才执行，说明你条件不成立，顺便问一下chArray(i)存放的是什么？

追问

把text1的内容赋给chArray(i)，忘记写了，不会写