Question

小弟这有一个编程的题希望各位大哥大姐帮一下忙，用VB编，先谢谢了。

题是：“一个分数序列，求出这个序列前20项的和，1/2，3/2，5/3，8/5，13/8，21/13...........”尽量仅用循环语句编，本人刚学VB不久。先谢谢了 。

Answer 1

FOR i = -1 to 38
a=a+2
b=b+a
m=m+b/a
Next
d=Str(m)
d="结果为:" & d
d=Msgbox(d,1,"The answer!")

Answer 2

FOR i = -1 to 38
ku=ku+2
kb=kb+ku
m=m+kb/ku
next
msgbox m

Answer 3

Private Sub Command2_Click()
Dim m As Single, n As Single
Dim s As Single
m = 1
n = 2
s = 0
For i = 1 To 20
s = s + n / m
temp = n
n = n + m
m = temp
Next
Print s
End Sub