作业帮 > 综合 > 作业

QB编程题编写一个程序:建立一个10乘10的对角线元素为0,其余元素为1的二维数组元素,并将该数组打印出来,成功后改写该

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/04/28 12:13:57
QB编程题
编写一个程序:建立一个10乘10的对角线元素为0,其余元素为1的二维数组元素,并将该数组打印出来,成功后改写该程序,使其对角线元素仍然为0,其余元素为空格字符的二维数组.
QB编程题编写一个程序:建立一个10乘10的对角线元素为0,其余元素为1的二维数组元素,并将该数组打印出来,成功后改写该
(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 = 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