UC知道vb的填空题，高手请进~~~
来源：百度知道 编辑：UC知道 时间：2024/05/20 11:23:00
检查输入文字段中大括号是否匹配，并显示结果。以enter键作为输入结束标志。
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim x As Integer, y As String
y = ——————
If y = "{" Then
x = x + 1
ElseIf y = "}" Then
————————
End If
If KeyAscii = 13 Then
If ———— Then
Print "左右大括号匹配"
ElseIf ———— Then
Print "左边括号多"; x; "个"
Else
Print "右边括号多"; x; "个"
End If
End If
End Sub
注：print后面的x都要为正整数！
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim x As Integer, y As String
y = ——————
If y = "{" Then
x = x + 1
ElseIf y = "}" Then
————————
End If
If KeyAscii = 13 Then
If ———— Then
Print "左右大括号匹配"
ElseIf ———— Then
Print "左边括号多"; x; "个"
Else
Print "右边括号多"; x; "个"
End If
End If
End Sub
注：print后面的x都要为正整数！
Private Sub Text1_KeyPress(KeyAscii As Integer)
static x As Integer, y As String '此处不能用Dim
y = chr(KeyAscii)
If y = "{" Then
x = x + 1
ElseIf y = "}" Then
x = x- 1
End If
If KeyAscii = 13 Then
If x=0 Then
Print "左右大括号匹配"
ElseIf x>0 Then
Print "左边括号多"; x; "个"
Else
Print "右边括号多"; abs(x); "个" '这里也要改
End If
End If
End Sub