当前位置:首页 » VB程序题 » 正文

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://www.wb98.com/post/138.html

    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号