99-5

'5.輸入西元年數，判斷其是否為閏年。
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a = InputBox("請輸入一個西元年如2008")
        If a Mod 4 = 0 And a Mod 100 <> 0 Or a Mod 400 = 0 Then
            MsgBox(a & "是潤年")
        Else
            MsgBox(a & "不是潤年")
        End If
    End Sub
End Class