VB常用算法（十）字符處理（統(tǒng)計與加密）

1、算法說明
    1) 加密解密
    最簡單的加密方法是：將每個字母加一序數(shù)，例如5，這時：
    “A”→”F”,”a” →”f”,”B” →”G”,”b” →”g”……”Y” →”D”, ”y” →”d”,”Z” →”E”, ”z” →”e”
    解密是加密的逆操作。
    界面如下：
    代碼如下：
     Option Explicit
     Private Sub Command1_Click()
     Dim strInput$, Code$, Record$, c As String * 1
     Dim i%, length%, iAsc%
     strInput = Text1.Text
     length = Len(Trim(strInput))
     Code = ""
     For i = 1 To length
     c = mid(strInput, i, 1)
     Select Case c
     Case "A" To "Z"
     iAsc = Asc(c) + 5
     If iAsc > Asc("Z") Then iAsc = iAsc - 26
     Code = Code & Chr(iAsc)
     Case "a" To "z"
     iAsc = Asc(c) + 5
     If iAsc > Asc("z") Then iAsc = iAsc - 26
     Code = Code & Chr(iAsc)