杭州交通信息网06年李玉刚星光大道:QB编程题
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/07 01:43:12
编写一个程序:建立一个10乘10的对角线元素为0,其余元素为1的二维数组元素,并将该数组打印出来,成功后改写该程序,使其对角线元素仍然为0,其余元素为空格字符的二维数组.
（1）0与1构成的二维数组：
CLS : n = 1 FOR i = 1 TO 10 FOR j = 1 TO 10 IF i = n AND j = n THEN a(i, j) = 0: a(i, 10 - j + 1) = 0 IF i <= 5 THEN x = 10 - j + 1 ELSE x = 10 - j
ELSE
IF j <> x THEN a(i, j) = 1
END IF
NEXT j
n = n + 1
NEXT i
FOR i = 1 TO 10
FOR j = 1 TO 10
PRINT a(i, j);
NEXT j
PRINT
NEXT i
END
（2）0与空格构成的数组：
DIM A$(9, 9) CLS : n = 0 FOR i = 0 TO 9 FOR j = 0 TO 9
IF i = n AND j = n THEN
A$(i, j) = STR$(0): A$(i, 9 - j) = STR$(0)
IF n >= 5 THEN x = 9 - j - 1 ELSE x = 9 - j
ELSE
IF j <> x THEN A$(i, j) = " "
END IF
NEXT j
n = n + 1
NEXT i
FOR i = 0 TO 9
FOR j = 0 TO 9
PRINT A$(i, j);
NEXT j
PRINT
NEXT i
END