Pemrograman Desktop (Mod Tahun Kabisat)

Mod Tahun Kabisat

1. Script Program

Module TahunKabisat

    Function IsGenap(x As Long) As Boolean

        If (x Mod 4) = 0 Then

            Return True

        Else

            Return False

        End If

    End Function

    REM program utama

    Sub main()

        Dim bil As Long

        Console.Write("Masukkan Tahun :")

        bil = Console.ReadLine()

        If IsGenap(bil) Then

            Console.WriteLine("Tahun {0} adalah Tahun Kabisat", bil)

        Else

            Console.WriteLine("Tahun {0} adalah Bukan Tahun Kabisat", bil)

        End If

        Console.ReadLine()

    End Sub

End Module

2. Hasil Setelah Dijalankan

Tahun kabisat 

Bukan Tahun Kabisat