VB编程 判断闰年

Private Sub Form_Click()

Dim a As Integer

a 漏碰= Val(InputBox("输入年份"))

If a Mod 400 = 0 Then

Print "是瑞年"

ElseIf a Mod 4 = 0 And a Mod 100 <> 0 Then

Print "是瑞此启年 "

Else

Print "返扒谈不是瑞年"

End If

End Sub

    液尺稿y = Val(InputBox("请输入年份："))

    If y Mod 4 Then

   困凯     GoTo 100

    ElseIf (y Mod 100) = 0 Then

       闹孝 If y Mod 400 Then GoTo 100

    End If

    MsgBox y & "年是闰年！"

    Exit Sub

100

    MsgBox y & "年是平年！"

End Sub