QBASIC打印图形应该怎么做

1、打印图形的程序如下：(规律太难找啦)
FOR I=1 TO 4
X=11
FOR J=1 TO 5-I
PRINT X-(I+J);
NEXT J
PRINT
X=X+I-4
NEXT I
END
2、求数列2/1,3/2,8/5,21/13,55/34,144/89前20项之和程序如下：
DIM A[21]
A[1]=1
A[2]=2
S=A[2]/A[1]
FOR I=2 TO 20
A[I+1]=A[I]+A[I-1]
S=S+A[I+1]/A[I]
NEXT I
PRINT S
END
以上两题已经上机调试通过。

天那QB...
十多年了 早都忘记了
实在不好意思

图形
cls
a=10
for I=4 to 1 step -1
for J=1 to I
print a-j; (如果间隔过大可以用字符串函数来解.这里不做介绍)
next J
a=a-I
print
next I
end

用FOR做