打字母游戏中的代码（忘了哪里下载的了）

开始：Command2    暂停：Command1   重玩：Command3
lable是字母

Private Sub Command2_Click()
Timer1.Enabled = True
End Sub

Private Sub Command3_Click()   
Picture1.Item(0).Top = -1000
Picture1.Item(2).Top = -800
Picture1.Item(3).Top = -700
Picture1.Item(4).Top = -800
Picture1.Item(1).Top = -600
Timer1.Enabled = False
Dim a(5) As Integer
Randomize
a(1) = Int(65 + 25 * Rnd)
Label1.Item(0).Caption = Chr(a(1))
k = 1
Do While k < 5
m = Int(Rnd * 25 + 65)
f = 0
For j = 1 To k
   If m = a(j) Then
   f = 1
   Exit For
   End If
Next j
If f = 0 Then
   k = k + 1
   a(k) = m
   Label1.Item(k - 1).Caption = Chr(m)
   End If
   Loop
   p = 0
End Sub

Private Sub Form_Load()
sum = 100
num = 10
Dim a(5) As Integer
Randomize
a(1) = Int(65 + 25 * Rnd)
Label1.Item(0).Caption = Chr(a(1))
k = 1
Do While k < 5
m = Int(Rnd * 25 + 65)
f = 0
For j = 1 To k
   If m = a(j) Then
   f = 1
   Exit For
   End If
Next j
If f = 0 Then
   k = k + 1
   a(k) = m
   Label1.Item(k - 1).Caption = Chr(m)
   End If
   Loop
End Sub

谢谢啊

谢谢

哪位大侠把红色部分帮助注释一下啊。
Public h As Integer
Public s As Integer
Public p As Integer
Public sum As Integer, num As Integer
Private Sub Command1_Click()
Timer1.Enabled = False

End Sub

Private Sub Command2_Click()
Timer1.Enabled = True
End Sub
----------------------以下键盘输入
Private Sub Form_KeyPress(KeyAscii As Integer)
For i = 0 To 4                                  ‘当i从0到4依次取值
If Label1.Item(i).Caption = Chr(KeyAscii - 32) Then  '如果输入字母与标签中字母相同
s = s + 1                                              ‘？
If s = sum Then Form3.Show: Form3.Label1.Caption = "恭喜你顺利过关！再接再厉吧！": Timer1.Enabled = False

Label1.Item(i).Caption = letter(i)                  ’？
Picture1.Item(i).Top = -600                        '字母消失？
    k = 1
Do While k <> 0
     k = 0
    n = Chr(Int(25 * Rnd + 65))
For j = 0 To 4
   If n = Label1.Item(j).Caption Then k = k + 1
   Next j
   If k = 0 Then Label1.Item(i).Caption = n
    Loop

   End If
Next i
End Sub

-------------------以下是游戏开始
Private Sub Form_Load()
sum = 100
num = 10
Dim a(5) As Integer      定义5个数组
Randomize
a(1) = Int(65 + 25 * Rnd)   ‘随机取字母
Label1.Item(0).Caption = Chr(a(1))  '？
k = 1                                  '?
Do While k < 5
m = Int(Rnd * 25 + 65)
f = 0
For j = 1 To k
   If m = a(j) Then
   f = 1
   Exit For
   End If
Next j
If f = 0 Then
   k = k + 1
   a(k) = m
   Label1.Item(k - 1).Caption = Chr(m)
   End If
   Loop
End Sub