以某个拼音字母在内码表中排列在最后的汉字,与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
'怖' 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