其它获得汉字拼音的方法也可以,
找汉字的编码位置不可以准确的找到所有汉字拼音首字母,
有些个别汉字不是在连续编码区,比如“泓”字。

解决方案 »

  1.   

    以某个拼音字母在内码表中排列在最后的汉字,与26个字母的对应关系如下:'澳' a
    '怖' b
    '错' c
    '堕' d
    '贰' e
    '咐' f
    '过' g
    '祸' h
    i
    '骏' j
    '阔' k
    '络' l
    '穆' m
    '诺' n
    '沤' o
    '瀑' p
    '群' q
    '弱' r
    '所' s
    '唾' t
    u
    v
    '误' w
    '迅' x
    '孕' y
    '座 z注:没有以'i','u','v'开头的汉语拼音。Module1:Option Compare Text  '注意:这里必须用这个Public Function Comp(ByVal s As String) As String
        If s > "过" And s <= "祸" Then
            Comp = "h"
        Else
            Comp = ""
        End If
    End FunctionForm1:Private Sub Command1_Click()
        MsgBox Comp("泓")
    End Sub