请教各位！关于算法·

Question

1）采用do loop方式
2）采用循环表，比如数组长度为256，一个写指针，一个读指针，如果读指针=写指针，则缓冲区空，如果写指针=读指针-1，表明缓冲区满，而读、写指针每次读、写+1就必须计算一次即 读指针 = 读指针 + 1：读指针 = 读指针 and 256，写指针也是如此。

Answer 1

试试我写的下面的例子：Dim coll As New Collection
Dim num As Long
Private Sub Command1_Click()
Dim avg As Double
avg = 0
Dim a(1 To 50) As String
For i = 1 To 50
a(i) = coll.Item(i)
avg = avg + Val(coll.Item(i))
Next
MsgBox "数据：" & Join(a(), ",") & vbCrLf & vbCrLf & "均值：" & avg / 50
End SubPrivate Sub Command2_Click()
num = num + 1
coll.Remove 1
coll.Add num
End SubPrivate Sub Form_Load()
For i = 1 To 50
coll.Add i
Next
num = 50
End Sub