Question

vb题，求编程

Answer 1

Private Sub Command1_Click()
a = InputBox("请输入要加密的字符串：")
b = CInt(InputBox("N="))
For i = 1 To Len(a)
c = Asc(Mid(a, i, 1)) + b
If c > Asc("z") Then c = c - 26
Mid(a, i, 1) = Chr(c)
Next i
MsgBox ("加密后的字符串是：" & a)
End Sub
Private Sub Command2_Click()
a = InputBox("请输入要解密的字符串：")
b = CInt(InputBox("N="))
For i = 1 To Len(a)
c = Asc(Mid(a, i, 1)) - b
If c < Asc("a") Then c = c + 26
Mid(a, i, 1) = Chr(c)
Next i
MsgBox ("解密后的字符串是：" & a)
End Sub

追问

求解，万分感谢

追答

你打错字母了。是
Cint
不是CLnt

追问

好的，谢谢