输入一个年份,判断它是否为闰年。判断闰年的条件为:如果某年份能被4整除并且不能被100整除的或者能被400整除的,则该年为闰年。
Private Sub Form_Click()
Dim y%
y = Val(InputBox("请输入年份", "闰年计算"))
If 【1】 Or y Mod 400 = 0 Then
Print y, "是闰年"
Else
Print y, "不是闰年"
End If
End Sub
Private Sub Form_Click()
Dim y%
y = Val(InputBox("请输入年份", "闰年计算"))
If 【1】 Or y Mod 400 = 0 Then
Print y, "是闰年"
Else
Print y, "不是闰年"
End If
End Sub
举一反三
- '''判断某一年是否为闰年 。判断闰年的条件是：年份能被4整除且不能被 100 整除 ，或者能被 400 整除。 ''' [br][/br] y = int( input('请输入年份＞＞')) if print("是闰年") y % 4 == 0 and y % 100 != 0: print("是闰年") else: ("不是闰年")
- 正确排序使程序能够判断某一年是否为闰年 。判断闰年的条件是：年份能被4整除且不能被 100[br][/br] 整除 ，或者能被 400 整除。 A: print("不是闰年") B: print("是闰年") C: y = int( input('请输入年份＞＞')) D: if y % 4 == 0 and y % 100 != 0 or y % 400 == 0 : E: else:
- （编程题填空）请输入一个年份数字，输出该年份是否为闰年。闰年条件：能被4整除但不能被100整除，或者能被400整除的年份都是闰年。y=input("请输入一个年份：")year=int(y)if ( _____ ==0 and_____ !=0) _____ (_____==0): print(y+"年是闰年")else: print(y+"年不是闰年")【运行示例】请输入一个年份：20002000年是闰年【运行示例】请输入一个年份：18001800年不是闰年
- 根据用户输入的年份y，判断是否为闰年 闰年判断条件为： 能被4整除，且不能被100整除，或者能被400整除
- 提示用户输入年份后判断该年是否为闰年# 提示用户输入年份后判断该年是否为闰年# 能被4整除并且并不能被100整除的年份是闰年# 能被400整除的年份也是闰年