2007年1月23日
拼音助记码
摘要： 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 ... 阅读全文
posted @ 2007-01-23 21:53 yongwnet 阅读(585) 评论(0) 推荐(0) 编辑