求vb中将字符串转换为16进制的ascii码代码

来源：百度知道 编辑：UC知道 时间：2024/05/16 06:55:19
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 Stri