Red de conocimiento informático - Problemas con los teléfonos móviles - Ejercicios de programación de matrices Vb

Ejercicios de programación de matrices Vb

Opción explícita

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