Algoritmo, ¿cómo realizar la multiplicación de la matriz A(3,3) y la matriz B(3,3) en VB?
Simplemente copie el código y presione F5 para ejecutarlo: OK.
Private subform_Load()
Pantalla
Dim i es un número entero, j es un número entero
Dim a(3, 3) es un número entero, b(3,3) es un número entero, c(3,3) es un número entero
Irregularizar
Imprimir "una matriz (3,3)"
Para i = 0 a 3
Para j = 0 a 3
a(i,j) = Int(Rnd * 10 1)
Imprimir a(i,j);
Siguiente j
Imprimir
Siguiente yo
Imprimir "b (3, 3 ) matriz"
Para i = 0 a 3
Para j = 0 a 3
b(i,j) = Int(Rnd * 10 1)
Imprimir b(i, j);
Siguiente j
Imprimir
Siguiente yo
Imprimir " matriz c(3,3)"
Para i = 0 a 3
Para j = 0 a 3
c(i , j) = a( i, j) * b(i, j)
Imprimir c(i, j);
Siguiente j
Imprimir
Siguiente yo
Conector final