主题：Getpinyin的bug

万 是多音字。

你可以改成

Dim s As String = "万"
s = s.Replace("万", "腕")
output.Show(GetPinyin(s,1))

可以做一个多音字表，把字符记录起来，对应读音。

先去表那里查找是否有数据，如果有，则取值，如果没有，就用getpinyin函数。

或者，看看这个例子 https://my.oschina.net/u/1270374/blog/163990