输入一个M行M列的矩阵A,计算B=A+A’,即将矩阵A加上A的转置,存放在矩阵B中.M由下

输入一个M行M列的矩阵A,计算B=A+A’,即将矩阵A加上A的转置,存放在矩阵B中.M由下
输入一个M行M列的矩阵A,计算B=A+A’,即将矩阵A加上A的转置,存放在矩阵B中.M由下

输入一个M行M列的矩阵A,计算B=A+A’,即将矩阵A加上A的转置,存放在矩阵B中.M由下
'VB程序代码如下：
Dim arrA(100, 100), arrB(100, 100) As Integer
Print 产生矩阵A
For i = 1 To 5
For j = 1 To 5
arrA(i, j) = Int(Rnd * 5)
Print arrA(i, j),
Next
Print
Next
Print 求矩阵B并输出
For i = 1 To 5
For j = 1 To 5
arrB(i, j) = arrA(i, j) + arrA(j, i)
Print arrB(i, j),
Next
Print
Next