Question

vb将字符转换成asc代码

比如我在输入text1输入aa，点击command，text2出来的是97 97，现在只能有一个，老师提示好像用mid，求大神指导
5个字符之内满足就可以

Answer 1

Private Sub Command1_Click()
Dim i As Integer
Text2.Text = ""
For i = 1 To Len(Text1.Text)
    Text2.Text = Text2.Text & Asc(Mid(Text1.Text, i, 1)) & " "
Next
End Sub

追问

这个我打aaa出不来了呀

这个我打aaa出不来了呀

追答

你的Command名字是Command1吗？如果不是，把Command1_Click中的Command1改成实际的名字

追问

是command1，我打aa，出来97 97，但打aaa，还是97 97

而且我要的是我打任意五个字符都可以的，比如abfer

追答

不会啊，我测试的时候复制几百字到text1，text2都能出来啊，你的text2是否设了字数限制呢？看看它的maxlength是否非0

追问

弄好了，能不能再告诉我一下要是把asc再变回来用chr函数怎么弄

追答

Private Sub Command2_Click()
Dim i As Integer, s() As String
Text1.Text = ""
s = Split(Text2.Text, " ")
For i = 0 To UBound(s)
    If Val(s(i)) Then Text1.Text = Text1.Text & Chr(val(s(i)))
Next
End Sub

这是通过点击另一个按钮Command2把Text2中97 97 97这样的字串转为Text1中的aaa

Answer 2

Dim i As Integer
Dim s, ss As String
s = "aa"
ss = ""

For i = 1 To Len(s)
    ss = Asc(Mid(s, i, 1)) & ss & Chr(32)
Next i

MsgBox ss