一道VB编程题 高手进 谢谢

设计一个口令加密程序,口令由字母构成,将输入的每个字母循环左移2个字母（区分大小写），程序运行后界面如图所示：

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

Text2.Text = Text2.Text & Chr(KeyAscii - 2)
End Sub

Dim str1 Private Sub Command1_Click() '加密 Text2.Text = str1 End Sub

Private Sub Command2_Click() '退出 End End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer) str1 = str1 & Chr(KeyAscii - 2) End Sub

没装VB

密码的文本框内先获取明文文本框内的字符串数据，转换成ascii码，减2保存数据再输出

但是减2之后要判断ascii码是不是小于65或97，如果小于的话跳转到y，z的ascii码

当然也可以在减2之前判断原字幕是不是a，或b，之后做相应处理