Module Module1

Sub Main()
Dim bilangan As Long
Console.Write(“Masukkan Sebuah Bilangan………..:”)
bilangan = Console.ReadLine()
If (bilangan Mod 4) = 0 Then
Console.WriteLine(“Ini adalah tahun kabisat”, bilangan)
Else
Console.WriteLine(“Ini bukan tahun kabisat”, bilangan)
End If
End Sub

End Module