以下程序用来建立一个10*10矩阵，该矩阵两条对角线上的元素为1，其余元素为0，请补充完该程序。该程序运行结果见下图。Private Sub Form_ click()Dim s(10, 10) As IntegerFor n = 1 To 10For m = 1 To 10If【 】Or【 】Thens (n, m) = 1Elses (n, m) = 0End IfNext mNext nFor n = 1 To 10For【 】。Picturel. Print Tab(m * 3); s(n, m)Next mPrintNext nEnd Sub
以下程序用来建立一个10*10矩阵，该矩阵两条对角线上的元素为1，其余元素为0，请补充完该程序。
该程序运行结果见下图。
Private Sub Form_ click()
Dim s(10, 10) As Integer
For n = 1 To 10
For m = 1 To 10
If【 】Or【 】Then
s (n, m) = 1
Else
s (n, m) = 0
End If
Next m
Next n
For n = 1 To 10
For【 】。
Picturel. Print Tab(m * 3); s(n, m)
Next m
Next n
End Sub
相关考题：
一下程序的作用是生成一个10×10的矩阵．该矩阵主对角线上的数据为1，其余数据为0(程序运行结果如下图所示)。该程序不完整，请补充完改程序。Private Sub Command1_Click()Dim a(10，10)As IntegerFor i=1 To【 】For j=1 To 10If【 】Then【 】=1Elsea(i，j)=0End IfNext jNext iFor i =1 To 10For j=1 To 10Print a(i，j)；Next jPrintNext iEnd Sub
分别用地址法（通过数组名计算元素地址）、指针法改写第9周的作业程序，来实现对二维数组的访问和操作： 编写一个主程序，生成一个菜单界面，当输入1时，调用矩阵赋值函数，为5*5的矩阵赋初值；当输入2时，调用矩阵转置函数，对该矩阵进行转置操作；当输入3时，将该矩阵上三角所有元素值变成0；当输入4时，求该矩阵对角线所有元素的平均值；当输入5时，将该矩阵下对角线元素变成1，当输入0时，退出程序。
定义一个二维数组： int array[10][10]，表示一个10*10的矩阵，设循环变量i，则以下程序输出的是该数组中的哪些值？ for（i=0;i＜10;i++) printf（“%d”，array [i] [i]);A．正对角线上的元素值B．反对角线上的元素值C．第一行的值D．按行输出数组中的所有元素值E．按列输出数组中的所有元素值F．第一列的值
分别计算矩阵a的两条对角线上的元素之和。 解题思路：行列数相同的矩阵主对角线上所有元素的下标值具有行列相等的特征；矩阵辅对角线上所有元素的下标值具有行与列之和等于该矩阵的最大列下标值（或最大行下标值）的特征。 1、无需输入数据，矩阵数据直接在程序内赋值，输入如下： 1 3 6 7 9 11 14 15 17 2、sum1中放主对角线上的数据，即1+9+17； 3、sum2中放辅对角线上的数据，即6+9+14。
1、已知字符数组char str[25]，其数组元素按下标依次为'a','b','c'...'y'，请编写程序，按每行5个字符在屏幕上以矩阵形式打印出该数组，并计算位于该矩阵主对角线（从左上到右下）上的元素的ASCII码值和。
编写一个主程序，生成一个菜单界面，当输入1时，调用矩阵赋值函数，为5*5的矩阵赋初值；当输入2时，调用矩阵转置函数，对该矩阵进行转置操作；当输入3时，将该矩阵上三角所有元素值变成0；当输入4时，求该矩阵对角线所有元素的平均值；当输入5时，将该矩阵下对角线元素变成1，当输入0时，退出程序。
R是集合A上的恒等关系，那么R的关系矩阵形如（）。A．关系矩阵中元素的值都是0。B．关系矩阵中元素的值都是1。C．关系矩阵中对角线元素的值都是0，其余元素的值都是1。D．关系矩阵中对角线元素的值都是1，其余元素的值都是0。