15问答网 > 急求！！！用vb编程，实现两矩阵相乘，这两个矩阵分别是i行j列和j行i列

急求！！！用vb编程，实现两矩阵相乘，这两个矩阵分别是i行j列和j行i列

2024-11-01 22:47:19

推荐回答（4个）

回答1：

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, M)
k = 500
Randomize
Print "M="; M; "行，N="; N; "列"
Print "A矩阵"
For i = 1 To M
For j = 1 To N
A(i, j) = Int(Rnd * 100)
Print A(i, j);
Next j
Print
Next i
Print "B矩阵"
For i = 1 To N
For j = 1 To M
B(i, j) = Int(Rnd * 100)
Print B(i, j);
Next j
Print
Next i
Print "AxB=C矩阵"

For i = 1 To M
For j = 1 To M
For k = 1 To N
C(i, j) = C(i, j) + A(i, k) * B(k, j)
Next k
Print C(i, j);
Next j
Print
Next i
End Sub

回答2：

参数使用
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

回答3：

用数组加循环

回答4：

举个例子看看，不太明白。。

最新问答

GTA5PC版怎么回血快速吃零食补血方法介绍

连续几天都37度低烧是怎么回事

梦到自己抱着一个胖乎乎的小男孩是什么意思呢

你好，我上个月18号来的姨妈，下个月7号同房了，到现在还没来姨妈，会不会怀孕？

未战踏板摩托车早上老是电发动发不起来，有时在路上开，老是突然熄火。麻烦大家帮帮我，谢谢。在线等。

SFPSZ4-120000⼀220变压器

“三国杀”元宝不到账，怎么办？

家里买了一只3个月大的阿拉斯加，自从买回来，家里的人都不舒服，主要的症状是恶心，请问是因为狗吗？

家长该不该给孩子零花钱反方怎样给正方提三个问题？

怎样养好刚买的仔猪