line pokopang外掛程式教學 line pokopang外掛下載 line pokopang外掛程式下載 line pokopang外掛程式

題目：
1.程式執行時，出現對話方塊，若按" 是 "紐開始測驗；若按" 否 "紐程式結束
2.題目共有五題，對話方塊會顯示中文以及第一個字母題示
3.使用者輸入答案後，會顯示答對或答錯，以及共答對幾題，若按是繼續測驗
4.五題答完後，會詢問是否重新測驗，按否則會結束程式

以下是我做的程式，但我只做到這樣就不知該如何繼續下去，請各位好心人幫幫忙吧!
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim score As MsgBoxResult
score = MsgBox("要挑戰英文單字請按是!", MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, "英語單字測驗")
If score = MsgBoxResult.Ok Then
End If
Dim answer, g As String
For k = 1 To 5
answer = InputBox("請問 {0} 的英文單字", "第1題", "")

MsgBox("答對了!共答對1題，是否繼續?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "英語單字測驗")

MsgBox("你答錯了!", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "英語單字測驗")

Next

End Sub
End Class

This entry passed through the Full-Text RSS service — if this is your content and you're reading it on someone else's site, please read the FAQ at fivefilters.org/content-only/faq.php#publishers. Five Filters recommends: Thatcher's Tyrants - The Tanks, The Guns, The Christmas Cards.