Вывести название соответствующей карты вида "шестерка бубен", "дама червей","туз треф" и т.п.

[воваава]

Мастям игральных карт присвоены порядковые номера:1-пики, 2-трефы, 3-бубны, 4-червы. Достоинству карт, старших десятки,присвоены номеры: 11-валет, 12-дама, 13-король, 14-туз. Даны два целых числа: N-достоинство (6<=N<=14)и М-масть карты(1<=М<=4). Вывести название соответствующей карты вида "шестерка бубен", "дама червей","туз треф" и т.п.

[Serge_Bliznykov]

на форуме была уже такая задача (да и простая она совсем!).

вот, повторю опубликованное на форуме ранее решение.
(Паскаль):

TYPE
  str5 = string[6];
  MAST  = (PIKI,TREF,BUBN,CHER);
  ZNACH = (K6,K7,K8,K9,K10,KVAL,KDAM,KKOR,KTUZ);
const
  Mast_STR : array[ord(PIKI)+1..ord(CHER)+1] of str5 =
    ('пик','треф','бубен','червей');
{ с точки зрения надёжности, более правильно описать так
    ZNACH_STR : array[ord(K6)..ord(KTUZ)] of str5 =
         ('6','7','8','9','10','Валет','Дама','Король','ТУЗ');
   но тогда при отображении надо будет от числа отнимать 6 (т.к. значения начинаются от нуля)
         }
  ZNACH_STR : array[6..14] of string =
     ('шестёрка','семёрка','восьмёрка','девятка','десятка',
     'валет','дама','король','туз');

var
  N, M : integer;
begin
  WriteLn;
  Write('Введите значение карты N (6<=N<=14) :');
  Readln(N);
  if (N<6) or (N>14) then begin
    WriteLn('Нет такого значения карты! Конец!');
    Readln;
    Halt
  end;
  Write('Введите масть карты M (1<=M<=4) : ');
  Readln(M);
  if (M<1) or (M>4) then begin
    WriteLn('Нет такого масти! Конец!');
    Readln;
    Halt
  end;
  
  WriteLn('Вы ввели карту: ',ZNACH_STR[N],' ',Mast_STR[M]);
  readln;

end.

[воваава]

а можно на языке Visual Basic

[воваава]

пожалуйста)