Matriz Multiplicación

Public Class Form3

Dim numeros1(1, 1) As Integer

Dim numeros2(1, 1) As Integer

Dim c1, c2 As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

For c1 = 0 To 1

For c2 = 0 To 1

numeros1(c2, c1) = InputBox("Ingrese un numero entero")

Next

Next

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

For c1 = 0 To 1

For c2 = 0 To 1

numeros2(c2, c1) = InputBox("Ingrese un numero entero")

Next

Next

For c1 = 0 To 1

For c2 = 0 To 1

MsgBox("La multiplicación de los vectores es " & numeros1(c2, c1) * numeros2(c2, c1))

Next

Next

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Form4.Show()

End Sub

End Class