我寫的是“第N句話”和“標題”按鈕只有按下“開始”按鈕才起作用，有提醒的功能。
第n句的按鈕隨第壹句而變。
按標題鍵顯示全詩，當然也可以改成只顯示標題。
壹行壹行用手敲，親測可用，有問題可以問我。
暗淡？蒂梅拉？作為？整數
暗淡？timerb？作為？整數？？固定點擊事件變量
私人？Sub？Command1_Click()
蒂梅拉？=?1
結束？潛水艇
私人？Sub？Command2_Click()
timerb？=?timerb？+?1
如果？蒂梅拉？=?1?然後
如果？timerb？=?1?然後
Label1。標題？=?“奏冠，搖衣，撫劍。”
結束？如果
如果？timerb？=?2?然後
命令2。標題？=?“第二句”
Label1。標題？=?“抽打戰馬，對著西風嚎叫。”
結束？如果
如果？timerb？=?3?然後
命令2。標題？=?“第三句”
Label1。標題？=?“壹人牽壹馬到天涯，冷嶽茫茫。”
結束？如果
如果？timerb？=?4?然後
命令2。標題？=?“第四句”
Label1。標題？=?“枯燈黃卷裏，誰有劍？”
結束？如果
如果？timerb？& gt？4?然後
命令2。標題？=?“詩的結尾”
Label1。標題？=?《無題》+？vbCrLf？+?vbCrLf？+?“奏冠，搖衣撫劍，”+？vbCrLf？+?“抽打戰馬，對著西風嚎叫。”？+?vbCrLf？+?“壹人牽壹馬到天涯，冷嶽茫茫。”？+?vbCrLf？+?“枯燈黃卷裏，誰有劍？”
結束？如果
結束？如果
如果？蒂梅拉？& lt& gt？1?然後
Label1。標題？=?“提醒:請先點擊開始按鈕！！!"
結束？如果
結束？潛水艇
私人？Sub？Command3_Click()
如果？蒂梅拉？=?1?然後
Label1。標題？=?《無題》+？vbCrLf？+?vbCrLf？+?“奏冠，搖衣撫劍，”+？vbCrLf？+?“抽打戰馬，對著西風嚎叫。”？+?vbCrLf？+?“壹人牽壹馬到天涯，冷嶽茫茫。”？+?vbCrLf？+?“枯燈黃卷裏，誰有劍？”
結束？如果
如果？蒂梅拉？& lt& gt？1?然後
Label1。標題？=?“提醒:請先點擊開始按鈕！！!"
結束？如果
結束？潛水艇