这段IF代码提示End if没有块IF是什么意思？

If K > 5 Then K = 1

If K > 5 Then K = 1 else n=1

If K > 5 Then
K = 1
end if

If K > 5 Then
K = 1
else
n=1
end if

上面4种写法都对，都是一个完整的 if 语句。

你的 If K > 5 Then K = 1 是一个完整的 if 语句，下一个 End If 当然就没有 if 了

建议修改:
Private Sub Command1_Click()
K = K + 1
If K > 5 Then
K = 1
Image2.Picture = LoadPicture(App.Path & "\form15\" & K & ".jpg")
End If
End Sub

或:
Private Sub Command1_Click()
K = K + 1
If K > 5 Then K = 1
Image2.Picture = LoadPicture(App.Path & "\form15\" & K & ".jpg")
End Sub

Private Sub Timer1_Timer()
k = k + 1
If k > 5 Then
k = 1
Image2.Picture = LoadPicture(App.Path & "\form15\" & k & ".jpg")
End If
End Sub
或
Private Sub Timer1_Timer