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

2024-11-17 06:47:05

推荐回答（1个）

回答1：

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

最新问答

招商银行信用卡3000元分期3个月付款手续费是多少？

PS如何围绕一个圆圈画许多圆圈？

有没有人在大的场合出错，犯了很严重的错误？因为我们是演出公司，我在一次演出活动中出错。而且无法弥补

读一本作文书有感500字

为什么大学录取分数每个省都不一样啊？

tp-link无线路由器在看电影的时候经常放到半小时左右就开始掉线,然后怎么连接都连不上！上网的时

“行”的读音是什么？

我是英语专业大学生，想买一个电子词典，帮忙推荐一下。

西南财经大学金融专业研究生入学是先选好导师，还是入学后分配导师呀？

求周杰伦的歌歌词有“。。。像失恋”