DEMO:集合模拟缓存

这个例子就是利用集合的概念来动态模拟缓存的操作。集体的做法就是定义一个缓存集合，通过时钟控件来动态添加要处理的信息（即一些随机数）并且利用一个do-while循环来删除缓存中的数据（即事件控件动态添加的随机数）。

设计界面：

功能代码：

Option Explicit
Dim cocah As New Collection
Dim runing As Boolean

Private Sub Command1_Click()
    Dim data As Long
    Dim i, k As Long
    runing = True
    Do While (runing)
        If (cocah.count > 0) Then
            data = cocah.Item(1)
            For i = 1 To 10000
                k = i * 3.1415926 - (1 / 1.4144)
                DoEvents
            Next i
            cocah.Remove 1
            Text1.Text = data & "-" & cocah.count
        End If
        DoEvents
    Loop
End Sub

Private Sub Command2_Click()
    runing = False
End Sub

Private Sub Command3_Click()
    Timer1.Enabled = True
End Sub

Private Sub Command4_Click()
    Timer1.Enabled = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
    runing = False
    Set cocah = Nothing
End Sub

Private Sub Timer1_Timer()
    Static count As Long
    count = count + 1
    Timer1.Interval = Rnd * (1000 - 50) + 50
    cocah.Add Int((Rnd * 2000))
End Sub