![[填空题] 给定年份，下列程序用来判断该年是否是闰年，请填空。 Sub YN( ) Dim X AS Integer x＝Input Box("请输入年号")](http://www.mshxw.com/aiimages/31/250755.png "[填空题] 给定年份，下列程序用来判断该年是否是闰年，请填空。 Sub YN( ) Dim X AS Integer x＝Input Box(\"请输入年号\")")
[填空题] 给定年份，下列程序用来判断该年是否是闰年，请填空。 Sub YN( ) Dim X AS Integer x＝Input Box("请输入年号") If( x Mod 4=0 【 】 x Mod l00< >0) 【 】 (x Mod 400=0)Then Print"是闰年" Else Print"不是闰年，是普通年份" End If End Sub
参考答案：
And问题解析:
此题主要考查了闰年的条件，并把条件用逻辑关系式表示出来。闰年的条件是能被四整除不能被100整除的是闰年，或者是能被400整除，所以由此可以写出逻辑关系式：(x Mod 4=0 And x Mod l00 0 ) Or (x Mod 400=0)。
