今天在CSDN上找到了解决方案，终于解决了多音字问题。
Text1.Text = "<pron sym='jia 3'> 贾</pron>宝玉,商<pron sym='gu 3'>贾</pron>"SP.Speak Text1.Text, SVSFlagsAsync Or SVSFIsXMLText1.Text = "<pron sym='jia 3'> 贾</pron>宝玉,商<pron sym='gu 3'>贾</pron>"SP.Speak Text1.Text, SVSFlagsAsync Or SVSFIsXML