About The Site

Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Phasellus a erat. Nulla quis felis quis libero ultricies vestibulum. Etiam eros elit, porttitor vel, imperdiet venenatis, tristique vel, lacus. Nunc eros lacus, condimentum ut, suscipit id, elementum ut, eros. Sed lorem. Proin aliquet suscipit sapien. Cras sit amet nulla. Aenean vitae metus. Suspendisse elementum varius mi. Duis malesuada, turpis ut luctus faucibus, justo leo tristique.

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

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


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


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


  • 这有什么难的？ 哎。。。


  • 写给你:


    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







    • #If you have any other info about this subject , Please add it free.#
    昵称:
    邮箱:
    电话:

    您的留言:


    如果您有关于 VB高手进 帮忙编写个程序 速度了 谢谢 方面的产品或者看法，敬请在此发布.

    Posted on January 6th, 2009 by 匿名
    Filed under: xn--8prq9q.com | edit