关于区位码转换

Question

Dim bArr(0 to 1) As Byte
Dim sMe as String
Dim TempLng as Long
bArr(0) = 160+区
bArr(1) = 160+位
TempLng=bArr(0)*&H100& or bArr(1)
sMe=Chr((TempLng and &H7fff) or ((TempLng and &H8000&)<>0)and &H8000)

Answer 1

5998不是在区位码二级汉字里吗？
--------------------------------------------------------------------
？？？1<=区码<=87
1<=位码<=94

Answer 2

我好象记得区位码和汉字内码关系为：
区码＋85H＝汉字内码第一字节
位码＋85H＝汉字内码第二字节
或是都加80H，你有汉字表的话可以查一下看看

Answer 3

你这是什么字符集的标准？我说的是GB2312-80
从&HA0（160）开始