Preguntas sobre programación de VB, por favor responda
Const?N?=?10
¿Privado?Tipo?Ydy
bh?As?String
cj?As?Single
¿Fin?Tipo
Privado?Sub?Form_Click()
¿Dim?a(1?A?N)?As?Ydy
Dim?t?As?Ydy
'Ingresar información y calificaciones
For?i?=?1?To?N
a(i) .bh?=?InputBox("Ingrese el número de atleta "?&?i?&?"", "Ingrese el número de atleta y el resultado")
a(i).cj?=? Val(InputBox("Ingrese el puntaje del atleta "?&?i?&?" (segundos)","Ingrese el número del atleta y el puntaje"))
Siguiente?i
'Ordenar por puntuación
For?i?=?1?To?N?-?1:?For?j?=?i?+?1?To?N
Si?a(i).cj?>?a(j).cj?Entonces
t?=?a(i):?a(i)?=?a(j): ?a(j)?=?t
Fin?Si
Siguiente?j,?i
'Emitir la información ordenada
Imprimir?"Ranking",?"Número de atleta",?"Resultados"
Para?i?=?1?A?N
Imprimir?i,?a( i ).bh?&?"número",?a(i).cj?&?"segundo"
Siguiente?i
Fin?Sub