用VB编写求2/1，3/2，5/3，8/5.。。。。前20项的和的代码

Private Sub Command1_Click()
Dim S As Double
Dim T As Integer
Dim R As Integer
Dim M As Integer

T = 2
R = 1
S = 0
For i = 1 To 20
S = S + T / R
Print T & " " & R & " = " & S
M = R
R = T
T = M + T

Next i
End Sub

32.66026？

Private Sub Command1_Click()
Dim m(1 To 20) As Integer
Dim n(1 To 20) As Integer
m(1) = 1
n(1) = 2
m(2) = 2
n(2) = 3
For i = 2 To 20
m(i) = m(i - 1) + m(i - 2)
n(i) = n(i - 1) + m(i - 1)
Next i

s! = 0
For i = 1 To 20
s! = s! + n(i) / m(i)
Next i

MsgBox s!
End Sub

规律:

2/1 ,3/2 ,5/3 ,8/5

第一个分子加分母的和为第二个数的分子,第一个数的分子为第二个数的分母

代码:
dim a=2,b=1
for i=1 to 20
sum=sum+a/b
a=a+b
b=a
next

最后sum就是前20项的和

代码没有运行过,但我想应该没有问题,你试试看吧

dim i as integer