--从键盘输入一个数
accept b prompt ‘请输入一个大于零的数字‘;
declare
 anum number := &b;
begin
  while anum>0
    loop
      dbms_output.put_line(anum);
      anum:=anum-1;
    end loop;
end;




declare
    v_num number;
begin
-- 从stsu表中选出id最大的值，并根据该值打印次数
  select max(id) into v_num from stsu;
  loop
  dbms_output.put_line(v_num);
  v_num := v_num-1;
  exit when v_num=0;
  end loop;
end;




declare
    cursor cur is select id,math from stsu;
begin
    for cur in (select id,math from stsu)
      loop
        dbms_output.put_line(cur.id ||‘编号学员的数学分数：‘||cur.math);
      end loop;
end;



declare 
  cursor cursor_id is select id,math from stsu;
  v_id stsu.id%type;
  v_math stsu.math%type;
begin 
  --打开游标
  open cursor_id;
  loop 
    -- 抓取数据
    fetch cursor_id into v_id,v_math;
    exit when cursor_id%notfound;
    dbms_output.put_line(v_id||‘  ‘||v_math);
    end loop;
    -- 关闭游标
    close cursor_id;
end;