如果你感觉到无聊，不妨让你的计算机讲个故事给你听。
只需一个代码即可实现计算机语音讲故事。
右键单击桌面任意空白位置，依次选择右键菜单中的“新建”→“文本文档”。
左键单击选中“新建文本文档.txt”，按下键盘上的F2，对其重命名。将文件名及文件扩展名修改为“讲故事.vbs”。
请注意将计算机的文件扩展名设置为可见，否则上面的操作无效。
右键单击“讲故事.vbs”，选择右键菜单中的“编辑”。
将代码区域的代码粘贴至文档中，同时按下键盘上的“Ctrl+S”键保存文档。
双击打开“讲故事.vbs”，根据提示操作就可以让你的计算机讲故事了。
代码区域：
Dim a,b
a = Msgbox ("给你讲个故事！",vbyesno)
Set b = CreateObject("sapi.spvoice")
b.rate = 5 '速度-10,10
b.volume= 100 '音量 0,100
If a = vbyes then
Do
b.speak "一二三四五"
b.speak "上山打老虎"
b.speak "老虎没打着"
b.speak "打着小松鼠"
b.speak "松鼠有几只"
b.speak "我来数一数"
b.speak "数来有数去"
a=1
Loop While a=1
End if
代码简介：
a = Msgbox ("给你讲个故事！",vbyesno)
弹出对话框，显示“是”和“否”按钮。引号中的内容可以根据情况替换。
“b.rate = 5”用来调节语音播放的速度，范围值“-10~10”。
“b.volume= 100”用来调节语音播放的音量，范围值“0~100”。
b.speak "一二三四五"引号中的内容可以根据情况替换。
循环小故事：
从前有座山，山里有座庙，庙里有个老和尚在看报，看的什么报？从前有座山，山里有座庙……
运行后如何关闭呢？
同时按下键盘上的“Ctrl+Shift+Delete”打开任务管理器，找到“Microsoft ® Windows Based Script Host”，右键单击，选中右键菜单中的“结束任务”。
请注意：代码中的标点符号都为英文符号，引号中的内容除外。
知识改变命运，科技成就未来。今天的分享就到此结束，感谢您的支持。