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

非字母要怎么处理？ 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 & C