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

2024年11月17日 06:47

有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

最新问答

半夜回家路上碰到有人跟踪怎么办啊？

求几部九几年的日本动画片

我想请问一下上海师范大学的研究生和上海海事大学的研究生哪个好考一些，

为什么汽油要分90#，93#和97#呢

衣服上的胶印怎么去除小窍门，衣服上的胶

和男朋友是网恋每次玩游戏都不敢主动说话现实里我也是个很内向不愿意交流的人我该怎么办

售货员态度恶劣,顾客应该怎么办?

西安最正宗肉夹馍是哪一家？

裤腰上系皮带的小环叫什么？

联想ThinkPad E420 如何恢复出厂状态