Private Sub Command1_Click()
a = 2
b = 1
s = 0
For i = 1 To 20
s = s + a / b
c = a + b
b = a
a = c
Next i
Print s
End Sub
