Manual para el Programador y para el Usuario

NOMBRE DE VARIABLE

TIPO

EXPLICACIÓN

matriz1(5, 5)

Integer

Matriz 1 generada por el programa, la cual es utilizada por todos los botones

matriz2(5, 5)

Integer

Matriz 2 generada por el programa, la cual es utilizada por todos los botones

matriz3(5, 5)

Integer

Matriz 3 transpuesta de la matriz 1, la cual es utilizada por el botón de transpuestas

matriz4(5, 5)

Integer

Matriz 4 transpuesta de la matriz 2, la cual es utilizada por el botón de transpuestas

i

Integer

Orden de filas utilizada en todos los ciclos FOR

j

Integer

Orden de columnas utilizada en todos los ciclos FOR

Valor_mult(5, 5)

Integer

Matriz utilizada para almacenar la multiplicación de las matrices 1 y 2

NOMBRE DE VARIABLE

TIPO

EXPLICACIÓN

k

Integer

Variable utilizada para lograr realizar la multiplicación de filas por columnas en dicho ciclo FOR

Código VBA

Explicación Algorítmica

1. For i = 1 To 5
2. For j = 1 To 5
3. matriz1(i, j) = (Rnd * 100)
4. Hoja1.Cells(i + 1, j + 1) = matriz1(i, j)
5. Next j
6. Next i

1. For i = 1 To 5
2. For j = 1 To 5
3. matriz2(i, j) = (Rnd * 100)
4. Hoja1.Cells(i + 1, j + 8) = matriz2(i, j)
5. Next j
6. Next i

1. Ciclo PARA con orden filas de 1 hasta 5
2. Ciclo para con orden columnas de 1 a 5
3. Llena la primera matriz de 5x5 con valores aleatorios de 1 a 100
4. Ingresa los valores de la primera matriz en la hoja de Excel
5. Finalización FOR orden columnas para dicho ciclo
6. Finalización FOR orden filas para dicho ciclo
7. Ciclo PARA con orden filas de 1 hasta 5
8. Ciclo para con orden columnas de 1 a 5
9. Llena la segunda matriz de 5x5 con valores aleatorios de 1 a 100
10. Ingresa los valores de la segunda matriz en la hoja de Excel
11. Finalización FOR orden columnas para dicho ciclo
12. Finalización FOR orden filas para dicho ciclo

Código VBA

Explicación Algorítmica

1. For i = 1 To 5
2. For j = 1 To 5
3. matriz1(i, j) = 0
4. matriz2(i, j) = 0
5. matriz3(i, j) = 0
6. matriz4(i, j) = 0
7. Valor_mult(i, j) = 0
8. Next j
9. Next i

1. For i = 1 To 5
2. For j = 1 To 5
3. Hoja1.Cells(i + 1, j + 1)=””
4. Hoja1.Cells(i + 1, j + 8) = ""
5. Hoja1.Cells(i + 1, j + 14) = ""
6. Hoja1.Cells(i + 1, j + 20) = ""
7. Hoja1.Cells(i + 1, j + 26) = ""
8. Hoja1.Cells(i + 1, j + 32) = ""
9. Hoja1.Cells(i + 8, j + 32) = ""
10. Next j
11. Next i

1. Ciclo PARA con orden filas de 1 hasta 5
2. Ciclo para con orden columnas de 1 a 5
3. Llena de 0 la matriz generada 1
4. Llena de 0 la matriz generada 2
5. Llena de 0 la matriz transpuesta 1
6. Llena de 0 la matriz transpuesta 2
7. Llena de 0 la matriz que almacena la multiplicación
8. Finalización FOR orden columnas para dicho ciclo
9. Finalización FOR orden filas para dicho ciclo
10. Ciclo PARA con orden filas de 1 hasta 5
11. Ciclo PARA con orden columnas de 1 a 5
12. Llena de valores vacíos la matriz 1 generada en Excel
13. Llena de valores vacíos la matriz 2 generada en Excel
14. Llena de valores vacíos la matriz suma generada en Excel
15. Llena de valores vacíos la matriz resta generada en Excel
16. Llena de valores vacíos la matriz multiplicación generada en Excel
17.  Llena de valores vacíos la matriz transpuesta 1 generada en Excel
18. Llena de valores vacíos la matriz transpuesta 2 generada en Excel
19. Finalización FOR orden columnas para dicho ciclo
20. Finalización FOR orden filas para dicho ciclo

Código VBA

Explicación Algorítmica

1. For i = 1 To 5
2. For j = 1 To 5
3. Hoja1.Cells(i + 1, j + 14) = matriz1(i, j) + matriz2(i, j)
4. Next j
5. Next i

1. Ciclo PARA con orden filas de 1 hasta 5
2. Ciclo PARA con orden columnas de 1 a 5
3. Realiza la suma factor a factor e ingresa el resultado en la hoja de Excel
4. Finalización FOR orden columnas para dicho ciclo
5. Finalización FOR orden filas para dicho ciclo

Código VBA

Explicación Algorítmica

1. For i = 1 To 5
2. For j = 1 To 5
3. Hoja1.Cells(i + 1, j + 14) = matriz1(i, j) - matriz2(i, j)
4. Next j
5. Next i

1. Ciclo PARA con orden filas de 1 hasta 5
2. Ciclo PARA con orden columnas de 1 a 5
3. Realiza la resta factor a factor e ingresa el resultado en la hoja de Excel
4. Finalización FOR orden columnas para dicho ciclo
5. Finalización FOR orden filas para dicho ciclo

Código VBA

Explicación Algorítmica

1. Dim k As Integer

1. For i = 1 To 5
2. For j = 1 To 5
3. For k = 1 To 5
4.            Valor_mult(i, j) = Valor_mult(i, j) + matriz1(i, k) * matriz2(k, j)
5. Next k
6. Next j
7. Next i

1. For i = 1 To 5
2. For j = 1 To 5
3.             Hoja1.Cells(i + 1, j + 26) = Valor_mult(i, j)
4. Next j
5. Next i

1. Declaración de la variable k utilizada en la mutiplicación tipo entero
2. Ciclo PARA con orden filas de 1 hasta 5
3. Ciclo PARA con orden columnas de 1 a 5
4. Ciclo PARA con orden especial de 1 a 5
5. Se acumula en la matriz de multiplicación el valor de las filas por las columnas, por ello se toman los órdenes (i,k)*(k,j)
6. Finalización FOR orden especial k para dicho ciclo
7. Finalización FOR orden columnas para dicho ciclo
8. Finalización FOR orden filas para dicho ciclo
9. Ciclo PARA con orden filas de 1 hasta 5
10. Ciclo PARA con orden columnas de 1 a 5
11. Se llevan los valores de la multiplicación a Excel
12. Finalización FOR orden columnas para dicho ciclo
13. Finalización FOR orden filas para dicho ciclo

Código VBA

Explicación Algorítmica

1. For i = 1 To 5
2. For j = 1 To 5
3. matriz3(i, j) = matriz1(j, i)
4. Hoja1.Cells(i + 1, j + 32) = matriz3(i, j)
5. matriz4(i, j) = matriz2(j, i)
6. Hoja1.Cells(i + 8, j + 32) = matriz4(i, j)
7. Next j
8. Next i

1. Ciclo PARA con orden filas de 1 hasta 5
2. Ciclo PARA con orden columnas de 1 a 5
3. Lleva el valor de la matriz 1 (fila, columna) a la matriz 3 (columna, fila) que es transpuesta de la 1
4. Lleva los valores de la transpuesta 1 a Excel
5. Lleva el valor de la matriz 2 (fila, columna) a la matriz 4 (columna, fila) que es transpuesta de la 2
6. Lleva los valores de la transpuesta 2 a Excel
7. Finalización FOR orden columnas para dicho ciclo
8. Finalización FOR orden filas para dicho ciclo