简单生活——Kevin Yang的博客

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,"
  PinMa = PinMa & "b,2…