VB问题，谢谢 ！

来源：百度知道 编辑：UC知道 时间：2024/05/25 05:59:23
翻译密码。要求将输入的原码一律转换为大写字母进行译码，若出现字母以外的其他字符，显示出错信息。译码规则为：如原码为A，译码为G；原码为B，译码为H；原码为C，译码为I；……原码为X，译码为D；原码为Y，译码为D；原码为Z，译码为F

Private Sub Command1_Click()
Dim a$ '原密码
Dim b$ '新密码
Dim i%, j%
a = "abcxyz"
a = UCase(a)
For i = 1 To Len(a)
j = Asc(Mid(a, i, 1))
If j < 65 Or j > 90 Then MsgBox "有非法字符!!": Exit Sub
j = j + 6
If j > 90 Then j = j - 26
b = b & Chr(j)
Next
Print b
End Sub