Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim a, b As Integer
- a = 1
- b = 2
- Dim sum As Integer = 2
- While (a + b) < 4000000
- a = a + b
- b = a + b
- If a Mod 2 = 0 And b Mod 2 = 0 Then
- sum = sum + a + b
- ElseIf a Mod 2 = 0 Then
- sum = sum + a
- ElseIf b Mod 2 = 0 Then
- sum = sum + b
- End If
- End While
- Console.WriteLine("Finally..." & vbCrLf & "Sum is " & sum)
- Console.ReadKey()
Add Comment
Please, Sign In to add comment