PROGRAMACION

BOTON DATOS DE CUENTA

Private Sub Command1_Click()

Calificación = Val(Text1.Text)

Select Case Calificación

Case 1

Text2.Text = "Limite de credito 3000 Credito disponible 2000 Fecha de corte 05/May/2011"

Case 2

Text2.Text = "Limite de credito 3500 Credito disponible 1000 Fecha de corte 12/May/2011"

Case 3

Text2.Text = "Limite de credito 2000 Credito disponible 500 Fecha de corte 01/May/2011"

Case 4

Text2.Text = "Limite de credito 4000 Credito disponible 0 Fecha de corte 15/May/2011"

Case 5

Text2.Text = "Limite de credito 4500 Credito disponible 1200 Fecha de corte 21/May/2011"

Case 6

Text2.Text = "Limite de credito 5000 Credito disponible 5000 Fecha de corte 23/May/2011"

End Select

End Sub

BOTON REALIZAR OTRA CONSULTA

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

End Sub