Re: [請益] 想利用command按鈕把陣列文字印在label上

[fumizuki (小獅)]

※ 引述《bbsking (king)》之銘言：
: 我的這個程式他有提示說【 題目跟答案要對應相同陣列索引】
: 可是我這樣寫起來好像都不對
: 本程式包含Command1:出題 Command2:確定 Label1: 題目: Label2:(這裡隨機出題)
: Text1:輸入答案的地方 [Label1是顯示出題目二字,Label2是題目]
: 我這樣寫...Command2好像根本沒對應到...因為這樣寫法 不管題目怎麼出
: 隨便打入陣列的答案 都說答對 似乎不符合這題目的要求...

當然啊 你的程式碼執行出來一定都會是正確答案的啊XD

這樣才對...

Private Index As Integer '表單內公用變數

Private Sub Command1_Click()
    Dim Q(6) As String
        Q(0) = "M__onday"
        Q(1) = "Tu__day"
        Q(2) = "W__nesday"
        Q(3) = "Th__sday"
        Q(4) = "F__day"
        Q(5) = "S__turday"
        Q(6) = "S__day"
    Index = Rnd * 6 '記錄題目的編號
    Label2.Caption = Q(Index)
End Sub

Private Sub Command2_Click()
    Dim A(6) As String
    A(0) = "on"
    A(1) = "es"
    A(2) = "ed"
    A(3) = "ur"
    A(4) = "ri"
    A(5) = "at"
    A(6) = "un"
    If A(Index) = Text1.Text Then
        MsgBox "答對了", vbOKOnly, "恭喜!"
    Else
        MsgBox "答錯了", vbOKOnly, "可惜!"
    End If
End Sub

--
人若無星爺，跟條鹹魚有何分別？

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 210.58.156.43
推 bbsking:原來如此 謝謝你 ^^ 非常感謝