Private Sub Command1_Click()Dim a(1 To 10) As IntegerPrint 1Print 1a(1) = 1a(2) = 1For i = 3 To 10a(i) = a(i - 1) + a(i - 2)Print a(i)Next iEnd Sub很简单,只要把数据累加上去就可以了,不过可能还有更简便的方法