急求啊~~~~~~用vb编程，实现i行j列矩阵与常数x相乘

建议提问前先搜索一下
这是我以前的回答http://zhidao.baidu.com/question/94449041.html
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