五笔打字通主页
VB程序题:检查表达式输入中圆括号配对问题。要求对文本框输入的算术表达式,检验其圆括号配对情况,并给出相应信息,如图2.3.5所示。当单击“重置”按钮,清除文本框输入的内容、窗体显示的信息和计算,并对窗体级变量赋初值零,便于再次输入和统计。
提示:
1.在过程外最上方声明一个窗体级变量n,存放统计括号配对的情况;
2.在Text1_KeyPress(KeyAscii As integer)事件过程中进行如下处理:
If Chr(KeyAscii)不是等号 Then
若是左括号”(”则n=n+1;
若是右括号”)”则n=n-1;
Else
结束表达式输入,对n的3种情况:=n、>0、<0用Print方法显示相应的信息
End If
用一个嵌套的双分支和内嵌两个多分支结构来实现。
解题:按要求建立一个文本框和一个按钮控件。相应的代码如下:
Dim n!
Private Sub Command1_Click()
Text1.Text = ""
n = 0
Cls
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) <> "=" Then’当输入=号时,开始判断配对情况。
If Chr(KeyAscii) = "(" Then
n = n + 1
End If
If Chr(KeyAscii) = ")" Then
n = n - 1
End If
Else
If n = 0 Then
Print "括号配对成功";
Else
If n > 0 Then
Print "左括号多于右括号" & n & "个,按“重置”按钮,重新输入"
End If
If n < 0 Then
Print "右括号多于左括号" & -n & "个,按“重置”按钮,重新输入"
End If
End If
End If
End Sub
程序运行效果图如下:
Visual Basic程序设计教程(第四版) (龚沛曾等编)课后实验源码
来源:济亨网
本文链接:https://wb98.com/post/138.html