Перевести код с Delphi - VB

Формулировка задачи:

Здравствуйте!! нашла код для численного метода нахождения определенного интеграла, немного разобрала и начала его преобразовывать... вот начало:

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Dim a, b, eps, h As Single
Dim i, n, j, k, z As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
eps = Val(Text3.Text)
j = -1
k = -10 - eps * 2
n = 50
Do While (Abs(j - k) > eps)
h = (b - a) / n
z = a
z = h + a
 
Loop
End Sub
Function y(x) As Single
y(x) = Exp(x) - x
End Function

Никак не пойму, что они делают в цикле While В исходном коде, кстати не хнаю какой язык исходного кода, вот так:

                    Листинг программы
                
 
                        
                          
                    
procedure calc;
var
pres,temp,pos:real;
i,n:integer;
begin
res:=-1;
pres:=-10-eps*2;
n:=50;
while (abs(res-pres)>eps) do
        begin
        h:=(b-a)/n;
        pos:=a;
        temp:=int_func(pos);
        pos:=pos+h;
        for i:=2 to n-1 do
          begin
           temp:=temp+2*int_func(pos);
           pos:=pos+h;
          end;
        temp:=temp+int_func(pos);
        pres:=res;
        res:=temp*h/2;
        n:=n*2;
        end;

что за "pos"???и за что отвечает?? Объясните пожалуйста...

кажется это Delphi... но точно не знаю. Помогите разобраться в коде!

Решение задачи: «Перевести код с Delphi»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
 Dim a, b, eps, h As Single
 Dim i, n, j, k, z As Integer
 a = Val(Text1.Text)
 b = Val(Text2.Text)
 eps = Val(Text3.Text)
 j = -1
 k = -10 - eps * 2
 n = 50
 Do While (Abs(j - k) > eps)
 h = (b - a) / n
 z = a
 z = h + a
 
 Loop
 End Sub
 Function y(x) As Single
 y(x) = Exp(x) - x
 End Function