救命哪！

来源：百度知道 编辑：UC知道 时间：2024/09/22 00:58:34
设计一个口令加密程序，口令由字母构成，将输入的每一个字母循环
左移2个字母（区分大小写），如
明文 A B C
密码 Y Z A

限制字母应该是文本框的事呵..我的代码没做.
2个文本框,1个按钮
text1输入密码,text2显示加密后的密码.

Private Sub Command1_Click()
'校验是不是字母的没做呵..
Dim password$, i%, NewPass$, j$
password = Text1
For i = 1 To Len(password)
j = Asc(Mid(password, i, 1)) - 2
If (j < 97 And j > 90) Or j < 65 Then j = j + 26
NewPass = NewPass & Chr(j)
Next
Text2 = NewPass
End Sub