'通用,option explicit
   Dim x, y, h, w, i As Integer   '定义x,y,h,w,i为整数型变量
   Const n = 30       '相片总数数量
   
   
Private Sub Command1_Click()

    i = 1       '变量i表示要浏览第一张照片
   
    Image1.Picture = LoadPicture(App.Path & "D:\Other\My_Picture1\p" & i&, ".jpg")


   
   
   

如果是vb6语句，则修改为红色部分：
'通用,option explicit
   'Dim x, y, h, w, i As Integer   '定义x,y,h,w,i为整数型变量
   Dim x As Integer, y As Integer, h As Integer, w As Integer, i As Integer   '定义x,y,h,w,i为整数型变量
   Const n = 30       '相片总数数量
   
   
Private Sub Command1_Click()

    i = 1       '变量i表示要浏览第一张照片
   
    Image1.Picture = LoadPicture(App.Path & "D:\Other\My_Picture1\p" & i&, ".jpg")

    Image1.Picture = LoadPicture(App.Path & "D:\Other\My_Picture1\p" & i&, ".jpg")

i&,  这里错了。i 后面要有一个空格，没有  逗号

谢谢你们帮助！新手上路。问题解决！