数列是：1，1，2，3，5，8，13，21，34……
S=9.273724E+20

本程序就是求Fibonacci数列的第3项到第100项之和。
其实用高精度才是准确的。
程序：
DECLARE FUNCTION gjdadd$ (x$, y$)
CLS
a$ = "1": b$ = "1": s$ = "0"
FOR i = 3 TO 100
    c$ = gjdadd$(a$, b$)
    s$ = gjdadd$(s$, c$)
    a$ = b$: b$ = c$
NEXT i
PRINT s$
END

FUNCTION gjdadd$ (x$, y$)
lx = LEN(x$): ly = LEN(y$)
IF lx < ly THEN l = ly ELSE l = lx
DIM a(l), b(l), s(l + 1)
FOR i = 1 TO lx: a(i) = VAL(MID$(x$, lx + 1 - i, 1)): NEXT i
FOR i = 1 TO ly: b(i) = VAL(MID$(y$, ly + 1 - i, 1)): NEXT i
FOR i = 1 TO l
    s(i) = s(i) + a(i) + b(i)
    IF s(i) >= 10 THEN s(i) = s(i) - 10: s(i + 1) = s(i + 1) + 1
NEXT i
IF s(i) <> 0 THEN l = l + 1
FOR i = l TO 1 STEP -1
    z$ = z$ + RTRIM$(LTRIM$(STR$(s(i))))
NEXT i
gjdadd$ = z$
END FUNCTION

好象是以一个人名命名的，大兔子生小兔子的那个。叫拉波什么的一个人，呵呵，大家见笑了。

费波拉契 数列，
从第三项开始，是前两项之和。不是什么大兔子生小兔子，也是费波拉契提出的

程序如下：
input n
a=0:b=1
print a;b;
for i=3 to n
  c=a+b
  print c;
  a=b:b=c
next i

这不就是一个数列嘛!
第1第2项等于1,从第3项开始,每项等于它前两项的和.