[問題] 請幫我看一下這程式哪裡出錯(VB6)
此程式為先設定一組答案(英文或數字都可)
之後再輸入去猜答案
答對會顯示出來
答錯會要再輸入一次
請幫我看哪裡要改
Dim answer As String
Dim enteranswer As String
Dim number As Integer
Dim firsttime As Integer
Private Sub Form_Activate()
Print "請設定正確答案"
firsttime = 0
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then
Print "按下space"
End If
If firsttime = 0 Then
If KeyAscii = 13 Then
firsttime = 1
Cls
Else
amswer = answer + Chr(KeyAscii)
Print answer
End If
Else
enteranswer = enteranswer + Chr(KeyAscii)
number = number + 1
If number = Len(answer) Then
If enteranswer = answer Then
Print "正確答案"
Else
Cls
Print "請重新輸入答案"
enteranswer = ""
number = 0
End If
End If
End If
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.130.232.109
→
11/14 13:55, , 1F
11/14 13:55, 1F
→
11/14 13:55, , 2F
11/14 13:55, 2F
→
11/14 13:56, , 3F
11/14 13:56, 3F
→
11/14 13:57, , 4F
11/14 13:57, 4F