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

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

#include

2024-11-10 13:44:10

推荐回答（3个）

回答1：

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

回答2：

VB吗？

回答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