Imports System

Public Module Module1 

    Public Sub Main() 

        Dim ab As Integer 

        Console.WriteLine("ingrese año") 

        ab = console.ReadLine() 

        If ab mod 4 = 0 and ab mod 100 <> 0 Then  

            Console.Writeline ("no es un año biciesto") 

        Else 

            Console.WriteLine("es un año biciesto") 

    End If 

    End Sub 

​

End Module