Question

vb 加密求解，急！

对字符串进行加密处理。加密过程如下：
将每个字母C加一序数K＝5，即 c=chr(Asc(c)+5)，这时 "A"→"F"， "a"→"f"，"B"→"G"… 当加序数后的字母大于"Z"或"z"则 c=Chr(Asc(c)+5 -26)。提示：需要用Mid函数在窗体上放置一个文本框，输入待加密的源字符串，放置一个标签，输出加密后的字符串。单击窗体时完成加密过程并输出。

Answer 1

Private Sub Form_Click()
Dim i As Integer, c As Integer, k As Integer
k = 5
Label1.Caption = ""
For i = 1 To Len(Text1.Text)
    c = Asc(Mid(Text1.Text, i, 1)) + k
    If c > Asc("z") Or c > Asc("Z") And c < Asc("a") + k Then c = c - 26
    Label1.Caption = Label1.Caption & Chr(c)
Next
End Sub

Answer 2

解密：由变量C解密至变量D

对于大写，可用:D= CHR(((ASC(C)-65+26-5) MOD 26)+65)

也就是 D=CHR(((ASC(C)-44) MOD 26) +65)

同理，小写的情况是：D=CHR(((ASC(C)-76) MOD 26) +97)

结合在一起就是：

If Asc(c) >= 97 Then
D = Chr(((Asc(c) - 76) Mod 26) + 97)
Else
D = Chr(((Asc(c) - 44) Mod 26) + 65)
End If

Answer 3

这个这么简单，算法都有了，写下就行qq1815174011