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

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

写给你:

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.