VB 求代码解答

Dim i  As Integer
Private Sub Command1_Click()

i = O
ImageK.Width = Picture1.Width
ImageK.Height = Picture1.Height
ImageK.Left = 0
ImageK.Top = 0
Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

If i > 2 Then
  i = O
End If

If ImageK.Left > 0 Then
  ImageK.Left = ImageK.Left - 100
 Else
  ImageK.Picture = ImageCat(i).Picture
 
  If i > 0 Then
   ImageBac.Picture = ImageCat(i - 1).Picture
  End If
 
  i = i + 1
  ImageK.Left = Picture1.Width
End If
End Sub

帮解if语句里的代码 谢谢了

If i > 2 Then
  i = O
End If

当i>2时令i=0，也就是i永远小于等于2

If ImageK.Left > 0 Then'当ImageK.Left > 0

  ImageK.Left = ImageK.Left - 100' 令往左移100

 Else
  ImageK.Picture = ImageCat(i).Picture'如果ImageK.Left <0，ImageK.Picture = ImageCat(i).Picture'
  
  If i > 0 Then'如果ImageK.Left <0，and  i > 0
   ImageBac.Picture = ImageCat(i - 1).Picture
  End If
 
  i = i + 1
  ImageK.Left = Picture1.Width
End If