急求!!!用vb编程,实现两矩阵相乘,这两个矩阵分别是i行j列和j行i列
来源:百度知道 编辑:UC知道 时间:2024/06/25 00:54:07
参数使用
a()矩阵A 格式为a(行,列)
n1 矩阵A的行数
m1 矩阵A的列数
b()矩阵B 格式为b(行,列)
n2 矩阵B的行数
m2 矩阵B的列数
da 输出矩阵 注意 输出的数组的行数为n1 列数为 m2
错误时输出False
Private Sub JZCF(a() As Variant, n1 As Integer, m1 As Integer, b() As Variant, n2 As Integer, m2 As Integer, da As Variant)
Dim i As Integer, j As Integer, k As Integer, c() As Variant
On Error Resume Next
If m1 <> n2 Then
da = False
Exit Sub
End If
ReDim c(n1, m2)
For i = 1 To n1
For j = 1 To m2
c(i, j) = 0
For k = 1 To m1
c(i, j) = c(i, j) + a(i, k) * b(k, j)
Next
Next
Next
da = c()
Exit Sub
e:
da = False
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, M As Integer, N As Integer
Dim A() As Double, B() As Double, C() As Double
M = Val(Text1.Text) '>0
N = Val(Text2.Text) '>0。错误检验代码自己写
ReDim A(M, N), B(N, M), C(M,