1. Visual Basic - Curso completo teoria y practica

If OptDescendente.Value Then
For I = 0 To N - 2
For J = I + 1 To N - 1
If A(I) < A(J) Then
T = A(I)
A(I) = A(J)
A(J) = T
End If
Next J
Next I
End If
LstNumero.Clear
For I = 0 To N - 1
LstNumero.List(I) = A(I)
Next I
End Sub
Private Sub Form_Unload(Cancel As Integer)
If MsgBox(“Desea terminar la aplicación?”, _
vbQuestion + vbYesNo, “Pregunta”) = vbYes Then
End
Else: Cancel = True : TxtNumero.SetFocus
End If
End Sub
Private Sub CmdSalir_Click()
Unload Me
End Sub
Aplicación Nº 2
Elaborar una aplicación que permita seleccionar un
artículo de un cuadro combinado (Combo). Apenas el usuario
seleccione un artículo se debe mostrar el precio del mismo, el
interés es fijo para esta ocasión.
Pág. 272