作业帮 > 综合 > 作业

VB编程 判断闰年编程:输入年份,判断是否闰年.符合以下两个条件之一的年份为闰年:①年份末两位为00且能被400整除;②

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/05 08:18:59
VB编程 判断闰年
编程:输入年份,判断是否闰年.
符合以下两个条件之一的年份为闰年:①年份末两位为00且能被400整除;②末两位不是00且能被4整除.
Private Sub Form_Click()Dim a As Integera = Val(InputBox("输入年份"))If a Mod 400 = 0 ThenPrint "是瑞年"ElseIf a Mod 4 = 0 And a Mod 100 <> 0 ThenPrint "是瑞年 "ElsePrint "不是瑞年"End IfEnd Sub