程序代码：

Clear
lcString = '中华人民共和国'
*!*    GB2312
For i = 1 To Lenc(lcString)
    ?Substrc(lcString, i, 1), Strconv(Substrc(lcString, i, 1), 15)
Next
?
*!*    Unicode(cjk)
For i = 1 To Lenc(lcString)
    m.Hex = Strconv(Strconv(Substrc(lcString, i, 1), 5), 15)
    ? Substrc(lcString, i, 1), Right(m.Hex, 2) + Left(m.Hex, 2)
Next 

程序代码：

CLEAR
?DECTOHEX([中华人民共和国])
*--------------------------------------------------------------------------------
*十进制转十六进制函数
*--------------------------------------------------------------------------------
FUNCTION DECTOHEX
PARAMETERS CSTR
LOCAL lcStr
lcStr=[]
FOR lnI=1 TO LENC(CSTR)
    lcStr=SUBSTR(TRANSFORM(ASC(SUBSTRC(CSTR,lnI,1)),[@0]),7,4)+lcStr
ENDFOR
RETURN lcStr