红米与小米的区别:高人帮忙！VB下列程序有一部分不运行

Private Sub Form_Load()
Dim YH As Integer '英汉,1为英语,2为汉语'
Dim KeyAscii As Integer
YH = 1
i = 0
JX = 1
Static J
While YH = 1 And YH = 2
Do While JX = 1
Call Text1_KeyPress(KeyAscii)
If Text1.Text = "" Then
J = J + 1
Print J
End If
XW = Int(J / 5)
Print XW
If ((XW - J / 5) = 0) Then
JX = InputBox("还需输入吗?继续按1,结束按0")
End If
If JX = 0 Then
Exit Do
End If
Loop
YH = 2
Wend
For i = 1 To 5
Print a(i, 1), a(i, 2)
Next
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
Static N
If KeyAscii = 13 Then
N = N + 1 '用一个静态变量累加输入单词的数量'
a(N, YH) = Text1.Text '第N个单词'
Text1.Text = ""

If YH = 2 Then
Print a(N, YH)
End If
'保存数据'
Print Tab(50); N, a(N, YH)

Beep

End If

End Sub
以上程序调试运行时，FORM程序中，调用Text1_KeyPress(KeyAscii)后面到ENDSUB的一段不运行。我用PRINT J做为标记，但运行时无显示J值。