高分请教字符数据转换显示,分不够可以再加，急急急！（个人有7310分）

Question

现在有一串字符 A="$1*q3esdf *~AEFSEF嘃%k4?€i" ，如何将它们一个个变成十六进制的数，比如 3B 4C 00 34 5D 6F A0 2B.......  并且将这些数显示出来ListBox
中,显示的为：3B 4C 00 34 5D 6F A0 2B.......  ?

Answer 1

A = "$1*q3esdf *~AEFSEF?%k4??€i?"
    For iFor = 1 To Len(A)
        b = Mid(A, iFor, 1)
        listbox1.additem(hex(asc(b))
    Next iFor
    
you try it:)

Answer 2

s = ""
For i = 0 To List1.ListCounts = s + Chr(Val("&H" & List1.List(i)))
Next
MsgBox s

Answer 3

Private Sub Command2_Click()
    Dim arr() As Byte
    Dim i As Integer
    Dim a As String
    Dim s As String
    a = "$1*q3esdf *~AEFSEF嘃%k4?€i"
    arr = StrConv(a, vbFromUnicode)
    For i = 0 To UBound(arr)
        s = s & Hex(arr(i)) & " "
    Next
    List1.AddItem s
    s = StrConv(arr, vbUnicode)
    Text2 = s
End Sub