跪求用vb程序寫壹個詩歌生成器

由於妳沒有說明每個按鍵的作用，

我寫的是只要按“開始”按鈕後“第n句”和“題目”按鈕才起作用，有提醒功能。

第n句按鈕隨第幾句變化。

按題目按鈕全詩顯示，當然也可改為只顯示題目。

逐行手敲，親測可用，有問題可以問我。

Dim?timera?As?Integer

Dim?timerb?As?Integer?'?定單擊事件變量

Private?Sub?Command1_Click()

timera?=?1

End?Sub

Private?Sub?Command2_Click()

timerb?=?timerb?+?1

If?timera?=?1?Then

If?timerb?=?1?Then

Label1.Caption?=?"彈冠振衣撫長劍，"

End?If

If?timerb?=?2?Then

Command2.Caption?=?"第二句"

Label1.Caption?=?"揚鞭策馬嘯西風。"

End?If

If?timerb?=?3?Then

Command2.Caption?=?"第三句"

Label1.Caption?=?"牽馬獨走天涯，品冷月無邊。"

End?If

If?timerb?=?4?Then

Command2.Caption?=?"第四句"

Label1.Caption?=?"枯燈黃卷裏，尋劍在誰手。"

End?If

If?timerb?>?4?Then

Command2.Caption?=?"全詩結束"

Label1.Caption?=?"無題"?+?vbCrLf?+?vbCrLf?+?"彈冠振衣撫長劍，"?+?vbCrLf?+?"揚鞭策馬嘯西風。"?+?vbCrLf?+?"牽馬獨走天涯，品冷月無邊。"?+?vbCrLf?+?"枯燈黃卷裏，尋劍在誰手。"

End?If

End?If

If?timera?<>?1?Then

Label1.Caption?=?"提醒：請先單擊開始按鈕！！！"

End?If

End?Sub

Private?Sub?Command3_Click()

If?timera?=?1?Then

Label1.Caption?=?"無題"?+?vbCrLf?+?vbCrLf?+?"彈冠振衣撫長劍，"?+?vbCrLf?+?"揚鞭策馬嘯西風。"?+?vbCrLf?+?"牽馬獨走天涯，品冷月無邊。"?+?vbCrLf?+?"枯燈黃卷裏，尋劍在誰手。"

End?If

If?timera?<>?1?Then

Label1.Caption?=?"提醒：請先單擊開始按鈕！！！"

End?If

End?Sub