以下程序用来建立一个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)
题目
以下程序用来建立一个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
相似考题
参考答案和解析
n=m,n=11-m,m= 1 To 10
更多“以下程序用来建立一个10*10矩阵,该矩阵两条对角线上的元素为1,其余元素为0,请补充完该程序。 该程 ”相关问题
-
第1题：
定义一个二维数组： int array[10][10]，表示一个10*10的矩阵，设循环变量i，则以下程序输出的是该数组中的哪些值？ for（i=0;i＜10;i++) printf（“%d”，array [i] [i]);
A．正对角线上的元素值
B．反对角线上的元素值
C．第一行的值
D．按行输出数组中的所有元素值
E．按列输出数组中的所有元素值
F．第一列的值
for(i=0;i＜10;i++) for(j=0;j＜10;j++) array[i][j]; -
第2题：
1、已知字符数组char str[25]，其数组元素按下标依次为'a','b','c'...'y'，请编写程序，按每行5个字符在屏幕上以矩阵形式打印出该数组，并计算位于该矩阵主对角线（从左上到右下）上的元素的ASCII码值和。
A -
第3题：
R是集合A上的恒等关系，那么R的关系矩阵形如（）。
A．关系矩阵中元素的值都是0。
B．关系矩阵中元素的值都是1。
C．关系矩阵中对角线元素的值都是0，其余元素的值都是1。
D．关系矩阵中对角线元素的值都是1，其余元素的值都是0。
用数学归纳法证明． 当n=1时，R∪S R∪S成立． 设当n=k时，(R∪S) k R k ∪S k 成立． 当n=k+1时， 即当n=k+1时，也有(R∪S) k+1 R k+1 ∪S k+1 成立．故 (R∪S) n R n ∪S n ．$当n=1时，R∩S R∩S成立． 设当n=k时，(R∩S) k R k ∩S k 成立． 当n=k+1时， 即当n=k+1时，也有(R∩S) k+1 R k+1 ∩S k+1 成立．故 (R∩S) n R n ∩S n ． -
第4题：
分别计算矩阵a的两条对角线上的元素之和。 解题思路：行列数相同的矩阵主对角线上所有元素的下标值具有行列相等的特征；矩阵辅对角线上所有元素的下标值具有行与列之和等于该矩阵的最大列下标值（或最大行下标值）的特征。 1、无需输入数据，矩阵数据直接在程序内赋值，输入如下： 1 3 6 7 9 11 14 15 17 2、sum1中放主对角线上的数据，即1+9+17； 3、sum2中放辅对角线上的数据，即6+9+14。
答案：①j=2 ②j>=0 -
第5题：
编写一个主程序，生成一个菜单界面，当输入1时，调用矩阵赋值函数，为5*5的矩阵赋初值；当输入2时，调用矩阵转置函数，对该矩阵进行转置操作；当输入3时，将该矩阵上三角所有元素值变成0；当输入4时，求该矩阵对角线所有元素的平均值；当输入5时，将该矩阵下对角线元素变成1，当输入0时，退出程序。
在系统树窗口中打开工作空间，选择【File】|【New】菜单，或单击工具条中上的【New】图标，弹出新建对象对话框，选择【PB Object】页，选中【Menu】图标，双击鼠标左键或单击【OK】按钮，即新建了一个菜单对象，默认名称为：Untitled0，同时打开了菜单对象画板，在此画板中可进行菜单项的添加、删除、属性设置和脚本编写。