Question

运行时错误 错误 '800a0009' 怎么解决？说下标越界

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

for i=0 to vnum 这边改成
for i=0 to vnum - 1
目测是这边错误了，因为你的i是从0开始计算的，但是你vnum是去的最大小标，比如我的数组是
[1$$2$$3$$4$$5]那么vnum = 5 那么你的i从0 - 5的话，5已经是超出下标范围，所以提示错误了。。。