您所在位置：主题：读程序，写结果1道（p1s看啊！）
li010450
[专家分：70] 发布于 2006-01-23 13:22:00
CLS
DIM a(5, 5)
FOR k = 1 TO 5
FOR i = 1 TO 5
FOR j = 1 TO 5
IF ABS(i - j) <> k THEN 70
a(i, j) = k + 1
70 NEXT j
NEXT i
FOR j = 1 TO 5
PRINT a(i, j); " ";
NEXT j
PRINT
NEXT i
END
我用QB实验有错，谁知道答案？（我不会做）[em18][em18][em18]
DIM a(5, 5)
FOR k = 1 TO 5
FOR i = 1 TO 5
FOR j = 1 TO 5
IF ABS(i - j) <> k THEN 70
a(i, j) = k + 1
70 NEXT j
NEXT i
FOR j = 1 TO 5
PRINT a(i, j); " ";
NEXT j
NEXT i
END
我用QB实验有错，谁知道答案？（我不会做）[em18][em18][em18]
