Red de conocimiento informático - Problemas con los teléfonos móviles - Programación VB: ingrese 10 elementos de matriz de números enteros de dos dígitos, ordénelos de pequeño a grande usando el método de selección y luego envíelos.

Programación VB: ingrese 10 elementos de matriz de números enteros de dos dígitos, ordénelos de pequeño a grande usando el método de selección y luego envíelos.

Agregue dos cuadros de imagen y un botón en el formulario. El código del evento de clic en el botón es el siguiente:

Private Sub Command1_Click()

Dim a(1. A 10) Como número entero

Dim i como número entero

Dim j como número entero

Dim k como número entero

Imagen1.Cls

Picture2.Cls

Randomize

'Genera 10 números enteros aleatorios de dos dígitos y generalos en Picture1

Para i = 1 a 10

a(i) = Int(Rnd * 90) + 10

Imagen1.Imprimir a(i);

Siguiente

' Clasificación de selección

Para i = 1 a 9

j = i

Para k = i + 1 a 10

Si a ( j) > a(k) Entonces j = k

Siguiente

Si i <> j Entonces

k = a(i)

a(i) = a(j)

a(j) = k

Finalizar si

Siguiente

' Salida la matriz ordenada en Imagen2

For i = 1 To 10

Imagen2.Imprimir a(i);

Siguiente

End Sub