Programación de cadenas Vb
¿Atenuar? ¿s? ¿Como? Línea
¿Oscura? ¿respuesta? ¿Como? Entero,? ¿b? ¿Como? Entero,? ¿do? ¿Como? Entero,? ¿d? ¿Como? Entero
a representa el número de letras, b representa el número de dígitos, c representa el número de espacios y d representa el número de otros caracteres.
¿Oscuro? ¿norte? ¿Como? Entero,? ¿metro? ¿Como? Entero
¿Atenuado? ¿I? ¿Como? ¿Entero
n? =?Len(Text1.Text)
¿Para qué? ¿I? =?1?¿Adónde ir? n
s? =?Mid(Texto1. texto,?i,?1)
m? =?Asc(S)
¿Seleccionar? ¿caso? m
¿Caso? 32?"Espacio"
c? =?c? +?1
¿Caso? 65?¿Adónde ir? 90,?97?¿Adónde ir? 122
¿Respuesta? =?¿Respuesta? +?1
¿Caso? 48?¿Adónde ir? 57
b? =?b? +?1
¿Caso? Otros
d? =?d? +?1
¿Fin? Seleccione
luego
Texto 2. ¿Palabra? =?un
SMS 3. ¿Palabra? =?b
Texto 4. ¿Palabra? =?c
Texto 5. ¿Palabra? =?d
¿Fin? Submarino
Letras minúsculas: 97-122
Letras mayúsculas: 65-90
Cantidad: 48-57
Espacio: 32