怎样将两个ascii码合成一个汉字？

Question

public function FixAsc(byval HiAsc as long, byval LoAsc as long) as string
  FixAsc=StrConv(Chr(HiAsc), vbFromUnicode) + StrConv(Chr(LoAsc), vbFromUnicode)
end function

Answer 1

    
    Dim byt(1) As Byte, str As String
    byt(0) = 196  '汉字的高位
    byt(1) = 227  '汉字的低位
    str = StrConv(ChrB(byt(0)) & ChrB(byt(1)), vbUnicode)

Answer 2

我已经试过strconv合并，但并不是所有的字都可以，下边是例子和过程代码 
Public Function FixAsc(ByVal HiAsc As Long, ByVal LoAsc As Long) As St 
ring 
  FixAsc = StrConv(Chr(HiAsc), vbFromUnicode) + StrConv(Chr(LoAsc), vb 
FromUnicode) 
End Function 
下岗女工莫流泪-> 下 尀 女 崀  流 氀(中间每个汉字之间用空格隔开了) 
下边是这几个字的高低位码 
| 11 78| 151 92| 115 89| 229 93| 171 131| 65 109| 234 108 
下边是这几个字的编码 
|-12350|-18214|-14930|-18012|-15190|-15881|-16159 
请各位大虾帮我解决解决,先谢谢了

Answer 3

增加数组大小，试看看
    Dim c(2) As Byte, str As String
    c(0) = 196  '汉字的高位
    c(1) = 227  '汉字的低位
    c(2) = 0
    str = StrConv(ChrB(c(0)) & ChrB(c(1)), vbUnicode)

Answer 4

试试这个：
Public Function FixAsc(ByVal HiAsc As Long, ByVal LoAsc As Long) As String
  FixAsc = ChrB(HiAsc) + ChrB(LoAsc)
End Function