set serveroutput on

  declare

        -- 申明部分

   name varchar(20);

   begin

        -- 执行的sql语句

   select ename into name from emp where empno=7566;

   dbms_output.put_line(name);

  end;

   /

  set serveroutput on

 declare

             -- 申明部分

     　name emp.ename%type;

       myrow emp%rowtype;

 begin

             -- 执行的sql语句

     select ename into name from emp where empno=7566;

       select * into myrow from emp where empno = 7566;

       dbms_output.put_line(name);

       dbms_output.put_line(myrow.sal);

 end;

  /

 set serveroutput on

 declare

     weather varchar(20) := '晴天';

 begin

     if(weather = '晴天')

     then

     dbms_output.put_line('去旅游');

     end if;

 end;

  /

 去旅游  

 set serveroutput on

 declare

     myindex number := 1;

     mysum number := 0;

 begin

     loop

    　　 exit when myindex > 100;

         　　mysum := mysum + myindex;

         　　myindex := myindex + 1;

     end loop;

     dbms_output.put_line(mysum);

 end;

  /

 5050      

 set serveroutput on

 declare

     grade number(4) :=75;

 begin

     if(grade<60)

         then

         dbms_output.put_line('D');

     elsif(grade<70)

         then

         dbms_output.put_line('C');

     elsif(grade<80)

         then

         dbms_output.put_line('B');

     else

         dbms_output.put_line('A');

     end if;

 end;

  /

 B