以下程序用来建立一个5×5矩阵，该矩阵两条对角线上的元素为1，其余元素为0，请补充完该程序。该程序运行结果如下图所示。 Private Sub form Click（) Dim s（5, 5)As Integer for N =1 To 5for M = 1 To 5if 【13】 Or 【14】 then S（N, M)=1Else S（N. M)= 0End ifNext M Next N f

（第五章）对角矩阵的特点是非零元素只出现在矩阵的两条对角钱上。 求任意方阵每行、每列、两对角线上元素之和。 若存在可逆矩阵B使得实对称矩阵A=BTB，则A的主对角线上的元素全大于O. 试证明若存在可逆矩阵B使得实对称矩阵A＝BTB，则A的主对角线上的元素全大于0。 矩阵的迹等于矩阵的对角线元素之和，以下方法中能求矩阵迹的有（） 设有一个n阶的下三角矩阵A，如果按照行的顺序将下三角矩阵中的元素（包括对角线上元素）存放在n(n+1)个连续的存储单元中，则A[i][j]与A[0][0]之间有_______个数据元素。 若用邻接矩阵存储有向图，矩阵中主对角线以下的元素均为零 以下程序代码使用二维数组A表示矩阵，实现单击命令按钮Command1时使矩阵的两条对角线上的元素值全为1，其余元素值全为0，请补充完该程序。 Private Sub Command1_click（) Dim A（4，4) For I=1 To 4 For J= 1 To 4 【12】 =1 Next I 【13】 【14】 Next J For i=1 To 4 For j=1 To 4 Prin 以下程序代码使用二维数组A表示矩阵，实现单击命令按钮Command1时使矩阵的两条对角线上的元素值全为1，其余元素值全为0，请补充完该程序。 Private Sub Command1_click（)Dim A（4，4)For I=1 To 4 For J= 1 To 4 【12】 =1 Next I 【13】 【14】 Next J For i=1 To 4 For j=1 To 4 Print 若一个菱形的边长为2，则这个菱形两条对角线的平方和为（）． 矩形风管两条对角线长度之差不应大于（） 正方形铁塔基础，其两组基坑的中心分别在两条互相垂直的对角线上（） 将矩阵A对角线元素加12的命令是(? ? ) 将矩阵A对角线元素加30的命令是（） 将矩阵A对角线元素加30的命令是（） 编写一个子函数fun，求两个矩阵的乘积矩阵；主程序中输入两个矩阵的阶数和元素值，调用fun，求出乘积矩阵，在主程序中将原矩阵和乘积矩阵输出。 1.试编写求一个三元组表的稀疏矩阵对角线元素之和的算法 给定程序中，函数fun的功能是：判定形参a所指的N×N（规定N为奇数）的矩阵是否是“幻方”，若是，则函数返回值为1；若不是，则函数返回值为0。“幻方”的判定条件是：矩阵每行、每列、主对角线及反对角线上元素之和都相等。 例如，以下3×3的矩阵就是一个“幻方”： 4 9 2 3 5 7 8 1 6 请在程序的下划线处填入正确的内容并把下划线删除，使程序得出正确的结果。 注意：部 麦肯锡矩阵方格中对角线中间区域，建议采取（）战略。 若一个有向图的邻接矩阵中，主对角线以下的元素均为零，则该图的拓扑有序序列。【中科院计算所（）