Coloca los siguientes controles en el formulario, en las posiciones que te indico
label1 text1 text2
label2 text3 text4
command1 command2
Y ahora copia, este codigo completo en el formulario... y prueba...
Dim Matriz1(1 To 10, 1 To 10) As Double
Dim Matriz2(1 To 10, 1 To 10) As Double
Dim Matriz3(1 To 10, 1 To 10) As Double
Private Sub Command1_Click()
For i = 1 To Text1.Text
For j = 1 To Text2.Text
Matriz1(i, j) = InputBox("Ingresar valor (" & i & ":" & j & ")", "Ingreso Matriz 1")
Next j
Next i
For i = 1 To Text3.Text
For j = 1 To Text4.Text
Matriz2(i, j) = InputBox("Ingresar valor (" & i & ":" & j & ")", "Ingreso Matriz 2")
Next j
Next i
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
msg = Empty
For i = 1 To Text1.Text
For j = 1 To Text4.Text
For k = 1 To Text3.Text
Matriz3(i, j) = Matriz3(i, j) + Matriz1(i, k) * Matriz2(k, j)
Next k
msg = msg & "(" & i & ":" & j & ")=" & Matriz3(i, j) & " "
Next j
msg = msg & vbLf
Next i
msg = msg & vbLf
MsgBox msg
End Sub
Private Sub Form_Load()
Label1.Caption = "Matriz 1"
Text1.Text = ""
Text2.Text = ""
Label2.Caption = "Matriz 2"
Text3.Text = ""
Text4.Text = ""
Command1.Caption = "Ingresar valores..."
Command2.Caption = "Calcular..."
Command2.Enabled = False
End Sub
Las correcciones, verificaciones y validaciones te las dejo, para que le pongas un poco de tus sesos...
