搂主，不要这样。

首先，你应该直接贴出源码，你认为可能有错的源码，然后描述错误代码和错误的详细提示。


有心人帮你找错，不会对你的整个程序找错，因为读代码比写代码要难得多

就是一个下落的标签,打中后出现一个图片效果,老是报错控件数组元素"3"不存在
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim i, j As Integer
For i = 0 To Label1.Count - 1
  If Label1(i).Caption = Chr(KeyAscii) Then
   Image1.Visible = True
   Image1.Top = Label1(i).Top
   Image1.Left = Label1(i).Left - 100
   GoTo e:
   End If
   Next i
 e:   Randomize
   If shezhi.nOption1.Value Then       'shezhi窗体有三个单选纽,用来选择大小写
     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(i).Caption = Chr(j)    '这一句出错,好像是下标出借
Timer1.Enabled = True
Label1(i).Top = 0
Sleep 500                
Image1.Visible = False
End Sub

去掉GOTO语句，把e:段移上去，这样：

.....
    Sleep 200 '表示延时0.5秒,
    Image1.Visible = False
  End If
Next i

我帖子里面好像有个现成的代码，你自己可以去看看！