Visual Basic
a-cargar los vectores.
b-ordenar en forma ascendente el vector sueldos.
c-ordenar en forma descendente el vector sueldos.d-ordenar en forma ascendente el vector legajo.
e-ordenar en forma descendente el vector legajo.
a-
BOTON N° 1: CARGAR EL VECTOR
Dim vs(5), vl(5) As Integer
áPrivate Sub Command1_Click()
á ááFor I = 1 To 5
á á á á ávl(I) = InputBox("ingrese legajo")
á á á á ávs(I) = InputBox("ingrese sueldo")
á á áNext
á End Sub
b-
BOTON N°2: ORDENAR EL VECTOR SUELDOS EN FORMA ASCENDENTEPrivate Sub Command2_Click()
á á n = 4
á á For a = 1 To 4
á á á á For I = 1 To n
á á á á á á If vs(I) > vs(I + 1) Then
á á á á á á á á aux = vs(I + 1)
á á á á á á á á vs(I + 1) = vs(I)
á á á á á áá á vs(I) = aux
á á á á á á á á aux2 = vl(I + 1)
á á á á á á á á vl(I + 1) = vl(I)
á á á á á á á á vl(I) = aux2
á á á á á á End If
á á á á Next
á á á á n = n - 1
á á Next
á á For I = 1 To 5á á á á Print vl(I)
á á á á Print vs(I)
á á Next
End Sub
c-
BOTON N° 3:ORDENAR EL VECTOR SUELDOS EN FORMA DESCENDENTE
Private Sub Command3_Click()
á á n = 4
á á For a = 1 To 4
á á á á For I= 1 To n
á á á á á á If vs(I) < vs(I + 1) Then
á á á á á á á á aux = vs(I + 1)
á á á á á á á á vs(I + 1) = vs(I)
á á á á á á á á vs(I) = aux
á á á á á á á á aux2 = vl(I + 1)
á á á á á á á ávl(I + 1) = vl(I)
á á á á á á á á vl(I) = aux2
á á á á á á End If
á á á á Next
á á á á n = n - 1
á á Next
á á For I = 1 To 5
á á á á Print vl(I)
á á á á Print vs(I)
á á Next
End Sub
d-BOTON N°4: ORDENAR VECTOR LEGAJO EN FORMA ASCENDENTE
Private Sub Command4_Click()
á á n = 4
á á For a = 1 To 4
á á á á For I = 1 To n
á á á á á á If vl(I) > vl(I + 1) Then
á á á á á á á á aux =vl(I + 1)
á á á á á á á á vl(I + 1) = vl(I)
á á á á á á á á vl(I) = aux
á á á á á á á á aux2 = vs(I + 1)
á á á á á á á á vs(I + 1) = vs(I)
á á á á á á á á vs(I) = aux2
á á á á á á End If
á...
Regístrate para leer el documento completo.