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

最新问答

我每天早上起来都嘴巴很苦干舌头上一层东西老中医说我肝火旺什么的叫我吃什么知柏地黄丸对的吗？

中国电信的客服电话是多少？

传媒专业的就业方向，有哪几种啊？

怎样理解a piece of apple中的apple是不可数名词这一现象？为什么？

英语四级怎么办

有什么好看的漫画杂志。

1989年农历12月初一是属于什么星座

那些杰出的科学家为什么把科学精神与宗教情怀统一于一身？

如何签二手房买卖合同

c语言组成基本单位是什么