set s = createobject("sapi.spvoice") '创建对象
i = 0
s.speak i
s.pause() '暂停
s.resume()'继续
s.speak i