第三节选择结构体验活动5课件.pptVIP

编写一个判断某年是否是闰年的程序. 要求:当你输入一个数据后,单击判断命令按钮,若数据符合年份要求,则程序显示是否是闰年.否则,清空输入的数据,等待用户重新输入. 阳历，是以地球绕太阳运动作为根据的历法。它以地球绕太阳一周（一回归年）为一年。一回归年的长度是365.2422日，也就是365天5小时48分46秒，积累4年共有23小时15分4秒，大约等于一天，所以每4年增加1天，加在2月的末尾，得366天，就是闰年。但是4年加1天实际回归年多了44分56秒，积满128年左右就又多算了一天，也就是在400年中约多算了3天。 算法分析: 算法分析: 算法分析: 完整代码: x = Val(Text1.Text) If x = Int(x) And x 0 Then If (x / 4 = Int(x / 4) And x / 100 Int(x / 100)) Or (x / 400 = Int(x / 400)) Then Label2.Caption = 你输入的 x 年是闰年 Else Label2.Caption = “你输入的” x “年不是闰年 End If Else Text1.Text = Text1.SetFocus End If * 输入 一数 输入 结果 判断 闰年 问题2: