给定年份，下列程序用来判断该年是否为闰年，请填空。提示：闰年的条件是年份可以被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整除的年份）
无