vfp二级题目.分多多.

INPUT "M=" TO M
DIME A(M,M) && 定义数组 M 行 M 列
FOR I=1 TO M
? && 每行换行
FOR J=1 TO M
IF I=J && 数组每逢 I=J 即数组的 \ 对角线 为 1, 否则为 0
A(I,J)=' 1'
ELSE
A(I,J)=' 0'
ENDIF
? A(I,J) && 输出数组的一行
ENDF
ENDF