Imports System
Class Program
Public Shared Function SumEvenNumbersInFibonacci(ByVal n As Integer) As Integer
If n < 1 Then
Return 0
End If
Console.Write("0 1 ")
Dim temp As Integer, currentNumber As Integer = 0, nextNumber As Integer = 1
Dim sum As Integer = 0
For i As Integer = 0 To n - 2 - 1
temp = nextNumber
nextNumber = currentNumber + nextNumber
currentNumber = temp
Console.Write(nextNumber & " ")
If currentNumber Mod 2 = 0 Then sum += currentNumber
Next
Return sum
End Function
Public Shared Sub Main()
Dim sum As Integer = SumEvenNumbersInFibonacci(15)
Console.WriteLine(Environment.NewLine & "Sum = " & sum)
End Sub
End Class
' run:
'
' 0 1 1 2 3 5 8 13 21 34 55 89 144 233 377
' Sum = 188
'
