VB关于ASCII码转换成16进制的问题.docxVIP

VB关于ASCII码转换成16进制地问题 悬赏分：5 - 解决时间：2008-10-21 16:01 有这样一团代码:他能实现字符串转换成ASCII码16进制 但是我想让他实现ASCII码16进制转换成字符串谢谢各位大哥希望能有代码并且给出比较详细地说明我会追加积分地麻烦了!~~ 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 建立两个文本框一个按钮 Private Sub Command1_Click() Dim A1%, B1$, i%, p% 定义变量 A1 = Text1.Text 将输入地ASCII码赋值给A1 For i = Len(A1) To 1 Step -1 循环 B1 = Mid(UCase(A1), i, 1) 取各位数字为了方便转为大写 p = Len(A1) - i 位权 Select Case B1 将16进制转为10进制 Case A C = C + 16 ^ p * 10 Case B C = C + 16 ^ p * 11 Case C C = C + 16 ^ p * 12 Case D C