从键盘输入一个年份,判断其是否为闰年(VB)

Private Sub Command1_Click()
Dim y%
y = Val(InputBox("请输入年份"))

If (y Mod 4 = 0 And y Mod 100 <> 0) Or y Mod 400 = 0 Then
MsgBox (CStr(y) + "是润年")
Else
MsgBox (CStr(y) + "不是闰年")
End If
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/vvvrfjj3yjjjvfyrfvx.html