Question

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

在Text1中输入，在Text2中输出，按Command1执行。输出例如“3A3372”，要求每个字都转到

Answer 1

Dim i As Integer
text2=""
For i = 1 To Len(Text1)
Text2 = Text2 + format(Hex(Asc(Mid(Text1, i, 1))),"0000")
Next
以上为热心网友的结果，只是为了准确转换数字与汉字，加了一点东西.

Answer 2

Dim i As Integer
For i = 1 To Len(Text1)
Text2 = Text2 + Hex(Asc(Mid(Text1, i, 1)))
Next
'输入 百度 ,输出 B0D9B6C8
不知道是不是你要的

Answer 3

Text2.Text = Hex(Asc(Text1.Text))
该死,这样不行.

Answer 4

Private Sub Command1_Click()

For i = 1 To Len(Text1.Text)
n = jinzhizhuanh(Asc(Mid(Text1.Text, i, 1)))
jieguo = jieguo & n & " "
Next i

Text2.Text = jieguo

End Sub

Function jinzhizhuanh(n As Integer) As String
Dim a(15) As String

b = "0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f"

For i = 0 To 15
a(i) = Split(b, ",")(i)
Next i

Do While n > 15
s = Int(n / 16)
k = a(n - s * 16) & k
n = s
Loop
k = a(n) & k
jinzhizhuanh = k
End Function