知道中文的两个ASC码，如何把它转换为中文 高分在线

Question

Dim bArr(1) As Byte 
Dim HZ as String 
bArr(0) = 217
bArr(1) = 143
HZ = StrConv(bArr, vbUnicode) '即可得到汉字

Answer 1

Dim HZ As String
HZ = ChrB(217) & ChrB(143)

Answer 2

dragon525 你的函数有点问题，转回的汉字不是原来的汉字，不过我已经找到解决方案了，正确的解决方法是Dim bArr(1) As Byte 
Dim HZ as String 
bArr(0) = 217
bArr(1) = 143
HZ = bArr         '即可得到汉字分数还是给你，谢谢你的提示

Answer 3

如果我想把一个汉字分解成两个ASCII码呢？
应该怎么做？能教教我吗？

Answer 4

dim a as string
dim b(1) as integer
a="汉"
for i=1 to lenb(a)
    b(i-1)=ascb(mid(a,i,1))
next

Answer 5

不好意思，错了dim a as string
dim b(1) as integer
a="汉"
for i=1 to lenb(a)
    b(i-1)=ascb(midb(a,i,1))
next

Answer 6

请问ASCB是什么意思?
还有MIDB??