"痦", "騖", "蜈", "鯃", "鰞", "鋈", "鼯", "鴮", "鵐", "鵡", "鶩", "鷡", "鹀", "鼿", "齀": strPY = "wu" Case Else strPY = p End Select pinyin4 = strPY End Function Function pinyin5(p As String) As String Dim strPY As String Select Case p Case "係",...