请帮忙看一下这个语句错在那里？(在线等待!谢谢!)

Question

请帮忙看一下这个语句错在那里？(在线等待!谢谢!)
我在e:\vb\pic\下有1.jpg,2.jpg等文件。我想通过这个按钮进行循环显示图片!
但是一运行就显示文件不存在!
Private Sub Command2_Click()
If n = 5 Then n = 0
n = n + 1
Label4.Caption = n
Image1.Picture = LoadPicture("e:\vb\pic\n.jpg")
End Sub

Answer 1

dim n as integer  '局部变量,确保再次点CommandButton时,n值不丢失!
Private Sub Command2_Click()
If n = 5 Then n = 0
n = n + 1
Label4.Caption = n
Image1.Picture = LoadPicture("e:\vb\pic\" & n & ".jpg")
End Sub