Question

vb编程，设计一个文本加密程序。输入一个字符串，按照以下规律加密“

vb编程，设计一个文本加密程序。输入一个字符串，按照以下规律加密“如果输入的是字母也把其转换其后的第四个字母，如a转换成e等，相应的最后三个字母x转换成b，y转换成c，z转换成d，小写字母也相同，输入其他字符不变！”怎么编？

Answer 1

是不是弄错了，应该是wxyz转换为abcd吧？
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim ckey As Integer
If KeyAscii >= Asc("a") And KeyAscii <= Asc("z") Then
ckey = KeyAscii + 4
If ckey > Asc("z") Then ckey = ckey - Asc("z") + Asc("a") - 1
KeyAscii = ckey
End If
If KeyAscii >= Asc("A") And KeyAscii <= Asc("Z") Then
ckey = KeyAscii + 4
If ckey > Asc("Z") Then ckey = ckey - Asc("Z") + Asc("A") - 1
KeyAscii = ckey
End If
End Sub