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

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

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

if then是条件语句 if后面的是条件then后面的语句当条件成立后才执行，说明你条件不成立，顺便问一下chArray(i)存放的是什么？追问把text1的内容赋给chArray(i)，忘记写了，不会写

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这两句去掉。
试以上三条后再看。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息