'稍作修改：Function code(ByVal s$, ByVal key%)
Dim c As String * 1, iasc%, i
code = ""
For i = 1 To Len(s)
c = Mid$(s, i, 1)
Select Case c
Case "A" To "Z"
iasc = Asc(c) + key
If iasc > Asc("Z") Then iasc = iasc - 26
code = code + Chr(iasc)
Case "a" To "z...
