填空题

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

<上一题目录下一题>

热门试题

填空题

执行下面的程序段，x的值为【】。 Private Sub Command1_Click()For i=1 To 9a=a + iNext ix=Val(i)MsgBox xEnd Sub

填空题

为了选择多个控件，可以按住【】键，然后单击每个控件。

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