用区与位得到汉字脚本源码

功能说明：得到区与位的汉字 

使用说明：可以用于注册游戏人物随机名字 

运行环境：分辨率：1440×900 色深：32位 操作系统：Windows XP 按键精灵版本：6.87.3495

@一只鱼 2009/3/10

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