vb语言一个数列:1,1,2,3,5,8,13, 这个数列从第三项开始,每一项都等于前两项之和求和

Question

vb语言一个数列:1,1,2,3,5,8,13, 这个数列从第三项开始,每一项都等于前两项之和求和求m项和

Answer 1

这种计算逻辑性、顺序性很强的。
Private Sub Form_Click()
Dim a As Long, b As Long, c As Long
a = 0: b = 1: c = 1
Print a; b; c
For i = 0 To 36
Select Case i Mod 3
Case 0
a = b + c
Print a;
Case 1
b = a + c
Print b;
Case 2
c = a + b
Print c
End Select
Next
End Sub