VB简单堆栈类的实现
2013-04-21 19:09
155 查看
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) 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 Peek = Stack(itemCount) End Function Sub Clear() itemCount = 0 ReDim Stack(itemCount) End Sub Public Function Count() Count = itemCount End Function
相关文章推荐
- 窗口界面编程之一:VB实现简单异形窗口
- 用vb.net与acess结合实现简单的电话号码本程序(一)
- vb.net 中通过反射实现简单工厂模式
- 用vb.net与acess结合实现简单的电话号码本程序(二)完
- 用VB实现程序之间的简单通信
- VB实现简单的图形区域选择
- VB简单实现防止文件被改写
- 用vb.net与acess结合实现简单的电话号码本程序(一)
- vb.net简单实现透明窗体显示出背景透明的png
- vb.net 中通过反射实现简单工厂模式
- vb简单实现运算符优先级的计算器
- vb.net实现简单的眼睛保护系统
- VB中简单服务端实现
- VB.net实现的一个简单的P2P示例
- 窗口界面编程之一:VB实现简单异形窗口
- 在VB.NET下利用Socket实现简单的字符串发送接收程序
- VB.NET多线程Socket实现简单HTTP服务
- 多用户打印中心VB简单实现
- 简单IE浏览器的VB实现
- VB简单实现窗口全透明