计算机等级考试二级VB常用算法(10)：字符处理

文章作者 100test 发表时间 2007:05:18 11:13:27
来源 100Test.Com百考试题网

1) 加密解密
最简单的加密方法是：将每个字母加一序数，例如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