Red de conocimiento informático - Problemas con los teléfonos móviles - Preguntas sobre programación de VB~

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

Imagen2.Visible

=

Falso

Imagen3.Visible

=

Falso

Imagen4.Visible

=

Falso

Imagen5.Visible

=

Falso

Fin

Si

Si

(a

=

1)

Entonces

Imagen1.Visible

=

Verdadero

Imagen2.Visible

=

Falso

Imagen3.Visible

=

Falso

Imagen4.Visible

<

Falso

Imagen5.Visible

=

Falso

Fin

Si

Si

(a

=

2)

Entonces

Imagen1.Visible

=

Verdadero

Imagen2.Visible

=

Verdadero

Imagen3.Visible

=

Falso

Imagen4.Visible

=

Falso

Imagen5.Visible

=

Falso

Fin

Si

Si

(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