[填空题] 给定年份，下列程序用来判断该年是否是闰年，请填空。Sub YN(　) Dim X AS Integer x＝Input Box("请输入年号") If( x Mo

[填空题] 给定年份，下列程序用来判断该年是否是闰年，请填空。

Sub YN(　)

Dim X AS Integer

x＝Input Box("请输入年号")

If( x Mod 4=0 【10】 x Mod l00<　>0) 【11】 (x　Mod　400=0)Then

Print"是闰年"

Else

Print"不是闰年，是普通年份"

End If

End Sub