求助

Question

转换的原理如下面代码，具体的你可以自己考虑：
Dim strOutput As String
Dim intQu(2) As Integer
Dim intWei(2) As Integer
Dim i As Integer
'0x575B1239EFE5----此为16进制格式
intQu(0) = CInt("&H" & "57")
intWei(0) = CInt("&H" & "5B")
intQu(1) = CInt("&H" & "12")
intWei(1) = CInt("&H" & "39")
intQu(2) = CInt("&H" & "EF") - 160      '当16进制数大于或等于&H80时
intWei(2) = CInt("&H" & "E5") - 160     '转换后要减去160
For i = 0 To 2
    strOutput = ChrB(&HA0 + intQu(i)) & ChrB(&HA0 + intWei(i))
    strOutput = StrConv(strOutput, vbUnicode)
    Debug.Print strOutput
Next i