关键字（2）：循环和分支结构for/while/loop/switch

FOR i IN tRange1.first .. tRange1.last LOOP
  IF Instr(CardNum, tRange1(i), 1) = 1 THEN
    GLOBAL_VARBLE.nPos1 := i;
    Result := tBankName1(i);
    EXIT;
  END IF;
END LOOP;

for i in 1..100 loop
  t:=t+i;
  Dbms_Output.Put_Line('it''s :' || t);
end loop;

while i<=100 loop
  t:=t+i;
  i:=i+1;
  Dbms_Output.Put_Line('it''s :' || t);
end loop;

Loop
  i:=i+1;
  exit when i>100;
  t:=t+i;
  Dbms_Output.Put_Line('it''s :' || t);
end loop;

类switch：

CASE TradeType
  WHEN GLOBAL_VARBLE.POS_REPEAL THEN             --消费撤消
    lOrigType := GLOBAL_VARBLE.POS_CONSUME;
  WHEN GLOBAL_VARBLE.POS_UNCONSUME THEN          --消费冲正
    lOrigType := GLOBAL_VARBLE.POS_CONSUME;
END CASE ;