2/1+3/2+5/3+8/5+13/8+21/13+......有20个这样的分数相加，谁能用VB把这题编出来？

来源：百度知道 编辑：UC知道 时间：2024/05/27 12:18:10
有没有最简单的答案？
谢谢！

Private Sub Command1_Click()
Dim i As Integer, dbl1 As Double, d1(1 To 20) As Double, d2(1 To 20) As Double
d1(1) = 2: d1(2) = 3: d2(1) = 1: d2(2) = d1(1)
For i = 3 To 20
d1(i) = d1(i - 1) + d1(i - 2)
d2(i) = d1(i - 1)
Next i
For i = 1 To 20
dbl1 = dbl1 + d1(i) / d2(i)
Next i
Print dbl1
End Sub

ps： 32.6602607986416

Dim a As Integer, b As Integer, c, d As Integer, i As Integer

Private Sub Command1_Click()
a = 2
b = 1
i = 1
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
c = c + b / a
d = b
b = a
a = a + d
Text1.Text = c
i = i + 1
If i = 20 Then Timer1.Enabled = False
End Sub

一个Timer一个TextBox一个CommandButter

Option Explicit

Private Sub Form_Load()
'''''''''''''''''''''''''