Module LeapYear Sub main()
Dim yeaar As Integer Console.Write("Enter Year:") yeaar = CInt(Console.ReadLine())
If yeaar Mod 100 <> 0 Then If yeaar Mod 4 = 0 Then Console.WriteLine(yeaar & " is a Leap year") Else Console.WriteLine(yeaar & " is NOT a Leap year") End If
Else If yeaar Mod 400 = 0 Then Console.WriteLine(yeaar & " is a Leap year") Else Console.WriteLine(yeaar & " is NOT a Leap year") End If End If Console.ReadLine() End Sub End Module
Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. After downloading it, you will need a program like Winzip to decompress it.
Virus note: All files are scanned once-a-day by SourceCodester.com for viruses, but new viruses come out every day, so no prevention program can catch 100% of them.
FOR YOUR OWN SAFETY, PLEASE:
1. Re-scan downloaded files using your personal virus checker before using it.
2. NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.