vb设计的加密解密程序
For i = 1 To n s = Mid(Text1.Text, i, 1) If s >= "a" And s "z" Then s = Chr(Asc(s) - 26) ElseIf s >= "A" And s
下载地址
用户评论
