Function f(x, y)
f = 2 * x ^ 0 * y
End Function
'
Private Sub Form_Load()
Dim x(40), y(40)
m = 5
y(0) = 1
h = 0.1
'
For n = 0 To m
x(n) = n * h
y(n + 1) = y(n) + h * f(x(n), y(n))
Next n
'
For n = 0 To m
MsgBox x(n)
MsgBox y(n)
Next n
End Sub