'通用,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")


   
   
   

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