初学！请教一个问题！！急 在线等待（100分）


窗体代码如下：
Private Sub Command1_Click()
'定义a,b,c数组
Dim a(1 To 2, 1 To 3) As Integer
Dim b(1 To 3, 1 To 4) As Integer
Dim c(1 To 2, 1 To 4) As Integer
'输入a数组
For i = 1 To 2
  For j = 1 To 3
    a(i, j) = InputBox("请输入a数组第" & i & "行，第" & j & "列的数", "输入信息")
  Next j
Next i
'输出a数组
Print "出a数组"
For i = 1 To 2
  For j = 1 To 3
    Print a(i, j) & Space(5);
  Next j
  Print
Next i
'输入b数组
For i = 1 To 3
  For j = 1 To 4
    b(i, j) = InputBox("请输入b数组第" & i & "行，第" & j & "列的数", "输入信息")
  Next j
Next i
'输出b数组
Print "出b数组"
For i = 1 To 3
  For j = 1 To 4
    Print b(i, j) & Space(5);
  Next j
  Print
Next i
'开始相乘
For i = 1 To 2
  For j = 1 To 4
    Sum = 0
    For k = 1 To 3
      Sum = Sum + a(i, k) * b(k, j)
    Next k
    c(i, j) = Sum
  Next j
Next i'输出结果c数组
Print "输出结果c数组"
For i = 1 To 2
  For j = 1 To 4
    Print c(i, j) & Space(5);
  Next j
  Print
Next i
End Sub
Private Sub Command2_Click()
Dim a1 As New Class1: Dim b1 As New Class1
Dim c1 As Class1
Set c1 = New Class1
a1.geta
a1.printa
b1.getb
b1.pirntb
c1.achengb
c1.printc
End SubPrivate Sub Form_Load()End Sub类模块代码如下：
'定义a,b,c数组
Dim a(1 To 2, 1 To 3) As Integer
Dim b(1 To 3, 1 To 4) As Integer
Dim c(1 To 2, 1 To 4) As Integer
'从键盘得到数组A
Public Function geta()
  For i = 1 To 2
    For j = 1 To 3
      a(i, j) = InputBox("请输入a数组第" & i & "行，第" & j & "列的数")
    Next j
 Next i
End Function
'从键盘得到数组B
Public Function getb()
  For i = 1 To 3
    For j = 1 To 4
      b(i, j) = InputBox("请输入b数组第" & i & "行，第" & j & "列的数")
    Next j
  Next i
End Function
'输出数组A
Public Function printa()
'Print "输出数组A"
 For i = 1 To 2
   For j = 1 To 3
     Print a(i, j) & Space(5);
   Next j
   Print
 Next i
End Function
'输出数组B
Public Function pirntb()
'Print "输出数组B"
For i = 1 To 3
  For j = 1 To 4
    Print b(i, j) & Space(5);
  Next j
  Print
Next i
End Function
'数组A乘数组B
Public Function achengb()
  For i = 1 To 2
    For j = 1 To 4
      Sum = 0
      For k = j To 3
      Sum = Sum + a(i, k) * b(k, j)
    Next j
    c(i, j) = Sum
  Next i
End Function'输出数组C
Public Function printc()
'Print "'输出数组C"
For i = 1 To 2
  For j = 1 To 4
    Print c(i, j) & Space(5);
  Next j
  Print
Next i
End Function
类模块要怎么改 才可以通过那 谢谢