朋友们，帮我看看这个简单的程序是什么问题吧？先谢过！！

Question

程序要求：在列表框内显示出斐波那契数列的前15项！对象窗口主要有一个列表框、一个按钮，还有一个标签。程序中代码如下：Private Sub Command1_Click()
   Dim f(15) As Integer
   List1.Clear
   f(1) = 1: f(2) = 1
   p = Format("Fib(" & 1 & "):", "!@@@@@@@@@@@") & Format(f(1), "########")
    List1.AddItem p, 0
    
    For i = 3 To 15
      f(i) = f(i - 1) + f(i - 2)
      p = Format("Fib(" & i & "):", "!@@@@@@@@@@@") & Format(f(i), "########")
      List1.AddItem p, i - 1  ‘这一行显示说是“无效的过程调用或参数”
    Next      
End Sub调试错误是：
      List1.AddItem p, i - 1  ‘这一行显示说是“无效的过程调用或参数” 我不知道什么原因，在线请高手指教一下吧！先谢谢了！

Answer 1

Private Sub Command1_Click()
   Dim f(15) As Integer
   List1.Clear
   f(1) = 1: f(2) = 1
   p = Format("Fib(" & 1 & "):", "!@@@@@@@@@@@") & Format(f(1), "########")
    List1.AddItem p, 0
    
    For i = 3 To 15
      f(i) = f(i - 1) + f(i - 2)
      p = Format("Fib(" & i & "):", "!@@@@@@@@@@@") & Format(f(i), "########")
      List1.AddItem p' 不要  i - 1  
    Next      
End Sub

Answer 2

或者变成：
List1.AddItem P, I - 2^_^

Answer 3

因为前面定义了索引0没有索引1
加一行空白列List1.AddItem "",1就行了

Answer 4

List1.AddItem p  （去掉，i-1）或写成List1.AddItem p, i - 3    '索引应有效合法

Answer 5

List1.AddItem p, i - 2