求算法,在VB中如何实现矩阵A（3,3）与矩阵B（3,3）相乘?

来源：学生作业帮编辑：搜搜做题作业网作业帮分类：综合作业时间：2024/05/15 18:19:32

求算法,在VB中如何实现矩阵A（3,3）与矩阵B（3,3）相乘?
即就是A、B均为四行四列的矩阵.如何求出其乘积C（3,3）?

直接复制代码就可以了按F5 运行： OK
Private Sub Form_Load()
Show
Dim i As Integer, j As Integer
Dim a(3, 3) As Integer, b(3, 3) As Integer, c(3, 3) As Integer
Randomize
Print "a(3,3)矩阵"
For i = 0 To 3
For j = 0 To 3
a(i, j) = Int(Rnd * 10 + 1)
Print a(i, j);
Next j
Print
Next i

Print "b(3,3)矩阵"
For i = 0 To 3
For j = 0 To 3
b(i, j) = Int(Rnd * 10 + 1)
Print b(i, j);
Next j
Print
Next i

Print "c(3,3)矩阵"
For i = 0 To 3
For j = 0 To 3
c(i, j) = a(i, j) * b(i, j)
Print c(i, j);
Next j
Print
Next i
End Sub
再问：话说，在线性代数中，矩阵相乘好像是按照“左取行右取列”的法则吧！不是简单的每个元素相乘吧~~~
再答：左取行右取列？解释下
再问：就是A*B的话，就是让A的第一行乘以B的第一列（对应相乘再相加）为C的第一个元素以此类推
再答： OK 了你自己算算看对不对 Private Sub Form_Load() Show Dim i As Integer, j As Integer, n As Integer Dim a(3, 3) As Integer, b(3, 3) As Integer, c(3, 3) As Integer Randomize Print "a(3, 3)" For i = 0 To 3 For j = 0 To 3 a(i, j) = Int(Rnd * 9 + 1) Print a(i, j); Next j Print Next i Print "b(3, 3)" For i = 0 To 3 For j = 0 To 3 b(i, j) = Int(Rnd * 9 + 1) Print b(i, j); Next j Print Next i Print "c(3, 3)" For i = 0 To 3 For j = 0 To 3 For n = 0 To 3 c(i, j) = c(i, j) + a(i, n) * b(n, j) Next n Print c(i, j); Next j Print Next i End Sub

求算法,在VB中如何实现矩阵A（3,3）与矩阵B（3,3）相乘? 矩阵乘法计算编写一个函数实现矩阵A(2行3列)与矩阵B相乘(3行2列),乘积放在C数组中,在主函数中输入相乘的两数组,并 VC中如何实现多个两矩阵相乘,请给出算法一阶矩阵与3*2的矩阵相乘有意义吗 java实现矩阵相加、相乘,判断是否上（下）三角矩阵、对称矩阵、相等的算法求C语言3个2*2矩阵相乘的算法在LINGO软件中怎样对矩阵相乘编程,如矩阵A=2 3 4 2 B=4 5 6 2 3 1 4 8 9 7 6 7 求A 有两个矩阵A和B,均为3行4列,求两个矩阵之和.重载运算符+和-,实现两个矩阵想加和想减在VB中随机生成两个4*4矩阵,A矩阵范围30~70,B矩阵101~135（第二版书上习题第五章8题） lingo 如何实现矩阵对应相乘,就像matlab中的矩阵点乘（.*）以下程序是求矩阵a,b的乘积,结果存放在矩阵C中并按矩阵形式输出,请填(3)空使程序完整如何计算矩阵A关于矩阵B的广义特征值（matlab实现）