在VB中随机生成两个4*4矩阵,A矩阵范围30~70,B矩阵101~135(第二版书上习题第五章8题)要求1,将两个矩阵相加的结果放入C矩阵中2.将A矩阵转置3统计C矩阵的最大值和下标4、以下三角形式显示A矩
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/02 19:56:18
![在VB中随机生成两个4*4矩阵,A矩阵范围30~70,B矩阵101~135(第二版书上习题第五章8题)要求1,将两个矩阵相加的结果放入C矩阵中2.将A矩阵转置3统计C矩阵的最大值和下标4、以下三角形式显示A矩](/uploads/image/z/7645933-37-3.jpg?t=%E5%9C%A8VB%E4%B8%AD%E9%9A%8F%E6%9C%BA%E7%94%9F%E6%88%90%E4%B8%A4%E4%B8%AA4%2A4%E7%9F%A9%E9%98%B5%2CA%E7%9F%A9%E9%98%B5%E8%8C%83%E5%9B%B430%7E70%2CB%E7%9F%A9%E9%98%B5101%7E135%EF%BC%88%E7%AC%AC%E4%BA%8C%E7%89%88%E4%B9%A6%E4%B8%8A%E4%B9%A0%E9%A2%98%E7%AC%AC%E4%BA%94%E7%AB%A08%E9%A2%98%EF%BC%89%E8%A6%81%E6%B1%821%2C%E5%B0%86%E4%B8%A4%E4%B8%AA%E7%9F%A9%E9%98%B5%E7%9B%B8%E5%8A%A0%E7%9A%84%E7%BB%93%E6%9E%9C%E6%94%BE%E5%85%A5C%E7%9F%A9%E9%98%B5%E4%B8%AD2.%E5%B0%86A%E7%9F%A9%E9%98%B5%E8%BD%AC%E7%BD%AE3%E7%BB%9F%E8%AE%A1C%E7%9F%A9%E9%98%B5%E7%9A%84%E6%9C%80%E5%A4%A7%E5%80%BC%E5%92%8C%E4%B8%8B%E6%A0%874%E3%80%81%E4%BB%A5%E4%B8%8B%E4%B8%89%E8%A7%92%E5%BD%A2%E5%BC%8F%E6%98%BE%E7%A4%BAA%E7%9F%A9)
在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