Private Sub CommandRate_Click() Dim iRate As Long '在朗读过程中,获得语速,范围在0-100直接,100为最快速度. iReturn = SmartRead_GetSpeed(iRate) '在朗读过程中,改变语速,范围在0-100直接,100为最快速度. iReturn = SmartRead_SetSpeed(100) End Sub Private Sub CommandVolume_Click() Dim iVolume As Long '在朗读过程中,获得音量,范围在0-100之间,100为最高音. iReturn =