程序代码：

'''Stack.cls
Public Function Peeking() As Variant
    
End Function

Public Function Poping() As Variant
       
End Function

Public Sub Puting(ByVal S As Variant)
    
End Sub


Public Sub Dispose()

 
End Sub

程序代码：

'''IntStack.cls

Implements Stack

Private StackArr As New Collection



Private Sub Stack_Dispose()

 Set StackArr = Nothing
End Sub

Private Function Stack_Peeking() As Variant
    If StackArr.Count > 0 Then
       Stack_Peeking = StackArr.Count
    End If
End Function

Private Function Stack_Poping() As Variant
       Stack_Poping = CInt(StackArr.Item(StackArr.Count))
       StackArr.Remove (StackArr.Count)
End Function

Private Sub Stack_Puting(ByVal S As Variant)
       StackArr.Add CInt((S))
End Sub

程序代码：

'''StrStack.cls

Implements Stack

Private StackArr As New Collection



Private Sub Stack_Dispose()

 Set StackArr = Nothing
End Sub

Private Function Stack_Peeking() As Variant
    If StackArr.Count > 0 Then
       Stack_Peeking = StackArr.Count
    End If
End Function

Private Function Stack_Poping() As Variant
       Stack_Poping = CStr(StackArr.Item(StackArr.Count))
       StackArr.Remove (StackArr.Count)
End Function

Private Sub Stack_Puting(ByVal S As Variant)
       StackArr.Add CStr((S))
End Sub

程序代码：

Private Sub Form_Click()

Dim S1 As Stack
Set S1 = New IntStack

S1.Puting (3)
S1.Puting (2)
S1.Puting (6)


Debug.Print S1.Poping
Debug.Print S1.Poping

Debug.Print S1.Peeking

S1.Dispose

Set S1 = New StrStack

S1.Puting ("XXX")
S1.Puting ("YYY")
S1.Puting ("ZZZ")

Debug.Print S1.Poping
Debug.Print S1.Poping
Debug.Print S1.Poping


End Sub

程序代码：

Private m_Flag As Boolean                                   '私有成员
Private m_GetData As Boolean
Private m_CompressByte As Boolean



Private Sub UserControl_Initialize()
    m_Flag = False                  '在控件初始化阶段将m_Flag设置False
End Sub

Public Property Set Flag(ByVal Value As Boolean)      '只写属性

        m_Flag = Value
        Timer1.Enabled = m_Flag
        
End Property

'''''''获得函数返回值设置成属性''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Property Get CompressByte() As Boolean         '只读属性

End Property

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Property Get GetData() As Boolean              '只读属性

End Property

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


Private Function CompressByte(ByteArray() As Byte) As Boolean    '私有函数
    
End Function



Private Function GetData() As Boolean                             '私有函数
  
End Function


Private Sub SetArry(param() As Byte)

End Sub


Private Sub SetFlag()

End Sub


Private Sub Timer1_Timer()
'CompressByte(ByteArray() As Byte)
'GetData()
'SetArry(param() As Byte)
'SetFlag()
End Sub