vb代码，转换汉字的拼音字头，简单一个函数，不管多少个汉字都行。