给定年份，下列程序用来判断该年是否是闰年，请填空。 SubYN（） DimxAsInteger x=InputBox（

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

Sub YN（）

Dim x As Integer

x=InputBox（"请输入年号"）

If （x Mod 4=0 【10】 x Mod 100 $amp; Print "是闰年"

Else

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

End If

End Sub