GBK範圍:？0x8140？-?0xFEFE
公共？功能？HIBYTE(ByVal？詞？作為？整數)？作為？字節
HIBYTE？=?(Word？然後呢。& ampHFF00 & amp)?\?& ampH100
結束？功能
公共？功能？LOBYTE(ByVal？詞？作為？整數)？作為？字節
LOBYTE？=?詞？然後呢。& ampHFF
結束？功能
按GB2312提取漢字。
功能？TiQu(str？作為？字符串)
暗淡？我？作為？整數
暗淡？nAsc？作為？整數
暗淡？bytHigh？作為？字節
暗淡？bytLow？作為？字節
暗淡？strChar？作為？線
暗淡？strTemp？作為？線
為了什麽？我？=?1?去哪？長度
strChar？=?Mid(str，？我，？1)
nAsc？=?Asc(strChar)
bytLow？=?LOBYTE
bytHigh？=?高字節(nAsc)
如果？bytLow？& gt=?& ampHA1？然後呢。bytHigh？& gt=?& ampHA1？然後
strTemp？=?strTemp？& amp？斯特查爾
結束？如果
然後
TiQu？=?strTemp
結束？功能
例子
Sub？示例1()
MsgBox？tiqu(" D中的F國，L國；壹個世界sjd界f；壹個”)
結束？潛水艇