Немного кода из Pascal в Visual Basic кто поможет?

[offmonreal]

Вот сам код

const N=5;
Ves=90;
var
M: array[1..N]of integer;
T:array[0..N,0..Ves]of byte;
sum,i,j:integer;
begin
M[1]:= 35; M[2]:= 30; M[3]:= 17; M[4]:= 13;
M[5]:= 11;
T[0,0] := 1;
for j := 1 to Ves do T[0, j] := 0;
for i := 1 to  N do T[i, 0] := 1;
 
for i := 1 to N do begin
  for j := 1 to Ves do begin
    if j >= M[i] then begin
      if  T[i - 1, j]> T[i - 1, j - M[i]] then
         T[i,j]:= T[i - 1, j]
      else T[i, j]:= T[i - 1, j - M[i]];end
    else T[i, j]:= T[i - 1, j];
  end;
end;
 
for j:=Ves downto 1 do
begin
  sum:=j;
  if T[N, j] = 1 then
    begin
      for i := N downto 1 do
        begin
          if T[i, sum] = T[i - 1, sum] then
            writeln (i, '---No')
          else begin writeln (i, '---Yes');
                     sum := sum - M[i];
               end;
        end;
      break;  
    end;
end;
 
readln;
end.

Паскаль не изучал... кто может в любую версию Visual Basic перевести..
желательно в 6.
Спасибо за ранее!!!

[offmonreal]

Ну хоть кто-то поможет разобраться с циклами????

[was3110]

Pascal не изучал... А Бейсик? Циклы они и в Африке, циклы.
Не думаю, что это интересно еще кому-то, пиши на емэйл.