S=0 累加器清0，也可省略
DIM A(1000) 這邊是定義數組，1000是終值，下標肯定不會超過1000
A(0)=0:PRINT A(0)
A(1)=1:PRINT A(1)
A(2)=1:PRINT A(2)
S=2 前三項之和
FOR I=3TO 1000 三TO1000是因為前三個有值了
A(I)=A(I-3)+A(I-2)+A(I-1)
S=S+A(I)
IF S<1000 THEN PRINT A(I); ELSE EXIT FOR (EXIT FOR)是退出FOR循環
NEXT I
END
方法二：用DO LOOP循環
CLS
S=0 累加器清0，也可省略
DIM A(1000) 這邊是定義數組，1000是終值，下標肯定不會超過1000
A(0)=0:PRINT A(0)
A(1)=1:PRINT A(1)
A(2)=1:PRINT A(2)
S=2 前三項之和
DO
I=3 從第三項開始
A(I-3)+A(I-2)+A(I-1)
S=S+A(I)
IF S<1000 THEN PRINT A(I); ELSE EXIT DO (EXIT DO)是退出DO循環
LOOP 這不是死循環，因為有EXIT DO
END
方法三： 用DO LOOP UNTIL 循環
CLS
S=0 累加器清0，也可省略
DIM A(1000) 這邊是定義數組，1000是終值，下標肯定不會超過1000
A(0)=0:PRINT A(0)
A(1)=1:PRINT A(1)
A(2)=1:PRINT A(2)
S=2 前三項之和
DO
I=3 從第三項開始
A(I-3)+A(I-2)+A(I-1)
S=S+A(I)
PRINT A(I)
LOOP UNTIL S>1000
END
第三種方法會輸出第壹個超出的那項，我個人喜歡用第二種
程序是自己編的，如果有雷同不是我的錯！