->汉字区位码查询<<---

文章作者 100test 发表时间 2008:04:19 13:12:08
来源 100Test.Com百考试题网

function genqw() str=f1.txt1.value newstr="" for i=1 to len(str) newstr=newstr&getqw(mid(str,i,1)) next f1.txt2.value=newstr end function function getqw(ch) casc=asc(ch) if casc<0 then casc=casc 65535 1 if casc>255 then b2=right("0"&((casc and 255)-160),2) b1=right("0"&(int(casc/256)-160),2) getqw=ch & " "&b1&b2 &" " else getqw=ch end if end function

汉字区位码查询系统
输入汉字：		区位码显示：

说明：此程序可用于职称考试涂报名卡时，查找区位码，也可以用于填写其他机读卡时查找汉字区位码，它可以将大量的汉字字符快速转换成区位码，查询快捷，使用方便。 注：区位码完全从计算机内码中得出，从目前使用情况看，可能有个别生僻字区位码有误，请使用者注意。