给定年份,下列程序用来判断该年是否为闰年,请填空。提示:闰年的条件是年份可以被4整除但不能被100整除,或者能被400整除。Private Sub Comand6_Click()Dim y As Integery=InputBox("请输入年份")If(y Mod 4=0______y Mod 100<>0)or(y Mod 400=0)ThenPrint"是闰年"ElsePrint"是普通年份"End IfEnd Sub

题目

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

提示:闰年的条件是年份可以被4整除但不能被100整除,或者能被400整除。

Private Sub Comand6_Click()

Dim y As Integer

y=InputBox("请输入年份")

If(y Mod 4=0______y Mod 100<>0)or(y Mod 400=0)Then

Print"是闰年"

Else

Print"是普通年份"

End If

End Sub


相似考题
更多“给定年份,下列程序用来判断该年是否为闰年,请填空。 提示:闰年的条件是年份可以被4整除但不能被10 ”相关问题
  • 第1题:

    2、键盘输入一个年份,判断它是否为闰年。 提示:闰年能被4整除,不能被100整除;或者能被400整除。


    无答案

  • 第2题:

    写出判断年份Y是否为闰年的命令(普通年能被4整除且不能被100整除的为闰年,世纪年能被400整除的是闰年。)


    (y%4==0&&y%100!=0)||(y%400==0)

  • 第3题:

    输入年份,输出是否是闰年。闰年判断条件为:能被400整除或能被4整除但不能被100整除的年份。


    declare @y int set @y=1998 if @y%4<>0 print 'no' else if @y%100<>0 print 'yes' else if @y % 400 =0 print 'yes' else print 'n0'

  • 第4题:

    作业3-2 输入年份,判断它是否为闰年,并显示有关信息。 判断闰年条件是:能被4整除但不能被100整除的年份;或者能被400整除的年份。


    无答案

  • 第5题:

    8、输入一个年份,输出是否为闰年。(闰年条件:能被4整除但不能被100整除,或者能被400整除的年份)