作业帮在VB中随机生成两个4*4矩阵,A矩阵范围30~70,B矩阵101~135（第二版书上习题第五章8题）要求1,将两个矩阵相加的结果放入C矩阵中2.将A矩阵转置3统计C矩阵的最大值和下标4、以下三角形式显示A矩
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/03 00:33:01
在VB中随机生成两个4*4矩阵,A矩阵范围30~70,B矩阵101~135（第二版书上习题第五章8题）要求1,将两个矩阵相加的结果放入C矩阵中2.将A矩阵转置3统计C矩阵的最大值和下标4、以下三角形式显示A矩
在VB中随机生成两个4*4矩阵,A矩阵范围30~70,B矩阵101~135（第二版书上习题第五章8题）
要求1,将两个矩阵相加的结果放入C矩阵中
2.将A矩阵转置
3统计C矩阵的最大值和下标
4、以下三角形式显示A矩阵,上三角B矩阵
6、求A矩阵两条对角线元素之和
（有急用 坐等 最好是把编程的部分截图发给我
在VB中随机生成两个4*4矩阵,A矩阵范围30~70,B矩阵101~135（第二版书上习题第五章8题）要求1,将两个矩阵相加的结果放入C矩阵中2.将A矩阵转置3统计C矩阵的最大值和下标4、以下三角形式显示A矩
Dim a(1 To 4, 1 To 4) As Integer
Dim b(1 To 4, 1 To 4) As Integer
Dim c(1 To 4, 1 To 4) As Integer
'随机生成a,b两个数组
For i = 1 To 4
For j = 1 To 4
Randomize
a(i, j) = Int(Rnd() * (70 - 30)) + 30
b(i, j) = Int(Rnd() * (135 - 101)) + 101
Next j
Next i
'（1）将两个矩阵相加结果放入C矩阵中.
For i = 1 To 4
For j = 1 To 4
c(i, j) = a(i, j) + b(i, j)
Next j
Next i
'（2）将A矩阵转置
For i = 2 To 4
For j = 1 To i–1
t = a(i, j): a(i, j) = a(j, i): a(j, i) = t
Next j
Next i
'（3）统计C矩阵的最大值和下标
Dim max As Integer '最大值
Dim maxi As Integer '最大值行数
Dim maxj As Integer '最大值列数
max = c(1, 1): maxi = 0: maxj = 0
For i = 1 To 4
For j = 1 To 4
If c(i, j) > max Then
max = c(i, j): maxi = i: maxj = j
End If
Next j
Next i
'（4）以下三角形式显示A矩阵,上三角形式显示B矩阵
For i = 1 To 4
For j = 1 To i
Print a(i, j); Space(2);
Next j
Print
Next i
Print "输出B上三角元素"
For i = 1 To 4
Print Tab(i * 5);
For j = i To 4
Print b(i, j);
Next j
Print
Next i
'（6）求A矩阵 矩阵条对角线元素之和
Sum = 0 '最大值
For i = 1 To 4
Sum = Sum + a(i, i) + a(i, 5 - i)
Next i