百科知识

求vb代码?求矩阵A与B的乘积?现有两个矩阵,其中A为3行4列,

2008-10-05 17:21:17股***
求矩阵A与B的乘积? 现有两个矩阵,其中A为3行4列,其元素的值等于行列下标之和,B为4行5列, 其元素的值为行列下标之差。请计算并显示两个矩阵相乘后的结果,结果为 3行5列矩阵。 我已将矩阵A与B代码编好如下:Private Sub Command1_Click() Dim a(3, 4), b(4, 5) As Integer Print Print "矩阵A: " For i = 1 To 3 For j = 1 To 4 a(i, j) = i + j Print a(i, j); Next j Print Next i Print Print "矩阵B:" For i = 1 To 4 For j = 1 To 5 b(i, j) = i - j Print b(i, j); Next j Print Next i End Sub 但两矩阵相乘的代码则不会编写,请编写此代码? 先行谢过! 求vb代码?求矩阵A与B的乘积?现有两个矩阵,其中A为3行4列,其元素的值等于行列下标之和,B为4行5列,其元素的值为行列下标之差。请计算并显示两个矩阵相乘后的?

最佳回答

  • 忘记距阵怎么计算的了,应该是用IF语句将下标掉过来然后判断相等然后就相加,就是如果第一个矩阵的X等于第二个矩阵的Y,第一个矩阵的Y等与第二个矩阵的X就两个矩阵b(i, j)a(i, j)相乘加起来。
    2008-10-07 14:20:55
  • 很赞哦! (103)