字符串及内码的问题(一个问题50分)

Question

VB下返回的实际是"码"的Unicode码
? ascb(leftb(StrConv("码",vbFromUnicode) ,1)) ascb(rightb(StrConv("码",vbFromUnicode) ,1))
可以返回
194 235

Answer 1

用字节书组
http://www.csdn.net/expert/topic/600/600342.xml?temp=.4339868

Answer 2

汉字=Chr((区码+32)*&h100 or &H8000 Or (位码+160))

Answer 3

dim a,b,c
a=lenb("码")
for i=1 to a
b= ascb(midb(strconv("码",vbformunicode),i,1)
c=c & b & ","
next

Answer 4

Dim TempInt as IntegerTempInt=Asc(汉字)
区码=(TempInt And &H7F00)\&H100 -32
位码=TempInt And &HFF

Answer 5

上面的回答有错，如果字符串为“ Chr(127) & Chr(234) & Chr(248) & Chr(123)”组成，如何用asc还原呢?

Answer 6

dim iByte() as byteibyte=strconv("码",vbfromunicode)
ibyte(0)= 码的第一个字节
ibyte(1)= 码的第二个字节组成汉字：
debug.print strconv(ibyte,vbunicode)  可返回"码"！！！！！！

Answer 7

你只要用英文的vb就可以ASC（“码”）ASC（RIGHT（“码”，1））
================================================================ok?

Answer 8

E VB 专门做一个DLL
哈哈
================================================================ok?