给定年份，下列程序用来判断该年是否是闰年，请填空。　　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

给定年份，下列程序用来判断该年是否是闰年，请填空。 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