用以下的函数可以得到汉字的拼音首字字符，注意：对 噢、杞、嘌、呤 是个例外。
对很多汉字无法正确的实现转换，原因是在该程序根据汉字在编码表中的位置来判断的，而部分的汉字所在的位置有误，所以需要特殊处理。

新建From1（窗体），新建Command1（按钮CommandButton），代码：