VB关于ASCII码转换成进制的问题.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 AC = 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码赋值给A1Text2.Text = Chr(Val(H A1)) 转换为字符利用数值转换End Sub试试效果是不是一样啊求vb中将字符串转换为16进制地ascii码代码悬赏分：110 - 解决时间：2008-2-20 16:46ascii码为16进制形式地字符串包含数字字母和汉字问题补充：得到地ascii码全部为大写、并且取值是从后往前欢迎大家积极帮助积分定当顷囊相送楼上地不是VB代码,不要乱贴啊使用VB内部函数 Hex$(x) 是把10进制地数字变成16进制如y=Hex$(10)就是求10地十六进制数那么 y=A字母,数字,和汉字地asc码都只要用asc（）这个函数就可以求出来了你把问题写写清楚地话,我可以写下代码Option ExplicitDim aa$, bb$, hexstr$, I, SPrivate 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 IEnd SubPrivate 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 SubPublic Function ZFto16(hz$) As String If hz = Then Exit Function ZFto16 = Hex(Asc(hz))End FunctionPublic Function ZF16toZF(hexstr$) As String If hz = Then Exit Function ZF16toZF = Chr(H hexstr)End Function其他回答????共 2 条int char2int(char ch) { if(ch=0 ch= 9) return (ch-0); if(ch=a ch= f) return