programa suma de matrices

Private Sub Command1_Click()

Dim a() As Single, b() As Single, r As Integer, c As Integer
Dim suma() As Single

r = InputBox("CUANTOS RENGLONES?")
c = InputBox("CUANTAS COLUMNAS?")

ReDim a(r, c)
For k = 1 To r
    For l = 1 To c
        a(k, l) = InputBox("a(" & k & ", " & l & ") =")
    Next l
Next k
Picture1.Print "Matriz A"

For k = 1 To r
    For l = 1 To c
        Picture1.Print a(k, l),
    Next l
    Picture1.Print
Next k

ReDim b(r, c)
For k = 1 To r
    For l = 1 To c
        b(k, l) = InputBox("B(" & k & "," & l & ")=")
    Next l
Next k
Picture2.Print "Matriz B"

For k = 1 To r
    For l = 1 To c
        Picture2.Print b(k, l),
    Next l
    Picture2.Print
Next k

Picture3.Print "Suma de Matrices"

ReDim suma(r, c)
For k = 1 To r
    For l = 1 To c
        suma(k, l) = a(k, l) + b(k, l)
        Picture3.Print suma(k, l),
    Next l
    Picture3.Print
Next k

 

End Sub

Private Sub Command2_Click()
Picture1.Cls
Picture2.Cls
Picture3.Cls

End Sub

Private Sub Command3_Click()
End

End Sub