Visual Basic

Нужно перевести из Паскаля в Visual Basic из стондартних задач cose 20 var D,M:Integer; begin Write('Введите День: '); Readln(D); Write('Введите Месяц: '); Readln(M); case M*100+D of 0120..0218:Writeln('Водолей'); 0219..0320:Writeln('Рыбы'); 0321..0419:Writeln('Овен'); 0420..0520:Writeln('Телец'); 0521..0621:Writeln('Близнецы'); 0622..0722:Writeln('Рак'); 0723..0822:Writeln('Лев'); 0823..0922:Writeln('Дева'); 0923..1022:Writeln('Весы'); 1023..1122:Writeln('Скорпион'); 1123..1221:Writeln('Стрелец'); 1222..1231,0101..0119:Writeln('Козерог'); end; end. Cose 8 var D,M:Integer; begin Write('Введите день: '); Readln(D); Write('Введите номер месяца: '); Readln(M); D:=D-1; if D=0 then begin M:=M-1; if M=0 then M:=12; Case M of 1,3,5,7,8,10,12 : D:=31; 4,6,9,11 : D:=30; 2 : D:=28; end; end; Writeln ('Предыдущая дата: ',D,'.',M); end.