预览加载中,请您耐心等待几秒...
1/10
2/10
3/10
4/10
5/10
6/10
7/10
8/10
9/10
10/10

亲,该文档总共27页,到这已经超出免费预览范围,如果喜欢就直接下载吧~

如果您无法下载资料,请参考说明:

1、部分资料下载需要金币,请确保您的账户上有足够的金币

2、已购买过的文档,再次下载不重复扣费

3、资料包下载后请先用软件解压,在使用对应软件打开

i=Asc(p) SelectCasei Case-12556To-12360:pinyi CaseElse: pinyin=p EndSelect EndFunction Functiongetpy(str) Fori=1ToLen(str) getpy=getpy&pinyin(Mid(str,i,1)) Nexti EndFunction