请各位VB高手帮个忙

来源：百度知道编辑：UC知道时间：2024/06/15 10:53:36

Private Sub Command1_Click()
Dim A$, i%, B$
A = Text1.Text
For i = 1 To Len(A)
B = B & Hex(Asc(Mid(A, i, 1)))
Next
Text2.Text = B
End Sub
现在是字符转为ASCII编码我想要实现的是ASCII编码转换为字符

如下：
Private Sub Command2_Click()
Cls
Dim A$, i%, B$
A = Text1.Text
B = B & Chr(Val(A))
Text2.Text = B
End Sub
添加一命令按钮即可
呵呵！祝你好运~

用Chr函数可以.

请VB高手帮个忙！ VB-中等题!请各位高手进来!! vb问题?请各位高手进! VB问题，请各位高手排错 vb高手请进!!!!!!!!!!请各位帮帮忙!!! 请各位vb高手帮忙解决啊 VB新手，请各位高手帮忙本人初学VB，请各位VB高手指点一下！请教各位VB高手各位VB高手帮帮忙