Red de conocimiento informático - Material del sitio web - Estoy programando a ciegas.

Estoy programando a ciegas.

Esta es la aplicación del código asc.

¿Privado? ¿Sub? Text1_Change()

¿Atenuado? ¿Shu? ¿Como? Entero,? ¿Zimú? ¿Como? Entero

¿Si? ¿Texto 1? =?""?¿Y luego qué? ¿abandonar? Submarino

¿Oscuro? ¿I? ¿Como? Enteros

¿Para qué? ¿I? =?1?¿Adónde ir? Len(Texto1)

¿Y si? Asc(Mid(Text1,i,?1))? gt=?48? Entonces qué. Asc(Mid(Text1,I,?1))?lt=?57?Entonces

Shu? =?Shu? ?1

Otro

¿Si? Asc(Mid(Text1,i,?1))? gt=?65? Entonces qué. Asc(Mid(Texto1,I,?1))? lt=?90?Entonces

Zimu? =?Zimu? ?1

Otro

¿Si? Asc(Mid(Text1,i,?1))? gt=?97? Entonces qué. Asc(Mid(Texto1,I,?1))? lt=?122?Entonces

Zimu? =?Zimu? ?1

¿Fin? Si

¿Finalizar? Si

¿Finalizar? Si

entonces

¿imprimir? Zimu;? Virus Shuni

¿Y si? Mid(Texto1,?Len(Texto1),?1)?=?"."? Entonces

¿Y si? ¿Zimú? ¿gt? ¿Shu? Entonces

¿MsgBox? "Sí"

Otro

¿Cuadro de mensajes? "No"

¿Fin? Si

Texto1? =?""

¿Salir? Submarino

¿Fin? Si

¿Finalizar? Submarino