Programa para que permita determinar cuantas cifras se a ingresado
Private Sub cmd_li_Click()
lbl_c.Caption = ""
txt_c.Text = ""
txt_c.SetFocus
End Sub
Private Sub cmd_pro_Click()
If txt_c >= 1 And txt_c < 9 Then
lbl_c.Caption = "Un Dígito"
Else
If txt_c >= 10 And txt_c < 100 Then
lbl_c.Caption = "Dos Dígitos"
Else
If txt_c >= 100 And txt_c < 1000 Then
lbl_c.Caption = "Tres Dígitos"
Else
If txt_c >= 1000 And txt_c < 10000 Then
lbl_c.Caption = "Cuatro Dígitos"
Else
lbl_c.Caption = "Te Pasastes"
End If
End If
End If
End If
End Sub
Private Sub cmd_salir_Click()
End
End Sub
