方法是alt+f11将程序代码添加到模块中,
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,"
...(以下省略)
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)
我想问的就是这个程序的原理是什么以及如何处理阿拉伯数字(该函数不会处理阿拉伯数字)
ä½æ¯è¿ä¸ªç¨åºæ¯å¯ç¨ç,æç°å¨å°±æ³ç¥éé¿æ伯æ°ååºè¯¥æä¹è§£å³