?chr(&HC7)
ヌ
?chr(&H7A)
z
?chr(&HD8)
リ
?chr(&H7D)
}
.
.
.
?chr(&HDF)
゚
?chr(&H75)
u
ヌ
?chr(&H7A)
z
?chr(&HD8)
リ
?chr(&H7D)
}
.
.
.
?chr(&HDF)
゚
?chr(&H75)
u
Dim tmp As String
Dim HexStr As String
Dim i As Integer
str = "GuangZhou"
For i = 1 To Len(str)
tmp = Mid(str, i, 1)
HexStr = HexStr & Hex(Asc(tmp))
Next i
Debug.Print HexStr得到
4775616E675A686F75
比较
C77AD87DD6A2DF75看看有什么规律? 我一下看不出来