两个矩阵相乘，分别是两行五列和五行3列，在vb中应怎么编写代码？好心人帮帮忙，谢谢

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

用二维数组就可以搞定了，你自己去试试，我会VB，但是我不想再用VB来写东西