如何取得汉字的区位码
Dimf
DimL1,R1AsInteger
DimInputStrAsString
InputStr="汉"
f=Hex(Asc(InputStr))
L1=CInt("&H" Mid(f,1,2))
R1=CInt("&H" Mid(f,3,2))->
DimL1,R1AsInteger
DimInputStrAsString
InputStr="汉"
f=Hex(Asc(InputStr))
L1=CInt("&H" Mid(f,1,2))
R1=CInt("&H" Mid(f,3,2))->
- 上一篇:如何取得计算机的所有字型
- 下一篇:如何对字符串进行加密解密
精彩图集
精彩文章