给定年份,下列程序用来判断该年是否为闰年,请填空。 提示:闰年的条件是年份可以被4整除但不能被100整除,或者能被400整除。 Private Sub Comand6_Click() Dim y As Integer y=Input

admin2012-03-22  19

问题 给定年份,下列程序用来判断该年是否为闰年,请填空。
   提示:闰年的条件是年份可以被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

选项

答案And

解析
转载请注明原文地址:https://kaotiyun.com/show/I2hp777K
0

最新回复(0)