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 p>
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