VB代碼：

'---------------------------
'漢字轉(zhuǎn)拼音
'---------------------------
Public Function GetPY(Str As String) As String
On Error GoTo PROC_ERROR
??? Dim i As Long
??? For i = 0 To Len(Str) - 1
??????? GetPY = GetPY & GetPYChar(Mid(Str, i + 1, 1))
??? Next
???
PROC_ERROR:
??? Exit Function
End Function
Public Function GetPYChar(char As String) As String
On Error GoTo PROC_ERROR
??? Dim d As New Dictionary
??? d.Add "a", -20319
??? d.Add "ai", -20317
??? d.Add "an", -20304
??? d.Add "ang", -20295
??? d.Add "ao", -20292
??? d.Add "ba", -20283
??? d.Add "bai", -20265
??? d.Add "ban", -20257
??? d.Add "bang", -20242
??? d.Add "bao", -20230
??? d.Add "bei", -20051
??? d.Add "ben", -20036
??? d.Add "beng", -20032
??? d.Add "bi", -20026
??? d.Add "bian", -20002
??? d.Add "biao", -19990
??? d.Add "bie", -19986
??? d.Add "bin", -19982
??? d.Add "bing", -19976
??? d.Add "bo", -19805
??? d.Add "bu", -19784
??? d.Add "ca", -19775
??? d.Add "cai", -19774
??? d.Add "can", -19763
??? d.Add "cang", -19756
??? d.Add "cao", -19751
??? d.Add "ce", -19746
??? d.Add "ceng", -19741
??? d.Add "cha", -19739
??? d.Add "chai", -19728
??? d.Add "chan", -19725
??? d.Add "chang", -19715
??? d.Add "chao", -19540
??? d.Add "che", -19531
??? d.Add "chen", -19525
??? d.Add "cheng", -19515
??? d.Add "chi", -19500
??? d.Add "chong", -19484
??? d.Add "chou", -19479
??? d.Add "chu", -19467
??? d.Add "chuai", -19289
??? d.Add "chuan", -19288
??? d.Add "chuang", -19281
??? d.Add "chui", -19275
??? d.Add "chun", -19270
??? d.Add "chuo", -19263
??? d.Add "ci", -19261
??? d.Add "cong", -19249
??? d.Add "cou", -19243
??? d.Add "cu", -19242
??? d.Add "cuan", -19238
??? d.Add "cui", -19235
??? d.Add "cun", -19227
??? d.Add "cuo", -19224
??? d.Add "da", -19218
??? d.Add "dai", -19212
??? d.Add "dan", -19038
??? d.Add "dang", -19023
??? d.Add "dao", -19018
??? d.Add "de", -19006
??? d.Add "deng", -19003
??? d.Add "di", -18996
??? d.Add "dian", -18977
??? d.Add "diao", -18961
??? d.Add "die", -18952
??? d.Add "ding", -18783
??? d.Add "diu", -18774
??? d.Add "dong", -18773
??? d.Add "dou", -18763
??? d.Add "du", -18756
??? d.Add "duan", -18741
??? d.Add "dui", -18735
??? d.Add "dun", -18731
??? d.Add "duo", -18722
??? d.Add "e", -18710
??? d.Add "en", -18697
??? d.Add "er", -18696
??? d.Add "fa", -18526
??? d.Add "fan", -18518
??? d.Add "fang", -18501
??? d.Add "fei", -18490
??? d.Add "fen", -18478
??? d.Add "feng", -18463
??? d.Add "fo", -18448
??? d.Add "fou", -18447
??? d.Add "fu", -18446
??? d.Add "ga", -18239
??? d.Add "gai", -18237
??? d.Add "gan", -18231
??? d.Add "gang", -18220
??? d.Add "gao", -18211
??? d.Add "ge", -18201
??? d.Add "gei", -18184
??? d.Add "gen", -18183
??? d.Add "geng", -18181
??? d.Add "gong", -18012
??? d.Add "gou", -17997
??? d.Add "gu", -17988
??? d.Add "gua", -17970
??? d.Add "guai", -17964
??? d.Add "guan", -17961
??? d.Add "guang", -17950
??? d.Add "gui", -17947
??? d.Add "gun", -17931
??? d.Add "guo", -17928
??? d.Add "ha", -17922
??? d.Add "hai", -17759
??? d.Add "han", -17752
??? d.Add "hang", -17733
??? d.Add "hao", -17730
??? d.Add "he", -17721
??? d.Add "hei", -17703
??? d.Add "hen", -17701
??? d.Add "heng", -17697
??? d.Add "hong", -17692
??? d.Add "hou", -17683
??? d.Add "hu", -17676
??? d.Add "hua", -17496
??? d.Add "huai", -17487
??? d.Add "huan", -17482
??? d.Add "huang", -17468
??? d.Add "hui", -17454
??? d.Add "hun", -17433
??? d.Add "huo", -17427
??? d.Add "ji", -17417
??? d.Add "jia", -17202
??? d.Add "jian", -17185
??? d.Add "jiang", -16983
??? d.Add "jiao", -16970
??? d.Add "jie", -16942
??? d.Add "jin", -16915
??? d.Add "jing", -16733
??? d.Add "jiong", -16708
??? d.Add "jiu", -16706
??? d.Add "ju", -16689
??? d.Add "juan", -16664
??? d.Add "jue", -16657
??? d.Add "jun", -16647
??? d.Add "ka", -16474
??? d.Add "kai", -16470
??? d.Add "kan", -16465
??? d.Add "kang", -16459
??? d.Add "kao", -16452
??? d.Add "ke", -16448
??? d.Add "ken", -16433
??? d.Add "keng", -16429
??? d.Add "kong", -16427
??? d.Add "kou", -16423
??? d.Add "ku", -16419
??? d.Add "kua", -16412
??? d.Add "kuai", -16407
??? d.Add "kuan", -16403
??? d.Add "kuang", -16401
??? d.Add "kui", -16393
??? d.Add "kun", -16220
??? d.Add "kuo", -16216
??? d.Add "la", -16212
??? d.Add "lai", -16205
??? d.Add "lan", -16202
??? d.Add "lang", -16187
??? d.Add "lao", -16180
??? d.Add "le", -16171
??? d.Add "lei", -16169
??? d.Add "leng", -16158
??? d.Add "li", -16155
??? d.Add "lia", -15959
??? d.Add "lian", -15958
??? d.Add "liang", -15944
??? d.Add "liao", -15933
??? d.Add "lie", -15920
??? d.Add "lin", -15915
??? d.Add "ling", -15903
??? d.Add "liu", -15889
??? d.Add "long", -15878
??? d.Add "lou", -15707
??? d.Add "lu", -15701
??? d.Add "lv", -15681
??? d.Add "luan", -15667
??? d.Add "lue", -15661
??? d.Add "lun", -15659
??? d.Add "luo", -15652
??? d.Add "ma", -15640
??? d.Add "mai", -15631
??? d.Add "man", -15625
??? d.Add "mang", -15454
??? d.Add "mao", -15448
??? d.Add "me", -15436
??? d.Add "mei", -15435
??? d.Add "men", -15419
??? d.Add "meng", -15416
??? d.Add "mi", -15408
??? d.Add "mian", -15394
??? d.Add "miao", -15385
??? d.Add "mie", -15377
??? d.Add "min", -15375
??? d.Add "ming", -15369
??? d.Add "miu", -15363
??? d.Add "mo", -15362
??? d.Add "mou", -15183
??? d.Add "mu", -15180
??? d.Add "na", -15165
??? d.Add "nai", -15158
??? d.Add "nan", -15153
??? d.Add "nang", -15150
??? d.Add "nao", -15149
??? d.Add "ne", -15144
??? d.Add "nei", -15143
??? d.Add "nen", -15141
??? d.Add "neng", -15140
??? d.Add "ni", -15139
??? d.Add "nian", -15128
??? d.Add "niang", -15121
??? d.Add "niao", -15119
??? d.Add "nie", -15117
??? d.Add "nin", -15110
??? d.Add "ning", -15109
??? d.Add "niu", -14941
??? d.Add "nong", -14937
??? d.Add "nu", -14933
??? d.Add "nv", -14930
??? d.Add "nuan", -14929
??? d.Add "nue", -14928
??? d.Add "nuo", -14926
??? d.Add "o", -14922
??? d.Add "ou", -14921
??? d.Add "pa", -14914
??? d.Add "pai", -14908
??? d.Add "pan", -14902
??? d.Add "pang", -14894
??? d.Add "pao", -14889
??? d.Add "pei", -14882
??? d.Add "pen", -14873
??? d.Add "peng", -14871
??? d.Add "pi", -14857
??? d.Add "pian", -14678
??? d.Add "piao", -14674
??? d.Add "pie", -14670
??? d.Add "pin", -14668
??? d.Add "ping", -14663
??? d.Add "po", -14654
??? d.Add "pu", -14645
??? d.Add "qi", -14630
??? d.Add "qia", -14594
??? d.Add "qian", -14429
??? d.Add "qiang", -14407
??? d.Add "qiao", -14399
??? d.Add "qie", -14384
??? d.Add "qin", -14379
??? d.Add "qing", -14368
??? d.Add "qiong", -14355
??? d.Add "qiu", -14353
??? d.Add "qu", -14345
??? d.Add "quan", -14170
??? d.Add "que", -14159
??? d.Add "qun", -14151
??? d.Add "ran", -14149
??? d.Add "rang", -14145
??? d.Add "rao", -14140
??? d.Add "re", -14137
??? d.Add "ren", -14135
??? d.Add "reng", -14125
??? d.Add "ri", -14123
??? d.Add "rong", -14122
??? d.Add "rou", -14112
??? d.Add "ru", -14109
??? d.Add "ruan", -14099
??? d.Add "rui", -14097
??? d.Add "run", -14094
??? d.Add "ruo", -14092
??? d.Add "sa", -14090
??? d.Add "sai", -14087
??? d.Add "san", -14083
??? d.Add "sang", -13917
??? d.Add "sao", -13914
??? d.Add "se", -13910
??? d.Add "sen", -13907
??? d.Add "seng", -13906
??? d.Add "sha", -13905
??? d.Add "shai", -13896
??? d.Add "shan", -13894
??? d.Add "shang", -13878
??? d.Add "shao", -13870
??? d.Add "she", -13859
??? d.Add "shen", -13847
??? d.Add "sheng", -13831
??? d.Add "shi", -13658
??? d.Add "shou", -13611
??? d.Add "shu", -13601
??? d.Add "shua", -13406
??? d.Add "shuai", -13404
??? d.Add "shuan", -13400
??? d.Add "shuang", -13398
??? d.Add "shui", -13395
??? d.Add "shun", -13391
??? d.Add "shuo", -13387
??? d.Add "si", -13383
??? d.Add "song", -13367
??? d.Add "sou", -13359
??? d.Add "su", -13356
??? d.Add "suan", -13343
??? d.Add "sui", -13340
??? d.Add "sun", -13329
??? d.Add "suo", -13326
??? d.Add "ta", -13318
??? d.Add "tai", -13147
??? d.Add "tan", -13138
??? d.Add "tang", -13120
??? d.Add "tao", -13107
??? d.Add "te", -13096
??? d.Add "teng", -13095
??? d.Add "ti", -13091
??? d.Add "tian", -13076
??? d.Add "tiao", -13068
??? d.Add "tie", -13063
??? d.Add "ting", -13060
??? d.Add "tong", -12888
??? d.Add "tou", -12875
??? d.Add "tu", -12871
??? d.Add "tuan", -12860
??? d.Add "tui", -12858
??? d.Add "tun", -12852
??? d.Add "tuo", -12849
??? d.Add "wa", -12838
??? d.Add "wai", -12831
??? d.Add "wan", -12829
??? d.Add "wang", -12812
??? d.Add "wei", -12802
??? d.Add "wen", -12607
??? d.Add "weng", -12597
??? d.Add "wo", -12594
??? d.Add "wu", -12585
??? d.Add "xi", -12556
??? d.Add "xia", -12359
??? d.Add "xian", -12346
??? d.Add "xiang", -12320
??? d.Add "xiao", -12300
??? d.Add "xie", -12120
??? d.Add "xin", -12099
??? d.Add "xing", -12089
??? d.Add "xiong", -12074
??? d.Add "xiu", -12067
??? d.Add "xu", -12058
??? d.Add "xuan", -12039
??? d.Add "xue", -11867
??? d.Add "xun", -11861
??? d.Add "ya", -11847
??? d.Add "yan", -11831
??? d.Add "yang", -11798
??? d.Add "yao", -11781
??? d.Add "ye", -11604
??? d.Add "yi", -11589
??? d.Add "yin", -11536
??? d.Add "ying", -11358
??? d.Add "yo", -11340
??? d.Add "yong", -11339
??? d.Add "you", -11324
??? d.Add "yu", -11303
??? d.Add "yuan", -11097
??? d.Add "yue", -11077
??? d.Add "yun", -11067
??? d.Add "za", -11055
??? d.Add "zai", -11052
??? d.Add "zan", -11045
??? d.Add "zang", -11041
??? d.Add "zao", -11038
??? d.Add "ze", -11024
??? d.Add "zei", -11020
??? d.Add "zen", -11019
??? d.Add "zeng", -11018
??? d.Add "zha", -11014
??? d.Add "zhai", -10838
??? d.Add "zhan", -10832
??? d.Add "zhang", -10815
??? d.Add "zhao", -10800
??? d.Add "zhe", -10790
??? d.Add "zhen", -10780
??? d.Add "zheng", -10764
??? d.Add "zhi", -10587
??? d.Add "zhong", -10544
??? d.Add "zhou", -10533
??? d.Add "zhu", -10519
??? d.Add "zhua", -10331
??? d.Add "zhuai", -10329
??? d.Add "zhuan", -10328
??? d.Add "zhuang", -10322
??? d.Add "zhui", -10315
??? d.Add "zhun", -10309
??? d.Add "zhuo", -10307
??? d.Add "zi", -10296
??? d.Add "zong", -10281
??? d.Add "zou", -10274
??? d.Add "zu", -10270
??? d.Add "zuan", -10262
??? d.Add "zui", -10260
??? d.Add "zun", -10256
??? d.Add "zuo", -10254
???
??? Dim i As Long
??? Dim lChar As Long
??? lChar = Asc(char)
??? If (lChar > 0 And lChar < 160) Then
??????? GetPYChar = Chr(lChar)
??? ElseIf (lChar > -20319 And lChar < -10247) Then
??????? For i = d.Count - 1 To 0 Step -1
??????????? If d.Items(i) <= lChar Then
??????????????? GetPYChar = d.Keys(i)
??????????????? Exit For
??????????? End If
??????? Next
??? End If
???
PROC_ERROR:
??? Exit Function
End Function

轉(zhuǎn)載于:https://www.cnblogs.com/lauer0246/archive/2011/02/24/1964012.html

總結(jié)

以上是生活随笔為你收集整理的汉字转拼音（VB版）的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。