vb有关问题紧急求解决

vb问题紧急，求解决
部分程序如下：
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim i, j As Integer
For i = 0 To Label1.Count - 1
If Label1.Item(i).Caption = Chr(KeyAscii) Then
  Image1.Visible = True
  Image1.Top = Label1.Item(i).Top
  Image1.Left = Label1.Item(i).Left - 300
  Label1.Item(i).Top = -500
  If shezhi.sOption1.Value Then
  If shezhi.nOption1.Value Then H = H + 1
  ElseIf shezhi.nOption2.Value Then H = H + 2
  ElseIf shezhi.nOption3.Value Then H = H + 3
  End If
  If shezhi.sOption2.Value Then
  If shezhi.nOption1.Value Then H = H + 2
  ElseIf shezhi.nOption2.Value Then H = H + 3
  ElseIf shezhi.nOption3.Value Then H = H + 4
  End If
  If shezhi.sOption3.Value Then
  If shezhi.nOption1.Value Then
  H = H + 3
  ElseIf shezhi.nOption2.Value Then
  H = H + 4
  ElseIf shezhi.nOption3.Value Then
  H = H + 5
  End If
 
  Label2.Caption = "得分：" & H
  Randomize
  If shezhi.nOption1.Value Then
  j = Int((122 - 97 + 1) * Rnd + 97)
  ElseIf shezhi.nOption2.Value Then
  j = Int((90 - 65 + 1) * Rnd + 65)
  ElseIf shezhi.nOption3.Value Then
  j = Int((126 - 48 + 1) * Rnd + 48)
  End If
  Label1.Item(i).Caption = "" & Chr(j) & ""
End If
If Label1.Item(i).Top > 6250 Then
 If MsgBox("此次游戏结束，重来吗？", vbYesNo, "游戏结束") = vbYes Then
  MsgBox "您现在的得分是：" & H & "分", vbOKOnly, "成绩"
  Unload Me
  shezhi.Visible = True
  Exit Sub
 End If

Next i
End Sub
纠结了很久，老说我NEXT没有for,实在想不出

[解决办法]

VB code

Private Sub Form_KeyPress(KeyAscii As Integer)Dim i, j As IntegerFor i = 0 To Label1.Count - 1    If Label1.Item(i).Caption = Chr(KeyAscii) Then        Image1.Visible = True        Image1.Top = Label1.Item(i).Top        Image1.Left = Label1.Item(i).Left - 300        Label1.Item(i).Top = -500        If shezhi.sOption1.Value Then            If shezhi.nOption1.Value Then H = H + 1            ElseIf shezhi.nOption2.Value Then H = H + 2            ElseIf shezhi.nOption3.Value Then H = H + 3        End If        If shezhi.sOption2.Value Then            If shezhi.nOption1.Value Then H = H + 2            ElseIf shezhi.nOption2.Value Then H = H + 3            ElseIf shezhi.nOption3.Value Then H = H + 4        End If        If shezhi.sOption3.Value Then            If shezhi.nOption1.Value Then                H = H + 3            ElseIf shezhi.nOption2.Value Then                H = H + 4            ElseIf shezhi.nOption3.Value Then                H = H + 5            End If            Label2.Caption = "得分：" & H            Randomize            If shezhi.nOption1.Value Then                j = Int((122 - 97 + 1) * Rnd + 97)            ElseIf shezhi.nOption2.Value Then                j = Int((90 - 65 + 1) * Rnd + 65)            ElseIf shezhi.nOption3.Value Then                j = Int((126 - 48 + 1) * Rnd + 48)            End If            Label1.Item(i).Caption = "" & Chr(j) & ""        End If        If Label1.Item(i).Top > 6250 Then            If MsgBox("此次游戏结束，重来吗？", vbYesNo, "游戏结束") = vbYes Then                MsgBox "您现在的得分是：" & H & "分", vbOKOnly, "成绩"                Unload Me                shezhi.Visible = True                Exit Sub            End If        End If    End IfNextEnd Sub你写少了多少个End If呀？代码应该要缩进，否则就会出现你这种情况。