La programación VB ingresa una cadena en Texto y calcula los números y letras en la cadena después de presionar Enter

Privado?Sub?Text1_KeyPress(KeyAscii?As?Integer)

Dim?n?As?Integer

Dim?m?As?Integer

n?=?0

m?=?0

If?KeyAscii?=?13?And?Text1.Text?lt;gt;?""? Entonces

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

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

m?=?m? 1

Fin?Si

Si?Asc(UCase(Mid(Text1.Text,?i,?1)))?gt;=?48?And?Asc(UCase (Mid(Text1.Text,?i,?1)))?lt;=?57?Then

n?=?n ?1

Fin?If

¿Siguiente?i

Si?m?=?n?Entonces

MsgBox?"tiene números"?amp;?n?amp;?", letras " ?amp;?m?amp;?", el número de números y letras es igual"

End?If If?m?gt;?n?Then

MsgBox?" Hay números "?amp;?n?amp;?" y letras "?amp;?m?amp;?". Hay más letras y hay más letras que números "?amp;?m?-?n". ?amp; ?"一"

Fin?Si

Si?m?gt;?n?Entonces

MsgBox?"有número"?amp; ?n? amp;?", letras"?amp;?m?amp;?", hay más números, más números que letras"?amp;?n?-?m?amp;?"pieza"

¿Fin?Si

Fin?Si

Fin?Sub