Red de conocimiento informático - Problemas con los teléfonos móviles - Programación Vb para ingresar diez números en secuencia. Tamaños uno al lado del otro. Utilice funciones de bucle.

Programación Vb para ingresar diez números en secuencia. Tamaños uno al lado del otro. Utilice funciones de bucle.

Subcomando privado 1_Click()

Dim i es un número entero, J es un número entero

Dim S(10) es un número entero

Representa N como un número entero

Imprimir "Los diez valores ingresados son:"

Irregularizar

Para i = 1 a 10

S(i) = InputBox("Ingrese un número entero positivo:")

Imprimir S(I);

Luego

Imprimir

Imprimir" El El resultado después de ordenar de pequeño a grande es: "

Para i = 1 a 9

Para J = i 1 a 10

Si S(i)> Entonces S(J)

N = S(i)

S(i) = S(J)

S(J) = N

Terminará si...

Entonces

Para i = 1 a 10

Imprimir S( I );

Luego

Conector final