如果你感覺到無聊，不妨讓你的計算機講個故事給你聽。

只需一個代碼即可實現計算機語音講故事。

右鍵單擊桌面任意空白位置，依次選擇右鍵菜單中的“新建”→“文本文檔”。

左鍵單擊選中“新建文本文檔.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”，右鍵單擊，選中右鍵菜單中的“結束任務”。

請注意：代碼中的標點符號都為英文符號，引號中的內容除外。

知識改變命運，科技成就未來。今天的分享就到此結束，感謝您的支持。