会员
周边
众包
新闻
博问
闪存
所有博客
当前博客
我的博客
我的园子
账号设置
简洁模式
...
退出登录
注册
登录
yongwnet
博客园
首页
新随笔
联系
订阅
管理
拼音助记码
Function pinyin()
Function
pinyin(p
As
String
)
As
String
Dim i as Integer
=
Asc
(p)
Select
Case
i
Case
-
20319
To
-
20284
: pinyin
=
"
A
"
Case
-
20283
To
-
19776
: pinyin
=
"
B
"
Case
-
19775
To
-
19219
: pinyin
=
"
C
"
Case
-
19218
To
-
18711
: pinyin
=
"
D
"
Case
-
18710
To
-
18527
: pinyin
=
"
E
"
Case
-
18526
To
-
18240
: pinyin
=
"
F
"
Case
-
18239
To
-
17923
: pinyin
=
"
G
"
Case
-
17922
To
-
17418
: pinyin
=
"
H
"
Case
-
17417
To
-
16475
: pinyin
=
"
J
"
Case
-
16474
To
-
16213
: pinyin
=
"
K
"
Case
-
16212
To
-
15641
: pinyin
=
"
L
"
Case
-
15640
To
-
15166
: pinyin
=
"
M
"
Case
-
15165
To
-
14923
: pinyin
=
"
N
"
Case
-
14922
To
-
14915
: pinyin
=
"
O
"
Case
-
14914
To
-
14631
: pinyin
=
"
P
"
Case
-
14630
To
-
14150
: pinyin
=
"
Q
"
Case
-
14149
To
-
14091
: pinyin
=
"
R
"
Case
-
14090
To
-
13319
: pinyin
=
"
S
"
Case
-
13318
To
-
12839
: pinyin
=
"
T
"
Case
-
12838
To
-
12557
: pinyin
=
"
W
"
Case
-
12556
To
-
11848
: pinyin
=
"
X
"
Case
-
11847
To
-
11056
: pinyin
=
"
Y
"
Case
-
11055
To
-
2050
: pinyin
=
"
Z
"
End
Select
End Function
posted @
2007-01-23 21:53
yongwnet
阅读(
585
) 评论(
0
)
编辑
收藏
举报
会员力量,点亮园子希望
刷新页面
返回顶部
公告