Guest User

Untitled

a guest
Jan 23rd, 2018
90
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.44 KB | None | 0 0
  1. Dim a, b As Integer
  2. a = 1
  3. b = 2
  4. Dim sum As Integer = 2
  5.  
  6. While (a + b) < 4000000
  7.  
  8. a = a + b
  9. b = a + b
  10.  
  11. If a Mod 2 = 0 And b Mod 2 = 0 Then
  12. sum = sum + a + b
  13. ElseIf a Mod 2 = 0 Then
  14. sum = sum + a
  15. ElseIf b Mod 2 = 0 Then
  16. sum = sum + b
  17. End If
  18. End While
  19.  
  20. Console.WriteLine("Finally..." & vbCrLf & "Sum is " & sum)
  21. Console.ReadKey()
Add Comment
Please, Sign In to add comment