VB高手进 帮忙编写个程序 速度了 谢谢

Question

编写个程序 要求在'输入原文'文本框中输入源字符串，单击‘输出译文’按钮，在‘译成密文’文本框中，输出译文结果。译码规律：A-Z B-Y .........a-z b-y等 http://hi.baidu.com/hanchao8849/album/item/8627ceec16063c5479f0553f.html 程序图片
抱歉 我一共18分 希望你们见谅

Answer 1

写给你:

Private Sub Command1_Click()
Dim i As Integer
Dim l As Integer
Dim one As String
l = Len(Text1.Text)

For i = 0 To l
one = Mid(Text1.Text, i + 1, 1)
Select Case one
Case "A"
Text2.Text = Text2.Text & "Z"
Case "B"
Text2.Text = Text2.Text & "Y"
Case "C"
Text2.Text = Text2.Text & "X"
Case "D"
Text2.Text = Text2.Text & "W"
Case "E"
Text2.Text = Text2.Text & "V"
Case "F"
Text2.Text = Text2.Text & "U"
Case "G"
Text2.Text = Text2.Text & "T"
Case "H"
Text2.Text = Text2.Text & "S"
Case "I"
Text2.Text = Text2.Text & "R"
Case "J"
Text2.Text = Text2.Text & "Q"
Case "K"
Text2.Text = Text2.Text & "P"
Case "L"
Text2.Text = Text2.Text & "O"
Case "M"
Text2.Text = Text2.Text & "N"
Case "N"
Text2.Text = Text2.Text & "M"
Case "O"
Text2.Text = Text2.Text & "L"
Case "P"
Text2.Text = Text2.Text & "K"
Case "Q"
Text2.Text = Text2.Text & "J"
Case "R"
Text2.Text = Text2.Text & "I"
Case "S"
Text2.Text = Text2.Text & "H"
Case "T"
Text2.Text = Text2.Text & "G"
Case "U"
Text2.Text = Text2.Text & "F"
Case "V"
Text2.Text = Text2.Text & "E"
Case "W"
Text2.Text = Text2.Text & "D"
Case "X"
Text2.Text = Text2.Text & "C"
Case "Y"
Text2.Text = Text2.Text & "B"
Case "Z"
Text2.Text = Text2.Text & "A"
Case "a"
Text2.Text = Text2.Text & "z"
Case "b"
Text2.Text = Text2.Text & "y"
Case "c"
Text2.Text = Text2.Text & "x"
Case "d"
Text2.Text = Text2.Text & "w"
Case "e"
Text2.Text = Text2.Text & "v"
Case "f"
Text2.Text = Text2.Text & "u"
Case "g"
Text2.Text = Text2.Text & "t"
Case "h"
Text2.Text = Text2.Text & "s"
Case "i"
Text2.Text = Text2.Text & "r"
Case "j"
Text2.Text = Text2.Text & "q"
Case "k"
Text2.Text = Text2.Text & "p"
Case "l"
Text2.Text = Text2.Text & "o"
Case "m"
Text2.Text = Text2.Text & "n"
Case "n"
Text2.Text = Text2.Text & "m"
Case "o"
Text2.Text = Text2.Text & "l"
Case "p"
Text2.Text = Text2.Text & "k"
Case "q"
Text2.Text = Text2.Text & "j"
Case "r"
Text2.Text = Text2.Text & "i"
Case "s"
Text2.Text = Text2.Text & "h"
Case "t"
Text2.Text = Text2.Text & "g"
Case "u"
Text2.Text = Text2.Text & "f"
Case "v"
Text2.Text = Text2.Text & "e"
Case "w"
Text2.Text = Text2.Text & "d"
Case "x"
Text2.Text = Text2.Text & "c"
Case "y"
Text2.Text = Text2.Text & "b"
Case "z"
Text2.Text = Text2.Text & "a"

Case Else
Text2.Text = Text2.Text & one
End Select
Next i
End Sub

Answer 2

老大。。。你去看看别人问这种VB问题的时候给的分数再来！

Answer 3

在百度中输入 “VB 加密字符串”，这就有结果了，这个比较简单的问题在这里是不会有人答的。

Answer 4

这有什么难的？ 哎。。。