fork download
copy 
  1. Imports System
  2.  
  3. Public Class Test
  4. 	Public Shared Sub Main()
  5. 		Dim a As Integer = 2014
  6.  
  7. 		Do
  8. 			a = a + 1
  9. 				If a Mod 4 = 0 Then
  10. 				Console.WriteLine(a)
  11. 				End If
  12. 		Loop While (a <= 2041)
  13.  
  14.  
  15.  
  16. 	End Sub
  17. End Class
Success #stdin #stdout 0.06s 13512KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
2016
2020
2024
2028
2032
2036
2040
https://ideone.com/1Q4xYC
language:
VB.NET (mono-3.10)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!