Private Sub form_Click()
Dim fz%, fm%, f%, i%, s!
fz = 1
fm = 2
s = 0
For i = 1 To 20
s = s + fz / fm
f = fz + fm
fz = fm
fm = f
Next i
Print s;
End Sub
原文地址:https://www.cnblogs.com/xbnl-bk-zm-2018/p/10947121.html
时间: 2024-10-08 05:48:30