Red de conocimiento informático - Problemas con los teléfonos móviles - ¡Ayuda de VB! La programación, después de ingresar 10 números, ordena los 10 números en orden ascendente, los escribe en un archivo de texto y muestra los resultados de la clasificación.

¡Ayuda de VB! La programación, después de ingresar 10 números, ordena los 10 números en orden ascendente, los escribe en un archivo de texto y muestra los resultados de la clasificación.

Dim i, j, intmin Como entero, n Como entero

Dim sngsq(), sngt As Single 'Ingresar datos originales

n = Val(InputBox ("Ingrese el valor del número N para ordenar"))

ReDim sngsq(n) 'Redefinir la matriz

Imprimir "Antes de ordenar"

For i = 1 To n

MsgBox "Ingrese el número" & Str(i) & "Número:"

sngsq(i) = Val(InputBox("Ingrese" ) ) 'Convierte los datos de entrada a tipo numérico

Imprimir sngsq(i);

Imprimir

Imprimir "Después de ordenar" "

'Ordenar

Para i = 1 To n - 1

intmin = i 'Para el i-ésimo paso, inicialmente se supone que i -ésimo elemento es el más pequeño

Para j = i + 1 Para n 'Encontrar el número de elemento más pequeño

Si sngsq(j) < sngsq(intmin) Entonces intmin = j

Siguiente j

'Intercambiar el elemento más pequeño encontrado con el i-ésimo elemento

sngt = sngsq(i)

sngsq(i) = sngsq(intmin)

sngsq(intmin) = sngt

Siguiente i

'Imprimir salida

Para i = 1 To n

Imprimir sngsq(i); 'Salida sin saltos de línea

Siguiente i

Simplemente guárdelo después de la salida