Gosub [用区与位得到汉字]
msgbox HangZi
EndScript 
Sub [用区与位得到汉字]
    //用区与位得到汉字 区16-87 位01-94
    i=16: aa = "": qu=87-16: wei=94-1
    For qu
        j=1
        For wei
            a = (i + 160) * &H100 + (j + 160): aa = aa & Chr(a):   j=j+1
        EndFor 
        i=i+1
    EndFor 
    HangZi = aa
Return [用区与位得到汉字]