1부터10까지 짝수합 반복문(for) 값은30
Sub main()
For n = 1 To 10
10 n = n + 2
Sum = Sum + n
Next n
Debug.Print Sum
End Sub

 

1부터10까지 짝수합 조건문(if) 값은 30
Sub main()
n = 0
Sum = 0
10 n = n + 2
Sum = Sum + n
If n < 9 Then
GoTo 10
End If
Debug.Print Sum
End Sub

 

1부터10까지 홀수합 반복문(for) 값은 25

 

1부터10까지 홀수합 조건문(if) 값은 25
Sub main()
n = -1
Sum = 0
10 n = n + 2
Sum = Sum + n
If n < 9 Then
GoTo 10
End If
Debug.Print Sum
End Sub

 

 

if문은 제가 (학교)수업중에 배워서 만들어놓앗던거고

(학교수행)숙제가나왓는데 숙제가 if문을 for문으로 바꾸는거에요

1부터10까지 짝수합은 for문으로 어찌어찌 바꾸니까 되는데 홀수합은 아무리해도 되지가않네요;;

1부터10까지 홀수합 for문 만드는법 가르쳐주시면 감사하겠습니다..(__)>