Programación Vb entrada 10 datos

Opción explícita

Subcomando privado 1_Click()

Dim i es Long, tmpScore es Long, tmpStr es String

Dim arrScores() tiene la misma longitud

Raedim Areskos(9)

Para i = 0 a 9 'Ingrese 10 fracciones de estudiantes.

TmpStr = InputBox("Ingrese las puntuaciones de 10 estudiantes en secuencia, ordénelas de menor a mayor después de ingresarlas!" & amp_

vbCrLf & amp; "Nota: si se cancela, 0 se ingresará por defecto”, “cuadro de entrada” y 0).

Si tmpStr = "" Luego se cancela el punto, la puntuación predeterminada será 0.

tmpScore = 0

Otro

tmpScore = CLng(tmpStr)

Terminará si...

ArrScores(i) = tmpScore 'Coloca las puntuaciones en la matriz Arrsscores().

A continuación,

redim preserve arrScores(19)' reasigna espacio de almacenamiento para la matriz arr scores().

Para i = 0 a 9 'Genere 10 números aleatorios y colóquelos en una matriz.

"Randomize" inicializa el generador de números aleatorios.

arrsscores(I+10)= int(90 * RND+10)'Regla de rango de generación de números aleatorios: int((límite superior-límite inferior+1)* RND+límite inferior).

Siguiente I

Clasificación de selección

Atenuar j mientras

Atenuar min mientras

Para i = 0 a 19

Supongamos que I es el valor mínimo.

Para j = i + 1 a 19

Si arrScores(min)>ArrScores(j) Entonces 'Compara e intercambia subíndices

Valor mínimo = j

Terminará si...

Siguiente j

TmpScore = arrScores(i)' intercambian datos.

arrScores(i) = arrScores(min)

arrScores(min) = tmpScore

A continuación

muestro los resultados

tmpStr = " "

Para i = 0 a 19

tmpStr = tmpStr & amparrScores(i) y amp","

Conectar Baja sobre mí

MsgBox tmpStr

Conector final