Ejercicios de programación de matrices Vb
Base de la opción 1
Dim i es un número entero, j es un número entero, Op1 es un número entero, Op es un número entero
Dim a(5 , 5 ) como una matriz global de números enteros
Subcomando privado 1_Click()
Para i = 1 a 5
Para j = 1 a 5
a(i, j) = Int(90 * Rnd(1)) 10
Imprimir a(i, j);
Siguiente j
Imprimir
Siguiente yo
Conector final
Subcomando privado 2_Click()
Texto1 = " "
Cls
Conectores finales
Private Sub Opt_Click()
Snack en forma entera
Suma = 0
Op1 = Val(Text1)
Op = 0
Seleccionar operación de caso
Caso 0
Para i = 1 a 5
Para j = 1 a 5
Si i = j, entonces
Suma = suma a(i,j)
Si . ..terminará
Siguiente j
Siguiente yo
Texto1. texto = suma
Imprimir texto 1
Caso 1
Para i = 1 a 5
Para j = 5 a 1 p>
Si i j = 6, entonces
Suma = suma a(i, j)
Terminará si...
Siguiente j
Siguiente yo
Texto1. texto = suma
Imprimir texto1
Finalizar selección
Finalizar conector
Subopción privada1_Click()
Suma en forma entera
Suma = 0
Para i = 1 a 5
Para j = 1 a 5
Si i = j, entonces
La suma = la suma a(i, j)
Si... terminará
Siguiente j
Continuar Baja sobre mí
Texto1. texto = suma
Imprimir texto1
Conector final
Subopción privada2_Click()
Merienda como número entero
Suma = 0
Para i = 1 a 5
Para j = 1 a 5
Si (i 6 - j = 6) entonces
Suma = suma a(i, 6 - j)
Terminará si...
Siguiente j
Siguiente i
Texto1. text=sum
Imprimir texto 1
Conector final