Private Sub Command1_Click()
Dim s As Single
Dim i As Long
Dim a As Long
Dim b As Long
Dim c As Long
a = 1
b = 1
s = 0
For i = 1 To 30
s = s + a / b
c = a
a = b
b = b + c
Next
Print s
End Sub
dim s as integet
s = 1
for i = 2 to 30
s = s + (i-1)/i
next i
print s
数列的规律是已知的还是要靠猜的？如果是已知请说明规律？如果是靠猜的话，有限的数列有无穷多种规律，每种规律的计算结果会不一样
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024