Перевести код вычисления выражения с Pascal - VB

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

Помогите,перевести код вычисления выражения с Pascal на VB,заранее благодарен

                    Листинг программы
                
 
                        
                          
                    
program pr;
 
const
  d = 5.3;
 
var
  y: real;
  pp: longint;
  ss: real;
 
function summ: real;
var
  s: real;
  i: integer;
  a: array [1..18] of real := (6, 4, 3, 16, 10, 17, 9, 5, 7, 3, 14, 0.5, 11, 0.6, 5, 3, 2, 9);
begin
  s := 0;
  i := 1;
  repeat 
    s := s + (a[i] - d);
    i := i + 1;
  until i > 18;
  summ := s;
end;
 
function proiz: longint;
var
  i: integer;
  p, h, c0: integer;
begin
  p := 1;
  i := 1;
  h := 0;
  c0 := 15;
  repeat
    p := p * (c0 + h);
    h := h + 5;
    i := i + 1;
  until i > 3;
  proiz := p;
end;
 
begin
  pp := proiz;
  ss := summ;
  y := pp - ss;
  writeln('y= ', y);
end.

Решение задачи: «Перевести код вычисления выражения с Pascal»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
Option Base 1
Private Sub Command1_Click()
Const d = 5.3
Dim y As Single, pp As Long, ss As Single
pp = proiz
ss = summ
y = pp - ss
Print "y = ", y
MsgBox ("Значение = " & y) 'Вывод результата в стандартное окно
End Sub
 
Function summ() As Single
Dim s As Single, i As Integer, d As Double
Dim a()
a() = Array(6, 4, 3, 16, 10, 17, 9, 5, 7, 3, 14, 0.5, 11, 0.6, 5, 3, 2, 9)
s = 0: i = 1
Do While i <= 18
  s = s + (a(i) - d)
  i = i + 1
Loop
summ = s
End Function
 
Function proiz() As Long
Dim p As Double, i As Integer, h As Integer, c0 As Integer
p = 1: i = 1: h = 0: c0 = 15
Do While i <= 3
  p = p * (c0 + h)
  h = h + 5
  i = i + 1
Loop
proiz = p
End Function