VB利用堆栈实现表达式计算

最新推荐文章于 2020-08-11 23:08:44 发布
最新推荐文章于 2020-08-11 23:08:44 发布
阅读量1.6k 收藏
点赞数 1
分类专栏： 算法 VB 数组 文章标签： vb 算法 堆栈 表达式 函数
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/greatbody/article/details/8836338
版权
VB 同时被 3 个专栏收录
17 篇文章 0 订阅
订阅专栏
算法
9 篇文章 1 订阅
订阅专栏
数组
4 篇文章 0 订阅
订阅专栏
VB利用堆栈实现表达式计算
    前几天对上学期老师的课件进行了深入学习后，我觉得有必要写个程序实践下，验证表达式计算设计十分正确。于是诞生了如下的程序。
    需要说明一点，这里的代码都是自主设计的，未参考网上的任何代码，所以，此代码拥有完全自主知识产权。
    版权所有，转载请注明出处：SunSoft
Form1.frm文件内容：
VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "表达式计算"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox Text2 
      Height          =   2415
      Left            =   2760
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   4
      Top             =   720
      Width           =   975
   End
   Begin VB.TextBox Text1 
      Height          =   2415
      Left            =   720
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   3
      Top             =   720
      Width           =   1215
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Command2"
      Height          =   615
      Left            =   3840
      TabIndex        =   2
      Top             =   480
      Width           =   735
   End
   Begin VB.TextBox SourceText 
      Height          =   270
      Left            =   120
      TabIndex        =   1
      Top             =   120
      Width           =   3615
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Calc"
      Height          =   300
      Left            =   3840
      TabIndex        =   0
      Top             =   120
      Width           =   735
   End
   Begin VB.Label Label2 
      Caption         =   "数字栈"
      Height          =   255
      Left            =   2040
      TabIndex        =   6
      Top             =   720
      Width           =   615
   End
   Begin VB.Label Label1 
      Caption         =   "操作符"
      Height          =   255
      Left            =   0
      TabIndex        =   5
      Top             =   720
      Width           =   615
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)  '声明
Dim opNum As New StackClass
Dim opChar As New StackClass

Private Sub Command1_Click()
    Dim sTxt As String
    Dim strNumFix As String
    Dim curChar As String
    Dim i As Long
    Dim ops1 As String, ops2 As String, opC As String
    '初始化堆栈
        opNum.Clear
        opChar.Clear
        Call UpdateShow
    '堆栈初始化结束
    sTxt = SourceText.Text
    For i = 1 To Len(sTxt)
        curChar = Mid(sTxt, i, 1)
        If IsSymbol(curChar) = True Then
            '看看数字预备区有没有
            If strNumFix <> "" Then
                opNum.Push strNumFix
                Call UpdateShow
                strNumFix = ""
            End If
redo:
            If IsHigh(curChar, opChar.Peek) = 1 Then 'if new come char is higher then push it to stack
                opChar.Push curChar '如果等级高的控制符，则进入
                Call UpdateShow
            ElseIf IsHigh(curChar, opChar.Peek) = 0 Then
                'Debug.Print "结果是：" & opNum.Pop
                'Exit Sub
                If curChar = "#" And opChar.Peek = "#" Then
                    opChar.Pop
                    Call UpdateShow
                    Debug.Print "输出结果是：" & opNum.Pop
                    Exit Sub
                End If
            ElseIf IsHigh(curChar, opChar.Peek) = -1 Then 'if low then ready to calculate
                ops2 = opNum.Pop
                Call UpdateShow
                ops1 = opNum.Pop
                Call UpdateShow
                opC = opChar.Pop
                Call UpdateShow
                opNum.Push CStr(Calc(ops1, ops2, opC))
                Call UpdateShow
                If curChar = ")" And opChar.Peek = "(" Then
                    opChar.Pop  '如果操作数是），就把（弹出来
                    Call UpdateShow
                    GoTo moveon
                End If
                GoTo redo
moveon:
            End If
        Else '非符号
            strNumFix = strNumFix & curChar
        End If
    Next i
    
End Sub

Private Sub Command2_Click()
MsgBox IsHigh("+", "+")
End Sub

Private Sub Form_Load()
Me.Show
opNum.Clear
opChar.Clear
End Sub
Function IsSymbol(ByVal strS As String) As Boolean
    IsSymbol = True
    Select Case strS
        Case "+"
        Case "-"
        Case "*"
        Case "/"
        Case "("
        Case ")"
        Case "#"
        Case Else
            IsSymbol = False
    End Select
End Function
Function IsHigh(ByVal sNew As String, ByVal sOld As String) As Integer
'1大于，-1小于，0等于
Select Case sNew
Case "+"
    Select Case sOld
        Case "("
            IsHigh = 1
            Exit Function
        Case "#"
            IsHigh = 1
            Exit Function
        Case Else
            IsHigh = -1
            Exit Function
    End Select
Case "-"
    Select Case sOld
        Case "("
            IsHigh = 1
            Exit Function
        Case "#"
            IsHigh = 1
            Exit Function
        Case Else
            IsHigh = -1
            Exit Function
    End Select
Case "*"
    Select Case sOld
        Case "("
            IsHigh = 1
            Exit Function
        Case "#"
            IsHigh = 1
            Exit Function
        Case "+"
            IsHigh = 1
            Exit Function
        Case "-"
            IsHigh = 1
            Exit Function
        Case Else
            IsHigh = -1
            Exit Function
    End Select
Case "/"
    Select Case sOld
        Case "("
            IsHigh = 1
            Exit Function
        Case "#"
            IsHigh = 1
            Exit Function
        Case "+"
            IsHigh = 1
            Exit Function
        Case "-"
            IsHigh = 1
            Exit Function
        Case Else
            IsHigh = -1
            Exit Function
    End Select
Case "("
    Select Case sOld
        Case "+"
            IsHigh = 1
            Exit Function
        Case "-"
            IsHigh = 1
            Exit Function
        Case "*"
            IsHigh = 1
            Exit Function
        Case "/"
            IsHigh = 1
            Exit Function
        Case "("
            IsHigh = 1
            Exit Function
        Case Else
            IsHigh = -1
            Exit Function
    End Select
Case ")"
    IsHigh = -1
    Exit Function
Case ""
    IsHigh = -1
    Exit Function
Case "#"
    Select Case sOld
        Case "#"
            IsHigh = 0
            Exit Function
        Case ""
            IsHigh = 1
            Exit Function
        Case "+"
            IsHigh = -1
            Exit Function
        Case "-"
            IsHigh = -1
            Exit Function
        Case "*"
            IsHigh = -1
            Exit Function
        Case "/"
            IsHigh = -1
            Exit Function
        Case ")"
            IsHigh = -1
            Exit Function
    End Select
End Select
End Function
Function Calc(ByVal op1 As String, ByVal op2 As String, ByVal options As String) As Double
On Error Resume Next
Calc = 0
Select Case options
    Case "+"
        Calc = CDbl(op1) + CDbl(op2)
    Case "-"
        Calc = CDbl(op1) - CDbl(op2)
    Case "*"
        Calc = CDbl(op1) * CDbl(op2)
    Case "/"
        Calc = CDbl(op1) / CDbl(op2)
End Select
End Function
Sub Delay(ByVal msec As Long) '函数：msec为毫秒数
DoEvents
Sleep msec
End Sub
Sub UpdateShow()
    DoEvents
    Text1.Text = opChar.ViewStack
    DoEvents
    Text2.Text = opNum.ViewStack
    DoEvents
    Call Delay(500)
End Sub
-----------------------------StackClass.cls文件内容----------------------------
VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "StackClass"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Private Stack() As String
Private itemCount As Long
Private Sub Class_Initialize()
    ReDim Stack(0)
    Stack(0) = "#"
End Sub
Public Sub Push(ByVal inString As String)
    ReDim Preserve Stack(itemCount + 1)
    Stack(itemCount + 1) = inString
    itemCount = itemCount + 1
End Sub

Public Function Pop() As String
    If itemCount >= 1 Then
        Pop = Stack(itemCount)
        ReDim Preserve Stack(itemCount - 1)
        itemCount = itemCount - 1
    Else
        Pop = ""
    End If
End Function
Public Function Peek() As String
    If itemCount = 0 Then
        Peek = ""
        Exit Function
    End If
    Peek = Stack(itemCount)
End Function

Sub Clear()
    itemCount = 0
    ReDim Stack(itemCount)
    Stack(itemCount) = "#"
End Sub

Public Function Count()
    Count = itemCount
End Function
Public Function ViewStack() As String
    Dim kOut As String
    Dim i As Long
    If itemCount = 0 Then ViewStack = "": Exit Function
    For i = 1 To itemCount
        kOut = kOut & Format(i, "00") & " " & Stack(i) & vbCrLf
    Next i
    ViewStack = kOut
End Function
 
greatbody
关注
专栏目录
VB堆栈的实现
laotou99的专栏
02-16 3132
VERSION 5.00 Begin VB.Form Form1 Caption = "Form1" ClientHeight = 3195 ClientLeft = 60 ClientTop = 345 ClientWidth = 4680 LinkTopic = "Fo
vb简单实现运算符优先级的计算器
Klein_Kartoffel的博客
06-18 4282
尝试写了一个计算器，VB大作业。从来没有接触过vb语言，只能硬着头皮上了。所幸窗体设计与C#相似。 设计了一个非常简易的计算器（其中利用栈实现了运算符优先级） 【界面如下】 组成包括Label控件2个，其中一个用来显示数学表达式，一个显示当前操作数字； 按钮17个，分别为10个数字0~9，小数点，四则运算按钮，等号按钮，清零按钮；   【设计思路】 一开始实现的是只能操作
表达式计算(vb源码)
09-25
表达式计算说明 很久就想编一个这样的计算器，只可惜一直没什么思路，最近突然灵感来了，所以就写下 这个程序。现在还在测试阶段，所以功能不是很完善。 程序功能：基本的表达式运算，可以自定义函数跟常量，分别保存在 “常数.txt” 和 “函数.txt”，方便自己添加。双击相应的函数名或常数名就可以将函数或常量添加到表达式中。 计算过程只能当表达式只有一行时有效。 实例1：计算sqr(19+tan(98)*tan(91)-sin(122)*(5*5-(19-11)))/2 计算过程sqr(19+tan(98)*tan(91)-sin(122)*(5*5-(19-11)))/2 =sqr(19+-7.11536972238419*tan(91)-sin(122)*(5*5-(19-11)))/2 =sqr(19+-7.11536972238419*-57.2899616307588-sin(122)*(5*5-(19-11)))/2 =sqr(19+-7.11536972238419*-57.2899616307588-.848048096156426*(5*5-(19-11)))/2 =sqr(19+-7.11536972238419*-57.2899616307588-.848048096156426*(5*5-8))/2 =sqr(19+-7.11536972238419*-57.2899616307588-.848048096156426*17)/2 =20.3032618253667/2 =10.1516309126834 实例2：计算 a=34 b=55 c=a+1 圆的面积(c) a*b c=a+b 圆的面积(c) 以下是计算结果： 圆的面积(c)=3848.4510006475 a*b=1870 圆的面积(c)=24884.5554090847 内置函数： !(x) - x 的阶乘 lg(x),log(x) 以10为底的对数 ln(x) 以 e为底x的对数 pow(x,y) x的y方次幂 prime(x) 判定x是否是素数，如果是直接将s2返回，否则将其各因子用连乘返回 sqr(x),sqrt(x) - x 的二次方根 arcsin(x) - x 的反正弦 arccos(x) - x 的反余弦 arcsec(x) - x 的反正割 arccsc(x) - x 的反余割 atn(x),arctg(x) - x 的反正切 arcctg(x) - x 的反余切 sin(x) - x 的正弦 cos(x) - x 的余弦 sec(x) - x 的正割 csc(x) - x 的余割 tg(x),tan(x) - x 的正切 ctg(x) - x 的余切 harcsin(x) - x 的反双曲正弦 harccos(x) - x 的反双曲余弦 harcsec(x) - x 的反双曲正割 harccsc(x) - x 的反双曲余割 harctg(x),harctan(x) - x 的反双曲正切 harcctg(x) - x 的反双曲余切 hsin(x) - x 的双曲正弦 hcos(x) - x 的双曲余弦 hsec(x) - x 的双曲正割 hcsc(x) - x 的双曲余割 htg(x),htan(x) - x 的双曲正切 hctg(x) - x 的双曲余切 有什么意见或建议可以跟我联系Email: ldm.menglv@gmail.com
VB简单堆栈类的实现
greatbody的专栏
04-21 1841
Private Stack() As String Private itemCount As Long Private Sub Class_Initialize() ReDim Stack(0) End Sub Public Sub Push(ByVal inString As String) ReDim Preserve Stack(itemCount + 1) Stac
VB表达式求值算法
03-24
此代码为表达式求值算法，结构清晰，代码整洁。
VB表达式计算器完整实现
03-08
主要是注释比较详尽。可以计算任意正则表达式。(包含所有计算函数，并非用脚本组件msscript.ocx实现)支持运算符+,-,*,/,\（整除）,%（求余）,^（乘方）和任意正确括号的嵌套。如输入"1+(2*3+4^5)/6-7"即可得到结果165.666666666667。希望对你有所帮助。
在VB下的表达式计算器
04-27
3. 分析输入的表达式，识别操作数和运算符，利用堆栈处理优先级和结合性。 4. 对于自定义函数，创建对应的函数处理模块。 5. 执行计算逻辑，更新结果显示标签。 6. 添加错误处理代码，遇到异常时给出提示信息。 ...
计算器_计算器_VB计算器_
10-02
下面将详细介绍如何利用VB来实现这样的计算器。 一、VB计算器的基本结构 1. 界面设计：首先，我们需要设计计算器的用户界面。这通常包括数字按钮（0-9），运算符按钮（+、-、*、/），等于号按钮（=），清除按钮（C...
VB计算器-可定义公式
10-28
VB没有内置的表达式解析器，所以开发者可能需要自行实现，或者利用第三方库。 6. **运算符优先级**：计算器必须正确处理不同运算符的优先级，如先乘除后加减，括号内的运算优先级更高。这可能需要用到堆栈数据结构...
2021-2022计算机二级等级考试试题及答案No.18370.docx
10-30
9. 在VB6.0中，使用LEFT函数可以从字符串的左侧截取指定长度的字符，所以截取"Visual"的表达式是LEFT("Visual Basic 6.0", 6)。 10. 计算机病毒可以通过网络传播和磁性介质传播，选择正确。 11. 树是非线性的数据...
在Visual Basic编程中堆栈和队列的应用
08-24
VB中利用数组（尤其动态数组）和自定义数据类型（Type Statement）完全可以描述诸如链表、栈、队列和二叉树这样的结构，并实现排序、查找等运算
VB栈的算法-模块实现
01-17
可以应用到计算器等的编写。有详细的说明。可以很好的看懂
Attribute属性
08-22
设置标题的文字属性
【原创】VB利用堆栈实现算术表达式计算
weixin_34034261的博客
04-23 172
这个抽象算法早已为人所知，只不过在VB的公开文档中鲜见示例代码。于是，为了提高自己的程序设计水平，锻炼自己的能力，我写了如下代码。 【VB代码版权所有，允许转载修改用作学习目的，转载必须注明来源】 【求大家看完后留言啊！】 堆栈类的实现： 1 Private Stack() As String 2 Private itemCount As Long 3 Private Sub...
VB.Net数据结构系列 第3章 栈和队列 3.1 栈
UruseiBest 的技术专栏
08-11 371
1、进制的计算，要换算的数字N，进制D（不超过十六进制）。 步骤一：N除以D，商为Q，余数为R， 根据ASCII表，R如果小于10，那么直接加上48，然后转为Char类型，对应0-9；R如果大于等于10，那么减去10，加上65，（或者直接加上55），然后转为Char类型，对应A-F。转换后的字符存入栈（Push）； 步骤二：N=Q，继续执行步骤一，直到商为0 步骤三：由于栈是先进后出，按照此原理，取出栈内的字符（Pop），就可以组成转换后的字符串。 Code3-1 Stack.vb： Pub
用数组实现一个简单的堆栈
技术代码资料库
10-19 248
堆栈（Stack）是一个比较普通，而又特别的数据结构。合理利用它的先进后出（FILO），有时候会有一些比较好的作用。这里面不多讲的它的应用，而是举一个很简单的例子来表明它的FILO特性，并用数组来实现一个堆栈算法。&lt;?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /&gt; 请看代码： ...
vb.net中栈、队列、数组、列表、链表的使用。
weixin_42150685的博客
04-30 2440
概述 数据结构实际上和算法关系很密切，很多算法的实现都配合数据结构来实现的，但是这不是这次内容，本次仅仅讲述各种数据结构的使用，至于实现，一篇文章根本不够讲。 栈的使用 栈在vb.net中用stack类封装，里面还有泛型栈stack(of T) 什么叫做栈呢？就像装乒乓球的纸筒，每个乒乓球就是栈的元素，先装进去的乒乓球位于筒的底部，后面的位于顶部。 在.net里用push表示把元素入栈，即把乒乓球...
VB使用堆叠对话框的一个方法
NightWolf的开发日志
01-31 1299
第一次使用VB，想做一个堆叠对话框的程序。就是想标签控件那种，但是不想把每个页上的控件都放在一个主控件里。想把每个页都使用一个Form或PropertyPage来组织。经过大量的实验和CSDN上同仁的友情帮助，略有小成，不敢独享，放在这里，抛砖引玉。希望大家还有更好的办法。Step 1 声明如下说明Public Declare Function SetParent Lib "user32" (By
《正则表达式》半个小时轻松入门 + 常用表达式整理
棋棋_攻城狮
02-08 1452
正则表达式之所以难学，我个人感觉是由于没有统一的标准。比如在我的电脑中搜索*.doc，代表查找所有的后缀为doc的文档，而在正则表达式中*代表数量匹配0次或者多次。所以初学者很容易搞晕。 本文目标 30分钟内让你明白正则表达式是什么，并对它有一些基本的了解，让你可以在自己的程序或网页里使用它。 如何使用本教程 最重要的是——请给我30分钟， 如果你没有使用正则表达式的经验，请不要试图在30
VB6.0正则表达式入门教程
1. **RegExp对象**：这是VB6中实现正则表达式功能的核心对象，用于定义和执行匹配模式。它有几个重要的属性： - **Pattern**：设置或获取正则表达式模式的字符串，用于匹配目标文本。 - **IgnoreCase**：布尔值，...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值