Class Neuron
    Public weight() As Double = {0, 0}
    Public power As Double = 0.0
End Class

Dim neural(2, 1) As Neuron
Dim rand As New Random
For I As Integer = 0 To 2 Step 1
    For J As Integer = 0 To 1 Step 1
        neural(I, J) = New Neuron
        neural(I, J).weight(0) = rand.NextDouble()
        neural(I, J).weight(1) = rand.NextDouble()
    Next
Next

neural(0, 0).power = Console.ReadLine()
neural(0, 1).power = Console.ReadLine()

Function Sigmoid(ByRef int As Double) As Double
    Const e_sigmoid As Double = 2.71828
    Return (1 / (1 + (e_sigmoid ^ (-(int)))))
End Function

For I As Integer = 1 To 2 Step 1
    neural(I, 0).power = Sigmoid(((neural(I - 1, 0).power * neural(I, 0).weight(0)) + (neural(I - 1, 1).power * neural(I, 0).weight(1))))
    neural(I, 1).power = Sigmoid(((neural(I - 1, 0).power * neural(I, 1).weight(0)) + (neural(I - 1, 1).power * neural(I, 1).weight(1))))
Next