如题，操作系统WIN7,OFFICE版本2003，使用程序：
Function PinYin(Hz As String)
Dim PinMa As String
Dim MyPinMa As Variant
Dim Temp As Integer, i As Integer, j As Integer
PinMa = "a,20319,Ai,20317,An,20304,Ang,20295,Ao,20292,"
PinMa = PinMa & "Ba,20283,Bai,20265,Ban,20257,Bang,20242,Bao,20230,Bei,20051,Ben,20036,Beng,20032,Bi,20026,Bian,20002,Biao,19990,Bie,19986,Bin,19982,Bing,19976,Bo,19805,Bu,19784,"
PinMa = PinMa & "Ca,19775,Cai,19774,Can,19763,Cang,19756,Cao,19751,Ce,19746,Ceng,19741,Cha,19739,Chai,19728,Chan,19725,Chang,19715,Chao,19540,Che,19531,Chen,19525,Cheng,19515,Chi,19500,Chong,19484,Chou,19479,Chu,19467,Chuai,19289,Chuan,19288,Chuang,19281,Chui,19275,Chun,19270,Chuo,19263,Ci,19261,Cong,19249,Cou,19243,Cu,19242,Cuan,19238,Cui,19235,Cun,19227,Cuo,19224,"
PinMa = PinMa & "Da,19218,Dai,19212,Dan,19038,Dang,19023,Dao,19018,De,19006,Deng,19003,Di,18996,Dian,18977,Diao,18961,Die,18952,Ding,18783,Diu,18774,Dong,18773,Dou,18763,Du,18756,Duan,18741,Dui,18735,Dun,18731,Duo,18722,"
PinMa = PinMa & "E,18710,En,18697,ER,18696,"
PinMa = PinMa & "Fa,18526,Fan,18518,Fang,18501,Fei,18490,Fen,18478,Feng,18463,Fo,18448,Fou,18447,Fu,18446,"
PinMa = PinMa & "Ga,18239,Gai,18237,Gan,18231,Gang,18220,Gao,18211,Ge,18201,Gei,18184,Gen,18183,Geng,18181,Gong,18012,Gou,17997,Gu,17988,Gua,17970,Guai,17964,Guan,17961,Guang,17950,Gui,17947,Gun,17931,Guo,17928,"
PinMa = PinMa & "Ha,17922,Hai,17759,Han,17752,Hang,17733,Hao,17730,He,17721,Hei,17703,Hen,17701,Heng,17697,Hong,17692,Hou,17683,Hu,17676,Hua,17496,Huai,17487,Huan,17482,Huang,17468,Hui,17454,Hun,17433,Huo,17427,"
PinMa = PinMa & "Ji,17417,Jia,17202,Jian,17185,Jiang,16983,Jiao,16970,Jie,16942,Jin,16915,Jing,16733,Jiong,16708,Jiu,16706,Ju,16689,Juan,16664,Jue,16657,Jun,16647,"
PinMa = PinMa & "Ka,16474,Kai,16470,Kan,16465,Kang,16459,Kao,16452,Ke,16448,Ken,16433,Keng,16429,Kong,16427,Kou,16423,Ku,16419,Kua,16412,Kuai,16407,Kuan,16403,Kuang,16401,Kui,16393,Kun,16220,Kuo,16216,"
PinMa = PinMa & "La,16212,Lai,16205,Lan,16202,Lang,16187,Lao,16180,Le,16171,Lei,16169,Leng,16158,Li,16155,Lia,15959,Lian,15958,Liang,15944,Liao,15933,Lie,15920,Lin,15915,Ling,15903,Liu,15889,Long,15878,Lou,15707,Lu,15701,Lv,15681,Luan,15667,Lue,15661,Lun,15659,Luo,15652,"
PinMa = PinMa & "Ma,15640,Mai,15631,Man,15625,Mang,15454,Mao,15448,Me,15436,Mei,15435,Men,15419,Meng,15416,Mi,15408,Mian,15394,Miao,15385,Mie,15377,Min,15375,Ming,15369,Miu,15363,Mo,15362,Mou,15183,Mu,15180,"
PinMa = PinMa & "Na,15165,Nai,15158,Nan,15153,Nang,15150,Nao,15149,Ne,15144,Nei,15143,Nen,15141,Neng,15140,Ni,15139,Nian,15128,Niang,15121,Niao,15119,Nie,15117,Nin,15110,Ning,15109,Niu,14941,Nong,14937,nu,14933,nv,14930,nuan,14929,nue,14928,nuo,14926,"
PinMa = PinMa & "O,14922,Ou,14921,"
PinMa = PinMa & "Pa,14914,Pai,14908,Pan,14902,Pang,14894,Pao,14889,Pei,14882,Pen,14873,Peng,14871,Pi,14857,Pian,14678,Piao,14674,Pie,14670,Pin,14668,Ping,14663,Po,14654,Pu,14645,"
PinMa = PinMa & "Qi,14630,Qia,14594,Qian,14429,Qiang,14407,Qiao,14399,Qie,14384,Qin,14379,Qing,14368,Qiong,14355,Qiu,14353,Qu,14345,Quan,14170,Que,14159,Qun,14151,"
PinMa = PinMa & "Ran,14149,Rang,14145,Rao,14140,Re,14137,Ren,14135,Reng,14125,Ri,14123,Rong,14122,Rou,14112,Ru,14109,Ruan,14099,Rui,14097,Run,14094,Ruo,14092,"
PinMa = PinMa & "Sa,14090,Sai,14087,San,14083,Sang,13917,Sao,13914,Se,13910,Sen,13907,Seng,13906,Sha,13905,Shai,13896,Shan,13894,Shang,13878,Shao,13870,She,13859,Shen,13847,Sheng,13831,Shi,13658,Shou,13611,Shu,13601,Shua,13406,Shuai,13404,Shuan,13400,Shuang,13398,Shui,13395,Shun,13391,Shuo,13387,Si,13383,Song,13367,Sou,13359,Su,13356,Suan,13343,Sui,13340,Sun,13329,Suo,13326,"
PinMa = PinMa & "Ta,13318,Tai,13147,Tan,13138,Tang,13120,Tao,13107,Te,13096,Teng,13095,Ti,13091,Tian,13076,Tiao,13068,Tie,13063,Ting,13060,Tong,12888,Tou,12875,Tu,12871,Tuan,12860,Tui,12858,Tun,12852,Tuo,12849,"
PinMa = PinMa & "Wa,12838,Wai,12831,Wan,12829,Wang,12812,Wei,12802,Wen,12607,Weng,12597,Wo,12594,Wu,12585,"
PinMa = PinMa & "Xi,12556,Xia,12359,Xian,12346,Xiang,12320,Xiao,12300,Xie,12120,Xin,12099,Xing,12089,Xiong,12074,Xiu,12067,Xu,12058,Xuan,12039,Xue,11867,Xun,11861,"
PinMa = PinMa & "Ya,11847,Yan,11831,Yang,11798,Yao,11781,Ye,11604,Yi,11589,Yin,11536,Ying,11358,Yo,11340,Yong,11339,You,11324,Yu,11303,Yuan,11097,Yue,11077,Yun,11067,"
PinMa = PinMa & "Za,11055,Zai,11052,Zan,11045,Zang,11041,Zao,11038,Ze,11024,Zei,11020,Zen,11019,Zeng,11018,Zha,11014,Zhai,10838,Zhan,10832,Zhang,10815,Zhao,10800,Zhe,10790,Zhen,10780,Zheng,10764,Zhi,10587,Zhong,10544,Zhou,10533,Zhu,10519,Zhua,10331,Zhuai,10329,Zhuan,10328,Zhuang,10322,Zhui,10315,Zhun,10309,Zhuo,10307,Zi,10296,Zong,10281,Zou,10274,Zu,10270,Zuan,10262,Zui,10260,Zun,10256,Zuo,10254"
MyPinMa = Split(PinMa, ",")
For i = 1 To Len(Hz)
Temp = Asc(Mid(Hz, i, 1))
If Temp < 0 Then
Temp = Abs(Temp)
For j = 791 To 1 Step -2
If Temp <= Val(MyPinMa(j)) Then
PinYin = PinYin & MyPinMa(j - 1) & " "
Exit For
End If
Next
End If
Next
PinYin = Trim(PinYin)
End Function
也用过别的程序，情况一样，哪位大侠知道怎么解决！
|
IP卡
狗仔卡
发表于 2013-6-24 11:38
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
千斤顶
显身卡
