zoukankan      html  css  js  c++  java
  • 堆栈在VBA中的实现

    Option Explicit
    '定義堆棧的結構
    Public Type StackStruct
            
            Size As Integer  '當前Stack中元素的個數
            Pointer As Integer      '指向Stack中棧頂的指針
            MaxElementCount As Integer      'Stack中可以放入的元素的個數
            Element() As Integer    'Stack中用於放置元素的數組
            
    End Type
    '根椐用戶指定的StackSize來創建一個堆棧
    Public Function CreateStack(StackSize As Integer) As StackStruct
            Dim h As StackStruct
            h.Pointer = -1
            h.Size = 0
            h.MaxElementCount = StackSize
            ReDim h.Element(StackSize - 1) As Integer
            CreateStack = h
    End Function
    '判定堆棧是否為空
    Public Function StackEmpty(h As StackStruct) As Boolean
            StackEmpty = (h.Pointer = -1)
    End Function
    '判定堆棧是否己滿
    Public Function StackFull(h As StackStruct) As Boolean
            StackFull = (h.Size = h.MaxElementCount)
    End Function
    '將元素Ikey壓入堆棧
    Public Function Push(ByRef h As StackStruct, Ikey As Integer) As Boolean
            '若堆棧己滿,則返回False
            If StackFull(h) Then Push = False: Exit Function
                   
            h.Pointer = h.Pointer + 1
            h.Element(h.Pointer) = Ikey
            h.Size = h.Size + 1
    End Function
    '將元素彈出堆棧
    '若己棧,則返回False
    Public Function Pop(ByRef h As StackStruct) As Variant
            If StackEmpty(h) Then
                    Pop = False
            Else
                    Pop = h.Element(h.Pointer)
                    h.Pointer = h.Pointer - 1
                    h.Size = h.Size - 1
            End If
            
    End Function

  • 相关阅读:
    centos 安装 Lamp(Linux + Apache + PHP) 并安装 phpmyadmin
    mysql常用内置函数-查询语句中不能使用strtotime()函数!
    Windows下 wamp下Apache配置虚拟域名
    thinkphp ajax调用demo
    phpMailer 手册
    wampServer2.2 You don't have permission to access /phpmyadmin/ on this server.
    打印对象
    最全的CSS浏览器兼容问题
    html 视频播放器
    C语言入门-结构类型
  • 原文地址:https://www.cnblogs.com/strivers/p/2767954.html
Copyright © 2011-2022 走看看