苍井麻衣作品番号:编程打印图形(qbasic)

来源:百度文库 编辑:高校问答 时间:2024/05/03 10:43:11
11
7 12
4 8 13
2 5 9 14
1 3 6 10 15

dim a(5,5)
i=5
j=1
for k=1 to 15
a(i,j)=k
if i=5 then i=5-j:j=1 else i=i+1:j=j+1
next k
for i=1 to 5
for j=1 to 5
print a(i,j);
next j
print
next i