作者yekome (/ \)
看板Programming
标题[问题] 帮我看一下这程式哪里出错
时间Fri Oct 31 12:46:45 2008
此程式为先设定一组答案(英文或数字都可)
之後再输入去猜答案
答对会显示出来
答错会要再输入一次
请帮我看哪里要改
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
1F：→ terence362:amswer=answer 错字 61.57.149.13 11/14 13:55
2F：→ terence362:print answer 一样不太对 61.57.149.13 11/14 13:55
3F：→ terence362:print cht(keyascii) 感觉比较正常 61.57.149.13 11/14 13:56
4F：→ terence362:输入答案的时候没有print 61.57.149.13 11/14 13:57