Programacion

Public Function Producto(ByVal A(,) As Decimal, ByVal B(,) As Decimal) As Decimal(,)
 
            'Comprobamos que las matrices cumplen los requisitos
            If A.GetUpperBound(1) <>B.GetUpperBound(0) Then
                 Exit Function
            End If
 
            Dim i, j, k As Short
            'Creamos la matriz producto
            Dim R(A.GetUpperBound(0),B.GetUpperBound(1)) As Decimal
 
            'Este array de dos columnas
            'es meramente operativo
            'equivale a las dos columnas
            'que hemos creado en el ejemplo:            'A(1,0) * B(0 ,0)
            'A(1,1) * B(1 ,0)
            'A(1,2) * B(2 ,0)
            Dim T(A.GetUpperBound(1), 1) As Decimal
 
            'Los dos primeros bucles For            'sirven para ir visitando
            'todas las posiciones de la matriz R
            For i = 0 To R.GetUpperBound(0)
                For j = 0 To R.GetUpperBound(1)
 
                    'i contiene el primeríndice de R
                    'que colocamos en todas las posiciones
                    'A(i, ) de los elementos de la primera matriz
                    'A la vez, en la segunda posción A( ,k)                    'vamos aumentando el índice desde cero
                    'hasta el número de columnas de A,
                    'que coincide con el de filas de B
                    'igualque hemos hecho en el ejemplo
                    For k = 0 To A.GetUpperBound(1)
                        T(k, 0) = A(i, k)
                    Next
 
                    'j contiene el segundoíndice de R
                    'que colocamos en todas las posiciones
                    'B(,j) de los elementos de la segunda matriz
                    'A la vez, en la primera posción B(k, )                    'vamos aumentando el índice desde cero
                    'hasta el número de filas de B,
                    'que coincide con el de columnas de A...