输入一年份,判断它是否为闰年,判断闰年的条件是：年份能被4整除但不能被100整除,或者能被400整除.
Sub Command1_Click()
Dim y%
y=Year(Now())
If _______ Or y Mod 400=0 Then
MsgBox(y & “年是闰年”)
Else
MsgBox(y & “年不是闰年”)
End If
End Sub
我想知道答案啊.求救!
输入一年份,判断它是否为闰年,判断闰年的条件是：年份能被4整除但不能被100整除,或者能被400整除.
答案:1 悬赏:50 手机版
解决时间 2021-05-22 06:15
- 提问者网友：浮克旳回音
- 2021-05-22 02:55
最佳答案
- 五星知识达人网友：胯下狙击手
- 2021-05-22 04:17
(year mod 4=0) and (year mod 100 0 )|| year mod 400=0
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯