[問題] 幫我看一下這程式哪裡出錯

[yekome (/ \)]

此程式為先設定一組答案(英文或數字都可)
之後再輸入去猜答案
答對會顯示出來
答錯會要再輸入一次
請幫我看哪裡要改
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
→ terence362:amswer=answer 錯字
→ terence362:print answer 一樣不太對
→ terence362:print cht(keyascii) 感覺比較正常
→ terence362:輸入答案的時候沒有print