Question

VB的问题。我想要单击command1之后将text1中输入的字符转化成asc码，并显示在text

VB的问题。我想要单击command1之后将text1中输入的字符转化成asc码，并显示在text2中。单击command2之后text2中的asc码变回原字符并显示在text3中。求大神帮忙！

Answer 1

Private Sub Command1_Click() '加密按钮
'此功能只能读取到一个字符
Text2.Text = Asc(Text1.Text)

End Sub

'输入框为text1
'加密框: Text2
'解密框: Text3

Private Sub Command2_Click() '解密按钮
Text3.Text = Chr(Text2.Text)
End Sub

界面你自己设计吧，，，不上传了 

追问

你的我没看懂……你看下我这个……

追答

你这个只能将Text1中所有转成ASC,但不能一次性将所有字一起转回来

如果你要实现，整个输入的文本全部转换，解密的时候也要用循环来一个个提取出单个字符的Asc码来，再进行单个解密回来，再组合起来

Private Sub Command1_Click()
Text1 = "123一二三xyzABC!@#"
    Text2 = ""
    For i = 1 To Len(Text1)
        Text2 = Text2 & Asc(Mid(Text1, i, 1)) & " "
    Next

End Sub

Private Sub Command2_Click()
    Text3 = ""
    Dim intSt, intLn, miwen As Integer '其它可以不用定义 miwen 一定要定义为整形

    intSt = 1
    Do While intLn < Len(Text2)
        intLn = InStr(intSt, Text2, " ") '获取第1个字对ASC码结尾空格位置,
        miwen = Val(Mid(Text2, intSt, intLn - intSt))
        '取得ASC码值 因为可能包含数字 汉字 字母 符号， 长度不确定，如果是统一的话就可以改《for + 乘数》固定取值
        
        Text3 = Text3 & Chr(miwen)

        intSt = intLn + 1 '重定位起始位置

    Loop

End Sub

追问

那怎么转回来QwQ可以给个完整的吗QwQ

追答

嗯 把Q私信发我吧

 

不用留了，我上传附件好了： 

Answer 2

好复杂

Answer 3

这问题很简单。真的。