Question

VB求助 文字加密。英文为例，先将输入的明文字母一律转换为大写，在进行加密转换，字母 以外的字符则保留

文字加密。以英文为例，先将输入的明文字母一律转换为大写，在进行加密转换，字母 以外的字符则保留，最后输出转换后的文字，即为密文。

Answer 1

这个很简单呀，就是一种“凯撒密码”嘛。

就给你写加密的，另外两个按钮的不用我写吧。

Private Sub Command1_Click()
' 加密
   Dim sText As String
   Dim i&, v&
   sText = Text1.Text
   If (sText = "") Then
      MsgBox "请输入明文。", vbInformation
      Exit Sub
   End If
   sText = UCase$(sText)
   For i = 1 To Len(sText)
      v = Asc(Mid$(sText, i, 1))
      If (v > 64 And v < 91) Then
         If (v < 85) Then
            Mid$(sText, i, 1) = Chr$(v + 6)
         Else
            Mid$(sText, i, 1) = Chr$(v - 20)
         End If
      End If
   Next
   Text2.Text = sText
End Sub

Answer 2

Private Sub Command1_Click()
dim x as string
dim i as integer
x=trim(text1.text)
for i=1 to Len(x)
if Mid(x,i,1)="A"
text2.text=text2.text+"G"
elseif Mid(x,i,1)="B"
text2.text=text2.text+"H"
.
.
.
elseif Mid(x,i,1)="Z"
text2.text=text2.text+"F"
Else
text2.text=text2.text+Mid(x,i,1)
end if
next i
End Sub