磕头了！Microsoft VBScript 运行时错误 '800a0009' 下标越界

Question

Text = WScript.Arguments(0)
Speaker = WScript.Arguments(1)

Set s = CreateObject("SAPI.SpVoice")

For Each Voice In s.GetVoices
I = I + 1

If InStr(Voice.GetDescription, Speaker) > 0 Then
    Set s.Voice = s.GetVoices.Item(I-1)
    Exit For
End If

Next

s.Speak Text

Answer 1

提示你下标越界了，可以一步一步输出看看是哪里的问题