vb输出斐波那契级数1、1、2、3、5、8、13……,当某项的数值大于或等于30000时结束.输出斐波那契级数1、1、2、3、5、8、13……,当某项的数值大于或等于30000时结束.此级数项的规律是：前两项

Question

vb 输出斐波那契级数1、1、2、3、5、8、13……,当某项的数值大于或等于30000时结束.
输出斐波那契级数1、1、2、3、5、8、13……,当某项的数值大于或等于30000时结束.此级数项的规律是：前两项的值各为1,从第3项起,每一项是前2项的和.（要求一行输出6项）

Answer 1

Private Sub Command1_Click()
dim a,b,c,i as integer
a=1:b=1:i=2
print a;b
do
i=i+1
c=a+b
a=b:b=c
print b;
if i mod 6=0 then print
loop until b>=30000
End Sub