如何得到一句中文字符串的 UNICODE 字符代码

Question

用 ASCW("如") 可以得到 5982 ，但是如何得到一句中文的UNICODE 字符代码呢？用 ASCW("如果收到") 还是得到的是 5982 ，怎么办,大家帮帮忙!

Answer 1

循环一下
dim StrX as string,Intnums as integer,Stry as string
strx="如果收到"
for intnums=1 to len(strx)
    stry=stry & ascw(mid(strx,intnums,1)) & vbcrlf
next intnums
text1.text=stry

Answer 2

另外说一下,Asc函数系列一次只能得到一个字符的Ascii码,如果字符是多个,则只返回第一个字符的Ascii码