Question

编写程序,建立并输出一个10x10的矩阵,该对角线元素为1,其余元素均为0

Answer 1

Dim a(9,9) As Integer
dim i as integer
dim j as integer
For i = 0 To UBound(a, 1)
For j = 0 To UBound(a, 2)
If i = j Or i + j = 9 Then a(i, j) = 1
print a(i, j),
Next
print
Next
注:该矩阵的下标默认下界为0,所以声明的时候是(9,9),如果你把下标的下界改为1的话,声明时就是(10,10)

Answer 2

int ar[10][10]={0};
for (int i=0;i<10;i++)
ar[i][i]=1;
输出:

Answer 3

是哪条对角线，应该有两条对角线的吧？

Answer 4

用MATLAB？还是？