后一个数是前三个数据相加，定义个数组就可以实现
Const ItemCount = 20
Dim Item()
ReDim Item(1 To ItemCount)
Item(1) = 1
Item(2) = 1
Item(3) = 1
Dim i As Integer
For i = 4 To ItemCount
Item(i) = Item(i - 3) + Item(i - 2) + Item(i - 1)
Next
MsgBox Join(Item, ",")
内容全部来源于网络收集，如有侵权，请联系网站删除！