수다닷컴

밑의 구구단 프로그램을 여쭈어봣던 고등학생입니다 ㅠ 이번에는 윤년 평년을 구하는 프로그램을 여쭈어보려고합니다 ㅠ((연도를 입력받아 입력받은 연도가 윤년인지 아닌지를 판별하는 프로그램을 작성하여보자.
4로 나누어 떨어지는 해는 우선 윤년으로 하고, 그 중에서 100으로 나누어 떨어지는
해는 평년으로 하며, 다만 400으로 나누어 떨어지는 해는 다시 윤년이 되도록한다.))
이게 문제이구요
Dim year As Integer
year = InputBox( , )
If year Mod 4 = 0 Then
If year Mod 100 = 0 Then
If year Mod 400 = 0 Then
MsgBox 윤년
Else
MsgBox 평년
End If
Else
MsgBox 윤년
End If
Else
MsgBox 평년
End If

이게 제가짠 소스인데
이방법을 말고 4,100,400 위치를 바꾼다던지 if문 1곳에 2개의 조건을 넣는다던지 해서 바꿔서 풀어보고 싶은데
도저히 제가 더이상은 방법을 모르겠네요 ㅠㅠ 도와주세요 ㅠㅠ

신청하기