Вы можете сравнить, в чём инструкции case Visual FoxPro отличаются от аналогичных инструкций в других языках программирования. Только в языке Pascal для case не предлагается конструкции выполнения по умолчанию.

Visual FoxPro BASIC
  Скопировать код
DO CASE
CASE n = 0
? 'Zero'
CASE n > 0
? 'Pos'
OTHERWISE
? 'Neg'
ENDCASE
  Скопировать код
Select Case n
Case 0
Print 'Zero'
Case Is > 0
Print 'Pos'
Case Else
Print 'Neg'
End Select

Pascal C/C++
  Скопировать код
case n of
0: writeln("Zero");
1: writeln("One");
end
  Скопировать код
switch(n) {
case 0:
printf("Zero\n");
break;
case 1:
printf("One\n");
break;
default:
printf("?\n");}

Смотрите также