有一个搞不懂的问题 数列的基础 请勿见笑

Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, i As Integer, s As Integer
a = 0: b = 1: i = 2: s = 1
Text1 = Str(a) & Space(5) + Str(b) + Space(5)
For i = 3 To 20
  c = a + b
Text1 = Text1 & Str(c) & Space(5)
a = b
b = c
s = s + c
Next i
Label2.Caption = Str(s)

End Sub
在这道题中 为什么令？ i =2 s =1
麻烦解答一下
                       谢谢！

i=2是无所谓的，赋几都行，因为没用到。

为什么s赋1得看你的问题是啥对吧？

回复 2# multiple1902 的帖子

i=2是没区别的吗 我试试 我的问题是：一般情况下 for i = 1 to 100 这里的 i =1 是循环初值 对不对
s 赋 1 是因为 a =0 b = 1     a + b = 0 + 1 = 1 所以 s =1

这道题已经搞懂了（贝格曼数列的问题）

Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, i As Integer, s As Integer
a = 0: b = 1: i = 2: s = 1       ，i初始没有用
Text1 = Str(a) & Space(5) + Str(b) + Space(5)       ，文本框内显示a和b的值
For i = 3 To 20
  c = a + b
Text1 = Text1 & Str(c) & Space(5)      
a = b     ,把a的值赋给a
b = c      把c的值 既（a + b)赋给a
s = s + c     s是Label2.Caption 显示用
Next i
Label2.Caption = Str(s)

End Sub