下列程序输入公元年号,判断该年是否闰年。判断闰年可以参考以下规则:⑴能被4整除,但不能被100整除,如1996年是闰年;⑵能被400整除,如2000年。PrivateSubForm_Click()Dimy%y=InputBox("y=")(______)Print"是闰年"ElseIfyMod100=0ThenPrint"不是闰年"Else(______)Print"不是闰年"ElsePrint"是闰年"(______)EndIfEndIfEndSub(10.0分)
下列程序输入公元年号,判断该年是否闰年。判断闰年可以参考以下规则:⑴能被4整除,但不能被100整除,如1996年是闰年;⑵能被400整除,如2000年。PrivateSubForm_Click()Dimy%y=InputBox("y=")(______)Print"是闰年"ElseIfyMod100=0ThenPrint"不是闰年"Else(______)Print"不是闰年"ElsePrint"是闰年"(______)EndIfEndIfEndSub(10.0分)
1