Перевод Pascal на VB

program Gel;
const A1=5/9; A2=8/9; t=-0.77459;
type func=function(x,c,d:real):real;
var a,b,eps:real;
    c:array[1..4] of real;
    d:array[1..5] of real;
function f_test(x,c,d:real):real;
begin
  f_test:=sin(x);
end;
function f1(x,c,d:real):real;
begin
  f1:=exp(d*x/2)*sqr(cos(c*x));
end;
function f2(x,c,d:real):real;
begin
  f2:=sqr(x*ln(c*d*x));
end;
 
function Integral(f:func;a,b,cm,dm,eps:real; var k:integer):real;
var S,z,h,c,d,l,x,x1,x2,x3:real;
    i,n:integer;
begin
  n:=1;  S:=0; k:=0;
  repeat
    k:=k+1;
    z:=S; 
    n:=n*2;
    h:=(b-a)/n;  x:=a; S:=0; c:=h/2; l:=c*t;
    for i:=0 to n-1 do
    begin
      d:=x+c; x1:=d-l;x2:=d; x3:=d+l;
      S:=S+A1*(f(x1,cm,dm)+f(x3,cm,dm))+A2*f(x2,cm,dm);
      x:=x+h;
    end;
    S:=S*c;
  until (abs(z-S)<eps*abs(S)) or (k>=14);
  Integral:=S;
end;
var i,j,n:integer;
begin
  
  writeln('Проверочный интеграл от 0 до пи sin(x)dx =',Integral(f_test,0,3.14159,0,0,1e-3,n):7:5,
    '  ',n,' итераций');
  c[1]:=0.9; c[2]:=1; c[3]:=1.05; c[4]:=1.1;
  d[1]:=2.4; d[2]:=2.5; d[3]:=2.6; eps:=1e-4;
  a:=0; b:=3.14159;
  writeln('Интеграл от ',a:1:0,' до ',b:5:3,' функции f1 ','с точностью',eps:5,' при:');
  for i:=1 to 4 do
    for j:=1 to 3 do
    begin
  
      writeln('с=',c[i]:4:2,' d=',d[j]:4:2,'  равен ',Integral(f1,a,b,c[i],d[j],eps,n):8:5, '  ',n, ' итераций');
    end;
  readln;
  c[1]:=3; c[2]:=3.2; c[3]:=3.4; c[4]:=3.5;
  d[1]:=0.5; d[2]:=0.4; d[3]:=0.85; eps:=1e-3;
  a:=1; b:=exp(1);
  writeln('Интеграл от ',a:1:0,' до ',b:5:3,' функции f2 ','с точностью',eps:5,' при:');
  for i:=1 to 4 do
    for j:=1 to 3 do
    begin
  
      writeln('с=',c[i]:4:2,' d=',d[j]:4:2,'  равен ',Integral(f2,a,b,c[i],d[j],eps,n):8:5, '  ',n, ' итераций');
    end;
end.