Red de conocimiento informático - Problemas con los teléfonos móviles - Preguntas sobre programación de VB, por favor responda

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