如下:

declare
x number;
begin
x:=0;
<<gsign>>    --定义goto标签
x:=x+1;      --这里加几就是控制step的方法
dbms_output.put_line(x);  
if x<5 then
goto gsign;    --将语句定义到上面goto的地方
end if;
end;