怎样得到汉字的内码?等待结贴

Question

dim a as string
a="汉"dim q as integer
dim w as integerq=(asc(a)+65536) \256
w=(asc(a)+65536) mod 256

Answer 1

这是它的asc码,不是内码?如:汉的内码是:1743

Answer 2

汉的内码是:1743？？？？dim a as string
a="汉"dim q as integer
dim w as integerq=(asc(a)+65536) \256 - 160
w=(asc(a)+65536) mod 256 - 160

Answer 3

dim s as string
dim q as integer
dim w as integer
dim input as stringinput="汉"
s=Hex(Asc(input))
q=CInt("&H"+Mid(s,1,2))
w=CInt("&H"+Mid(s,3,2))

Answer 4

汉字的内码 = hex(asc("汉"))
区码 = hex(val("&H" & mid(汉字的内码,1,2))-val("&HA0"))
位码 = hex(val("&H" & mid(汉字的内码,3,2))-val("&HA0"))

Answer 5

汉字 = chr(val("&H" & 汉字的内码))