VB程序题：检查表达式输入中圆括号配对问题。要求对文本框输入的算术表达式，检验其圆括号配对情况，并给出相应信息，如图2.3.5所示。当单击“重置”按钮，清除文本框输入的内容、窗体显示的信息和计算……

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程序设计教程(第四版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://wb86.com/post/138.html