VB编写Fibonacci数列的前20项,25项，30项，三个按钮20. 25 .30 ，结果在label中显示

Private Function Fibonacci(ByVal n As Long) As Long
If n <= 2 Then
Fibonacci = 1
Else
Fibonacci = Fibonacci(n - 1) + Fibonacci(n - 2)
End If
End Function

Private Sub Command1_Click()
Dim o As Long
For i = 1 To 20
o = o + Fibonacci(i)
Next
Label1 = o
End Sub

Private Sub Command2_Click()
Dim o As Long
For i = 1 To 25
o = o + Fibonacci(i)
Next
Label1 = o
End Sub

Private Sub Command3_Click()
Dim o As Long
For i = 1 To 30
o = o + Fibonacci(i)
Next
Label1 = o
End Sub

Private Sub Command1_Click()
Dim sum As Long
For i = 1 To 20
sum = sum + Fibonacci(i)
Next
Label1 =sum
End Sub

Private Sub Command2_Click()
Dim sum As Long
For i = 1 To 25
sum= sum + Fibonacci(i)
Next
Label1 = sum
End Sub

Private Sub Command3_Click()
Dim sum As Long
For i = 1 To 30
sum = sum + Fibonacci(i)
Next
Label1 =sum
End Sub