Red de conocimiento informático - Problemas con los teléfonos móviles - No se puede llamar a VB al cifrar caracteres en inglés. Informe a los expertos sobre el siguiente código y diagrama de interfaz.

No se puede llamar a VB al cifrar caracteres en inglés. Informe a los expertos sobre el siguiente código y diagrama de interfaz.

Función Cifrado(inStrl?As?String)?As?String

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

t?=?Asc(Mid(inStrl) ,?i,?1))

Seleccione Caso? a 122

Si?t?+?6?>?122?Entonces

t?= ?t?+?6?-?26

Else

t?=?t?+?6

Fin?Si

Caso?65?A?90

Si?t?+?6?>?90?Entonces

t?=?t?+?6?-?26

Else

t?=?t?+?6

¿Fin?Si ¿Fin?Select Encryp?=?Encryp?+?Chr (t)

¿Siguiente?i

Fin?Cuadro de texto de contraseña

'Comando1?=?Botón de cifrar

¿Privado?Sub?Command1_Click()Text2?= ?Encryp(Text1)

End?Sub

'¡Consulte y adopte! ¡Gracias!