Para este´programa necesitaremos crear un vector para facilitar el ordenamiento, esto lo haremos de las siguiente manera:
Coloca una caja de texto en la forma, modifica las propiedades
Nombre-vector
Text- dejalo en blanco o cun un cero
fornt- coloca una formato mas visible
este text te sirve como base para crear el vector copia este objeto y pega cuando pegues el primer objeto te pregunta si desas crear una matriz de controles, presiona si y pega cuatro copias para un total de 5 controles text, van del 0 al 4 ve los nombres.
Ahora coloca un boton cambia el caption y el font, luego da doble click sobre el boton y entra a la ventana de edicion de codigo, el programa es:
For i = 0 To 3
mayor = Val(vector(i).Text)
posicion = i
For j = i + 1 To 4
If Val(vector(j).Text) > mayor Then
mayor = Val(vector(j).Text)
posicion = j
End If
Next j
vector(posicion).Text = vector(i).Text
vector(i).Text = Val(mayor)
Next i
analisen el codigo y comentelo en el foro
domingo, 14 de junio de 2009
Suscribirse a:
Enviar comentarios (Atom)
No hay comentarios:
Publicar un comentario