如何用VB实现ASCII转换

Question

如何用VB程序实现一个TEXT1输入8个字符,然后TEXT2转换成ASCII显示.TEXT1中要求输入有数字和字母,数字1-9要转成16进制再转成ASCII.
试了下,0-9的16进制ASCII码不对,没有转换为16进制,能给个完整的注释吗

0-9的16进制当然还是没变,为什么ASCII就不一样了?

Answer 1

Private Sub Text1_KeyPress(KeyAscii As Integer)
a = KeyAscii
b = Asc(Hex(Val(Chr(a))))
If a > 48 And a < 58 Then
Text2.Text = Text2.Text & b
Else
Text2.Text = Text2.Text & a
End If
End Sub

1---9转化成16进制还是1---9

你用电脑自带的计算器算一下，开始我也以为错了

不会吧，你算一下Asc(Hex(1))和Asc(1)是一样的，你再把1换成2-----9都一样啊