vb msgbox程式設計--20點

Question

我想要寫一個猜謎的vb程式
就是一個msgxob給使用者輸入答案
錯了用msgbox跟使用者說猜錯了
猜對了在一個textbox顯示結果　不要msgbox喔
只有一個答案
謝了

我自己有寫一個檔案
可是執行都錯誤
程式沒辦法判斷答案的對錯
我是用if else
我一直改都改不好= =
可以打一份正確的給我看嗎?

Answer 1

'我想應該是以InputBox問問題MsgBox來顯示是否答對比較合理XD;算了,看看是否是你要的'表單置1個CommandButton跟1個TextBoxDim Q(3) As String, A(3) As StringPrivate Sub Command1_Click()    Dim N As Integer        For N = 0 To 3        Text1.Text = ""        If MsgBox(Q(N), 4) = 6 Then           MsgBox "您答錯了!!正確答案是 : " & A(N)        Else           Text1.Text = "恭喜您答對了!"        End If        If N < 3 Then          If MsgBox("是否進行下一題", 4) = vbNo Then Exit Sub        End If    NextEnd SubPrivate Sub Form_Load()    '先建立題目跟答案    Q(0) = "王建民目前是洋基隊之主力中繼投手?": A(0) = "先發投手"    Q(1) = "今年(2006)在洋基隊主場開幕戰對老虎隊的先發投手是王建民?": A(1) = "開幕戰對手為皇家隊"    Q(2) = "王建民今年到今天(2006//8/29)為止目前戰績是10勝5敗?": A(2) = "15勝5敗"    Q(3) = "王建民最擅長的球路是卡特球(Cut)?": A(3) = "伸卡球"End Sub

Answer 2

你現在是想讓想答題者也來參加猜謎嗎?
要猜什麼也該跟別人講清楚吧....