输入一个汉字，自动获取这个汉字的声母
汉字：哈　声母：H
汉字：我　声母：w
如果是英文，直接截取第一个字符，呵呵

[此贴子已经被作者于2005-10-10 16:22:38编辑过]

一定可以实现
因为现在的通讯录，都只是输入名字
就可以按字母来搜索
我自己明明没有输字母的

如果是弄一个库来存，又不太可能
汉字太多了，

晕

如果做通讯录
LZ把所有的姓氏弄个表
就行了

1、在网上找个汉字库   声母、韵母都有

2Set d = CreateObject("Scripting.Dictionary")
  d.add "a",-20319
  d.add "ai",-20317
  d.add "an",-20304
  d.add "ang",-20295
  '....
先建立一个拼音与ASCII码范围的对照表，然后你在取的时候先取这个汉字的ASCII值参照这个字典表就可以标出这个汉字的拼音了，拼音都出来了声母就没有什么难度了吧。这个对照表有十多KB