VB怎么循环

我打算进行图片循环,不知道哪里错了.代码如下~

Private Sub Command1_Click()
Dim i As Integer
Dim n As Integer
n = 1

For i = 0 To 3
n = i
n = n + 1
Next i

If n = 1 Then
Picture1.Picture = LoadPicture("D:\123\1.jpg")
ElseIf n = 2 Then
Picture1.Picture = LoadPicture("D:\123\2.jpg")
ElseIf n = 3 Then
Picture1.Picture = LoadPicture("D:\123\3.jpg")
Else
Exit Sub
End If
End Sub

我是想按一下cmd,然后图片转换下.具体怎么操作啊?我会追加分数的啊!

答案补充：那么更好办了，这样写。
Dim i As Integer
Private Sub Command1_Click()
i = i + 1
picture1.Picture = LoadPicture("d:\123\" & i & ".jpg")
If i = 3 Then i = 0
End Sub

＝＝＝＝＝＝＝＝＝＝＝＝＝＝
图片循环？用Command和For语句肯定是不现实啊，图片会一闪而过的。还是用Timer吧。建一个Picture1,Timer1。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝
Dim i As Integer
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
If i = 3 Then i = 0
i = i + 1
Picture1.Picture = LoadPicture("d:\123\" & i & ".jpg")
End Sub

option explicit

private sub command1_click() msgbox "还剩2个，不要这么绝情嘛，人家是爱你的！" msgbox "还剩1个。哼，既然你这么绝情，也别怪我无义！！！" msgbox "我本因小时的，不过留恋你滴芳容。万能的上帝又给了一次机会。" dim i as integer i = 1 do while (i = 1) msgbox "想结束我么？那么你就再多点一次" loop end sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！