我是个VB菜鸟 请高手帮忙看下下面代码哪里错了 给点意见谢谢啦！

Question

Private Sub Command1_Click()
Text1.Text = ""
Print
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
Static x As Integer
Dim str As String
str = x
If str = "{" Then
x = x + 1
Else
If str = "}" Then x = x - 1

End If
If KeyAscii = 13 Then
If x = 0 Then
Print "左右大括号配对"
Else
If x > 0 Then
Print "左大括号多"; x; "个"
Else
Print "右大括号多"; x; "个"
End If
End If
End If
可以运行 但是总感觉有问题

Answer 1

Private Sub Command1_Click()
Text1.Text = ""
Form1.Cls
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
Static x As Integer
Dim str1 As String
Dim str2
str1 = x
If KeyAscii = 13 Then
For i = 1 To Len(Text1.Text)
str2 = Mid(Text1.Text, i, 1)
If str2 = "{" Then
x = x + 1
Else
If str2 = "}" Then x = x - 1
End If
Next
If x = 0 Then
Print "左右大括号配对"
Else
If x > 0 Then
Print "左大括号多"; x; "个"
Else
Print "右大括号多"; x; "个"
End If
End If
End If
x = 0 '把x值变为0,否则在次运算时候接上回的结果,运算不准
End Sub

Answer 2

Dim str As String
这个STR也能做变量的么?记得不能的吧,要么我记错了,我也是很菜的

Answer 3

你那{ 和 }怎么来的啊 总的有个变量去接受那keyascii的值才能判断是{还是}