汉字与unicode码的互相转换

汉字与unicode码的互相转换

 

'在vb为得到测试的Unicode码这样做:
Dim ucode() As Byte
ucode = "测试"
'观察结果
Dim i As Integer
For i = 0 To UBound(ucode)
    Debug.Print ucode(i)
Next i
' 75 即4B
' 109  6D
' 213  D5
' 139  8B
'从unicode转成汉码可以这样做
Dim chin As String
chin = ucode

'观察结果
Debug.Print chin

'测试