Question

VB问题!高手帮忙!!谢谢!!

Option Explicit
Dim score As Integer '定义得分
Dim speed As Integer '定义速度
Sub init() '每个字符的初使化
Label1.Caption = Chr(Int(Rnd * 26) + 97) '随机字符
speed = Int(Rnd * 100 + 100)
Label1.Left = Int(Rnd * Form1.Width) '字符出现的位置
Label1.Top = 0
End Sub
Private Sub Command1_Click()
init
Timer1.Enabled = True '启动定时器
Timer2.Enabled = True
Command1.Visible = False '使命令按钮不可见
Label5.Caption = 200
Label4.Caption = 0
If Chr(KeyAscii) = Label1.Caption Then '判断所按键位是否与产生的字符相符
init
score = score + 1
Label4.Caption = score
End If
End Sub
Private Sub Form_Losd()
Randomize '初始化随机种子数
End Sub

Private Sub Timer1_Timer()
Label1.Top = Label1.Top + speed
If Label1.Top > Form1.Height Then
init
End If
End Sub
Private Sub Timer2_Timer()
Label5.Caption = Val(Label5.Caption) - 1
If Val(Label5.Caption) <= 0 Then '判断时间是否用完
Timer1.Enabled = False
Label1.Caption = ""
Select Case score
Case Is <= 100
MsgBox vbCrLf + "别灰心,再加把劲!"
Case Is < 250
MsgBox vbCrLf + "不错!继续努力!"
Case Is >= 250
MsgBox vbCrLf + "你真棒!恭喜你成为打字高手!"
End Select
Timer2.Enabled = False
Command1.Visible = True '恢复命令按钮的可见状态
End If
End Sub

谢谢帮我看下这上面出了什么问题!这是个打字的程序!有提示说"变量未定义" (解决了高分!)
Load改了!还是有错哦!!!
Private Sub Command1_Click() 这句
还是这句:If Chr(KeyAscii) = Label1.Caption Then '判断所按键位是否与产生的字符相符

有什么变量未定义哦!

那要怎么改额!能把改好的写一次吗?

Answer 1

KeyAscii貌似只能用在KeyPress事件里

Answer 2

Option Explicit 去掉

Answer 3

我同意前面人说的话.keyascii应该是只能在keypress事件中的,应该在一个对象的keypress事件中使用keyascii