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 [用区与位得到汉字]