QBASIC 程序的解法

cls
for i=1 to 5
print i,(i+1)%5,(i+2)%5,(i+3)%5,(i+4)%5
next

CLS
FOR I=1 TO 5
FOR J=1 TO 5
PRINT USING "#";J;
NEXT
NEXT
END

还差得远呢。
INPUT N
FOR I=1 TO N
A$=A$+MID$(STR$(I),2)------形成1234....N的串
NEXT
A$=A$+A$
FOR I=1 TO N
PRINT MID$(A$,I,5)
NEXT

cls
for i = 1 to 5
a$=a$+mid$(str$(i),2,1)
next
for i = 1 to 5
print mid$(a$,i,5-i+1);
print mid$(a$,1,u-1);
print
next
end