代码大全

Pascal
case Letter of
'a': PrintArchives;
'p': {no action required,but case was considered}
;
'q': PrinrQuarterlyReport;
's': PrintSummary;
else PrintErrorMsg('Internal Error 905:Call Customer assistance.');
end; {case}

case case

C C
case

C case

switch(Inputvar)

{

case('A'): if(test)

{

/* statement l*/

case('B'): /* sratement 2*/

/* statement 3*/

/* statement 4*/

} /* if(test) */

break;

}

'A' 'B'

case

C case