Fork me on Github
摘要: Function pinyin(p As String) As String Dim i As Integer i = Asc(p) Select Case i Case -20319 To -20284: pinyin = "A" Case -20283 To -19776: pinyin = " 阅读全文
posted @ 2025-09-02 11:22 昂昂呀 阅读(6) 评论(0) 推荐(0)