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