FreeBasic 图形打印程序填空：1 1 1 1 1 2 2 2 2 1 3 3 3 2 1 4 4 3 2 1 5

FreeBasic 图形打印程序填空：1 1 1 1 1 2 2 2 2 1 3 3 3 2 1 4 4 3 2 1 5 4 3 2 1
N=5
DIM AS INTEGER A(N,N),I,J
FOR I=1 TO N
FOR J=1 TO N
IF __________ THEN K=I ELSE K=_____________
PRINT TAB(J*4);K;
NEXT J
___________
NEXT I
SLEEP:END
1 1 1 1 1
2 2 2 2 1
3 3 3 2 1
4 4 3 2 1
5 4 3 2 1