Question

VB中通过循环按行顺序为一个5*5的二维数组

Answer 1

program sjx;
var a:array[1..5,1..5]of 1..25;
x,y,i:1..5;
begin
for x:=1 to 5 do
for y:=1 to 5 do
a[x,y]:=(x-1)*5+y;
for x:=1 to 5 do
begin
for y:=1 to x do
begin
write(a[x,y]);
if a[x,y]<10 then write(' ') else write(' ')
end;
writeln
end
end.

还运用了if语句来控制每两个数字之间的空格数，始输出成为一个标准的三角形
输出：
1
6 7
11 12 13
16 17 18 19
21 22 23 24 25