闰年的问题
闰年的问题
张航宇——VB 周六 三月 22, 2008 6:52 pm
Sub Main()
Dim a As Integer
a= Console.ReadLine
If a Mod 100 = 0 And a Mod 400 = 0 Then
Console.WriteLine("是闰年")
ElseIf a Mod 4 = 0 And a Mod 100<>0 Then
Console.WriteLine("是闰年")
Else
Console.WriteLine("不是闰年")
End If
End Sub
End Module
Dim a As Integer
a= Console.ReadLine
If a Mod 100 = 0 And a Mod 400 = 0 Then
Console.WriteLine("是闰年")
ElseIf a Mod 4 = 0 And a Mod 100<>0 Then
Console.WriteLine("是闰年")
Else
Console.WriteLine("不是闰年")
End If
End Sub
End Module
张航宇——VB- 帖子数 : 3
注册日期 : 08-03-22
您在这个论坛的权限：
您不能在这个论坛回复主题