Red de conocimiento informático - Problemas con los teléfonos móviles - El problema de VB se encuentra a continuación. Es necesario explicar el proceso de programación.

El problema de VB se encuentra a continuación. Es necesario explicar el proceso de programación.

Esta es la aplicación del código asc Private?Sub?Text1_Change()

Dim?shu?As?Integer,?zimu?As?Integer

If ?Text1?=?""?Entonces?Salir?Sub

Dim?i?As?Integer

For?i?=?1?To?Len(Text1)

Si?Asc(Mid(Texto1,?i,?1))?gt;=?48?Y?Asc(Mid(Texto1,?i,?1))?lt;=?57?Entonces

shu?=?shu? ?1

Else

If?Asc(Mid(Text1,?i,?1))?gt;=? 65?Y?Asc(Mid(Text1,?i,?1))?lt;=?90?Entonces

zimu?=?zimu ?1

Else p>

If?Asc(Mid(Texto1,?i,?1))?gt;=?97?Y?Asc(Mid(Texto1,?i,?1))?lt;=?122 ?Entonces

zimu?=?zimu?1

Fin?Si

Imprimir?zimu;?shu

Si?Mid(Text1,?Len(Text1),?1)?=?"."?Entonces

Si?zimu?gt;?shu?Entonces

MsgBox?"SÍ"

Si no

MsgBox?"NO"

¿Fin?Si

Texto1?=?""

¿Salir?Sub

Fin?Si

Fin?Sub