Dim sp As New DotNetSpeech.SpVoice()
sp.rate = -3For idx As Integer = 0 To Tables("表A").Rows.Count - 1 sp.Speak("姓名" & Tables("表A").Rows(idx)("姓名") & "分数" & Tables("表A").Rows(idx)("分数"), DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)Next