从键盘输入一个年份,判断其是否为闰年(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

最新问答

各种颜色的交通卡面值分别是多少？？

上海虹口区有什么比较好的初中？

英超一共有几支球队,每年升降级各几支??

安装coreldraw x7时，提示系统尚未修改，是什么问题

我的淘宝本来是做家居用品的，现在开始转做女装，衣服很多都是亏本价在卖，为什么没人来买啊，

为什么很多销售人员因为业绩很好而升职，但是做管理层后却效果不好？

我国消费者权益保护法规定，消费者协会履行的职能之一是（）。

乌龟的爪子被另一只乌龟咬断了还能再长吗？

人生若只如初见，下一句是什么？

宝宝太胖会不会对心脏有影响？