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