если кто сможет перевести программу

Rem Орисание переменных
Dim x() As Single
Dim y() As Single
Dim g() As Single
Dim t() As Single
Private n, i As Integer
Private xk, x0, kx, ky As Single
Private k, k1, k2, k3, k4 As Single
Private h, max, min, y0 As Single
Rem Описание функции, график кототрой необходимо построить
Private Function f(a, b As Single) As Single
p = Log(a) / Log(2.718282)
f = 2 * b ^ 0.5 * p
End Function
Private Function v(x As Single) As Single
p = Log(x) / Log(2.718282)
p1 = Log(x0) / Log(2.718282)
c = y0 ^ 0.5 - x0 * p1 + x0
v = (x * p - x + c) ^ 2
End Function
 
Private Sub EilerMod()
ReDim x(n)
ReDim y(n)
y(0) = y0
For i = 0 To n
x(i) = x0 + h * i
Next i
For i = 0 To n - 1
y(i + 1) = y(i) + h * f(x(i) + h / 2, y(i) + h / 2 * f(x(i), y(i)))
MSFlexGrid1.TextMatrix(1, 0) = Str(x0)
MSFlexGrid1.TextMatrix(i + 2, 0) = Str(x(i + 1))
MSFlexGrid1.TextMatrix(1, 1) = Str(y0)
MSFlexGrid1.TextMatrix(i + 2, 1) = Str(y(i + 1))
Next i
End Sub
 
Private Sub RungeKutt()
ReDim g(n)
g(0) = y0
For i = 0 To n
x(i) = x0 + h * i
Next i
For i = 0 To n - 1
k1 = h * f(x(i), g(i))
k2 = h * f(x(i) + h / 2, g(i) + k1 / 2)
k3 = h * f(x(i) + h / 2, g(i) + k2 / 2)
k4 = h * f(x(i) + h, g(i) + k3)
k = (k1 + 2 * k2 + 2 * k3 + k4) / 6
g(i + 1) = g(i) + k
MSFlexGrid1.TextMatrix(i + 2, 2) = Str(g(i + 1))
MSFlexGrid1.TextMatrix(1, 2) = Str(g(0))
Next i
End Sub
 
Private Sub Obshee()
ReDim t(n)
For i = 0 To n
t(0) = y0
x(i) = x0 + h * i
t(i) = v(x(i))
MSFlexGrid1.TextMatrix(i + 1, 3) = Str(t(i))
Next i
End Sub
Rem Ввод данных
Private Sub Command1_Click()
x0 = Val(Text1.Text)
xk = Val(Text2.Text)
h = Val(Text3.Text)
y0 = Val(Text4.Text)
n = (xk - x0) / h
 
MSFlexGrid1.Rows = n + 2
MSFlexGrid1.TextMatrix(0, 0) = "x"
MSFlexGrid1.TextMatrix(0, 1) = "Эйлер Модифицированный"
MSFlexGrid1.TextMatrix(0, 2) = "Рунге-Кутт"
MSFlexGrid1.TextMatrix(0, 3) = "Общее решение"
 
Label6.Caption = Str(x0)
Label5.Caption = Str(xk)
 
EilerMod
RungeKutt
Obshee
 
max = y0
min = y0
For i = 0 To n
If y(i) > max Then
max = y(i)
End If
If y(i) < min Then
min = y(i)
End If
If g(i) > max Then
max = g(i)
End If
If g(i) < min Then
min = g(i)
End If
If t(i) > max Then
max = t(i)
End If
If t(i) < min Then
min = t(i)
End If
Next i
Label4.Caption = Str(max)
Label7.Caption = Str(min)
kx = (6600 - 960) / (xk - x0)
ky = (5160 - 240) / (max - min)
Picture1.Cls
For i = 1 To n - 1
 
Rem линия Эйлер Мод.
X1 = 960 + Round(kx * (x(i - 1) - x0))
X2 = 960 + Round(kx * (x(i) - x0))
Y1 = 5160 - Round(ky * (y(i - 1) - min))
Y2 = 5160 - Round(ky * (y(i) - min))
Picture1.Line (X1, Y1)-(X2, Y2), RGB(999, 0, 0)
 
Rem линия Рунге-Кутт
X1 = 960 + Round(kx * (x(i - 1) - x0))
X2 = 960 + Round(kx * (x(i) - x0))
Y1 = 5160 - Round(ky * (g(i - 1) - min))
Y2 = 5160 - Round(ky * (g(i) - min))
Picture1.Line (X1, Y1)-(X2, Y2), RGB(0, 999, 0)
 
Rem линия Общее
X1 = 960 + Round(kx * (x(i - 1) - x0))
X2 = 960 + Round(kx * (x(i) - x0))
Y1 = 5160 - Round(ky * (t(i - 1) - min))
Y2 = 5160 - Round(ky * (t(i) - min))
Picture1.Line (X1, Y1)-(X2, Y2), RGB(0, 0, 999)
 
Next i
End Sub
 
Private Sub Command2_Click()
End
End Sub