我的這個程式他有提示說【 題目跟答案要對應相同陣列索引】
可是我這樣寫起來好像都不對
本程式包含Command1:出題 Command2:確定 Label1: 題目: Label2:(這裡隨機出題)
Text1:輸入答案的地方 [Label1是顯示出題目二字,Label2是題目]
我這樣寫...Command2好像根本沒對應到...因為這樣寫法 不管題目怎麼出
隨便打入陣列的答案 都說答對 似乎不符合這題目的要求...
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"
Label2.Caption = Str(Rnd * 5) + 1
End Sub
Private Sub Command2_Click()
Dim A(6) As String
found = flase
A(0) = "on"
A(1) = "es"
A(2) = "ed"
A(3) = "ur"
A(4) = "ri"
A(5) = "at"
A(6) = "un"
For t = 0 To 6
If A(t) = Text1.Text Then
found = True
End If
Next t
If found = True Then
MsgBox "答對了", vbOKOnly, "恭喜!"
Else
MsgBox "答錯了", vbOKOnly, "可惜!"
End If
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.165.91.20