摘要： Function pinyin()Function pinyin(p As String) As String Dim i as Integer = Asc(p) Select Case i Case -20319 To -20284: pinyin = "A" Case -20283 To -19776: pinyin = "B" Case -19775 To -19219: pinyin ... 阅读全文