Нужно перевести код с Pascal в Vba

@Redpaer · Регистрация: 29.12.2016

Решил в паскале, а с vba вообще не знаком ,нужна помощь срочно.

Вот код-

Pascal

program String16;
var
  i:integer;
  S:string;
 
begin
 Write('S:');
 Readln (S);
 
 for i:=1 to Length(S) do
  if (ord(S[i]) in  [97..122]) then S[i]:=chr(ord(S[i])-32);
 
 Writeln(S);
end.

~~Shersh~~ · 30.12.2016, 07:22

Visual Basic

sub String16
s=inputbox("S:")
msgbox ucase(s)
end sub

Опции темы