Question

下面程序实现如下功能：输入一行字母将字母加密输出（"a"变成"c"，"b"变成"d", 一直到"z"变成"b"）

#include

Answer 1

错位加密！找找关于加密的代码！

Answer 2

VB吗？

Answer 3

非字母要怎么处理？
Private Sub Command1_Click()
Dim T As String, Ti As String, L As Long, Ta As Integer, i As Long
T = InputBox("请输入：")
Debug.Print T
L = Len(T)
For i = 1 To L
Ta = Asc(Mid(T, i, 1))
Ti = Ti & Chr(IIf(Ta < 121, Ta + 2, Ta - (Ta \ 120) * 120 + 96))
Next
Debug.Print Ti
End Sub