今天计算机课刚刚提交的作业，肯定没错~
Private Sub Command1_Click()
Dim a() As Long
Dim sum As Long
Dim n As Integer
Dim i As Integer
n = Val(Text1.Text)
ReDim a(1 To n) As Long
If n = 1 Then
sum = 1
Else
a(1) = 1
a(2) = 1
sum = 2
For i = 3 To n Step 1
a(i) = a(i - 1) + a(i - 2)
sum = sum + a(i)
Next i
End If
Text2.Text = sum
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024