VB里有没有象VFP里的code函数那样取出汉字串的每个汉字的第一个拼音字母函数

Question

如上
再问一下，VB与VFP哪个对图形表的操纵好一些

Answer 1

/Function pinyin(ByVal x As String) As String
Const hanzi = "啊芭擦搭蛾发噶哈击喀垃妈拿哦啪期然撒塌挖昔压匝座ABCDEFGHJKLMNOPQRSTWXYZZ"
If x = "座" Then pinyin = "Z"
For i = 1 To 23
If Asc(x) >= Asc(Mid(hanzi, i, 1)) And Asc(x) < Asc(Mid(hanzi, i + 1, 1)) Then pinyin = Mid(hanzi, 24 + i, 1)
Next
End Function
Function py(ByVal x As String) As String
For i = 1 To Len(x)
If Mid(x, i, 1) <> " " And Asc(Mid(x, i, 1)) < 0 Then py = py & pinyin(Mid(x, i, 1))
Next
py = UCase(py)
End FunctionPrivate Sub Command1_Click()
MsgBox py("打倒日本帝国主义！踩死科威特裁判")
End Sub

Answer 2

goodPrivate Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
End SubPrivate Sub Timer1_Timer()
call 楼上.Command1_Click()
End Sub

Answer 3

记得哪一期＜程序员＞杂志有一编介绍利用SQL Server2000排序规则得到汉字首拼音的问题。
去年10月份或之后的。那位英雄知道，再跟一贴？