Preguntas sobre programación de VB~
El nombre del cuadro de texto es: Texto1
Los nombres de los cuadros de imagen son: imagen1-imagen5
No especificaste qué sucederá si Ingrese el sexto carácter, entonces estos no se procesan y creo que ingresar el sexto carácter no tendrá ningún efecto.
El código es el siguiente: (suponiendo que la interfaz se haya completado)
Privado
Sub
Form_Load()
Imagen1.Visible
=
Falso
Imagen2.Visible
=
Falso
Imagen3.Visible
=
Falso
Imagen4.Visible
=
Falso
Imagen5.Visible
=
Falso
Fin
Sub
Privado
Sub
Text1_Change()
Atenuar
a
Como
Entero
a
=
Len(Text1.Text)
Si
(a
=
0)
Entonces
Imagen1.Visible
=
Falso p>
Imagen2.Visible
=
Falso
Imagen3.Visible
=
Falso
Imagen4.Visible
=
Falso
Imagen5.Visible
=
Falso p>
Fin
Si
Si
(a
=
1) p>
Entonces
Imagen1.Visible
=
Verdadero
Imagen2.Visible
=
Falso
Imagen3.Visible
=
Falso
Imagen4.Visible p>
<
Falso
Imagen5.Visible
=
Falso
Fin p>
Si
Si
(a
=
2)
Entonces p>
Imagen1.Visible
=
Verdadero
Imagen2.Visible
=
Verdadero
Imagen3.Visible
=
Falso
Imagen4.Visible
=
Falso p>
Imagen5.Visible
=
Falso
Fin
Si
Si p>
(a
=
3)
Entonces
Imagen1.Visible
=
Verdadero
Imagen2.Visible
=
Verdadero
Imagen
ture3.Visible
=
Verdadero
Imagen4.Visible
=
Falso
Imagen5.Visible
=
Falso
Fin
Si
Si
(a
=
4)
Entonces
Imagen1.Visible
=
Verdadero
Imagen2.Visible
=
Verdadero
Imagen3.Visible
=
Verdadero
Imagen4.Visible
=
Verdadero
Imagen5.Visible
=
Falso
Fin
Si
Si
(a
=
5)
Entonces
Imagen1.Visible
=
Verdadero
Imagen2.Visible
=
Verdadero
Imagen3.Visible
=
Verdadero
Imagen4.Visible
=
Verdadero
Imagen5.Visible
=
Verdadero
Fin
Si
Fin
Sub