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

有这样一团代码:他能实现字符串转换成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 = C + 16 ^ p * 13 Case E C = C + 16 ^ p * 14 Case F C = C + 16 ^ p * 15 Case Else C = C + 16 ^ p * Val(B1) End Select Next Text2.Text = Chr(C) 转换为字符 End Sub 以上是对你程序的修改的方法 其实完全可以很简单的 Private Sub Command1_Click() Dim A1%, B1$, i%, p% 定义变量 A1 = Text1.Text 将输入的ASCII码赋值给A1 Text2.Text = Chr(Val(H A1)) 转换为字符 利用数值转换 End Sub 试试效果是不是一样啊 求vb中将字符串转换为16进制的ascii码代码 ascii码为16进制形式的 字符串包含数字字母和汉字 得到的ascii码全部为大写、并且取值是从后往前 欢迎大家积极帮助积分定当顷囊相送 楼上的不是VB代码，不要乱贴啊 使用VB内部函数 Hex$(x) 是把10进制的数字变成16进制 如y=Hex$(10)就是求10的十六进制数 那么 y=A 字母，数字，和汉字的asc码都只要用asc（）这个函数就可以求出来了 你把问题写写清楚的话，我可以写下代码 Option Explicit Dim aa$, bb$, hexstr$, I, S Private Sub Command1_Click() Dim lendd As Integer, n As Integer lendd = Len(Text2.Text) Text3.Text = n = 0 For I = lendd To 1 Step -1 n = n + 1 Text3.Text = Text3.Text + Mid(Text2.Text, I, 1) If n = 4 Then Text3.Text = Text3.Text -: n = 0 Next I End Sub Private Sub command2_Click() aa = If Text1.Text = Then Exit Sub For I = 1 To Len(Text1.Text) aa = aa CStr(ZFto16(Mid(Text1.Text, I, 1))) Next I Text2.Text = Trim(aa) Text1.Text = End Sub Public Function ZFto16(hz$) As String If hz = Then Exit Function ZFto16 = Hex(Asc(hz)) End Function Public Function ZF16toZF(hexstr$) As String If hz = Then Exit Function ZF16toZF = Chr(H hexstr) End Function int char2int(char ch) { if(ch=0