急！！请问我这个程序怎么不行？

Question

看一下我这个程序为什么我按空格键十五下后，程序不会结束？
我的要求是空格键按十五下后自动结束程序。
如果有错，请问要修改哪里？怎么修改？

Answer 1

程序如下Private Sub Form_KeyPress(KeyAscii As Integer)
   Dim a0, a1, a2 As Integer
   Dim b, k As Integer
   k = 0
   
If KeyAscii = 32 Then
     
re:
    a0 = Fix(Rnd * 5)
    a1 = Fix(Rnd * 5)
    a2 = Fix(Rnd * 5)
    b = Fix(Rnd * 5)
    If k = 15 Then
      End
    End If
    If a0 <> a2 And a0 <> a1 And a1 <> a2 And (a0 = 1 Or a1 = 1 Or a2 = 1) Then
        Me.Image0.Picture = LoadPicture("E:\程序\11\" & b & "\" & a0 & ".JPG")
        Me.Image1.Picture = LoadPicture("E:\程序\11\" & b & "\" & a1 & ".JPG")
        Me.Image2.Picture = LoadPicture("E:\程序\11\" & b & "\" & a2 & ".JPG")
        k = k + 1
         
    Else
       GoTo re
    End If
    
End If
    
End Sub

Answer 2

我寫了一個
Private Sub Text1_KeyPress(KeyAscii As Integer)
    Static a As Integer
    If KeyAscii = 32 Then
        a = a + 1
        If a = 15 Then Unload Me
    End If
End Sub

Answer 3

Form的keyPreview属性为true
Dim k As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeySpace Then
        If k = 15 Then
            End
        Else
            k = k + 1
        End If
    End If
End SubPrivate Sub Form_Load()
    Me.KeyPreview = True
    k = 1
End Sub

Answer 4

把变量K的声明和赋值K=0都放在form_load()事件下就可以解决了~

Answer 5

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeySpace Then
        If k = 5 Then
            End
        Else
            k = k + 1
            Me.Image0.Picture = LoadPicture("E:\程序\11\" & b & "\" & a & chr(k*3) & ".JPG")
            Me.Image1.Picture = LoadPicture("E:\程序\11\" & b & "\" & a & chr(k*3+1) & ".JPG")
            Me.Image2.Picture = LoadPicture("E:\程序\11\" & b & "\" & a & chr(k*3+2) & ".JPG")
        End If
    End If
End Sub