이 프로그램에서 필요한건 Mod 라고 할 수 있다. N 까지 더하기에서 모든 수의 합을 구하는 문제는 이미 풀었기 때문에 홀수와 짝수를 구분해주는 Mod가 필요하다고 할 수 있다.

				Dim isutja As Integer
        Dim dsum_Odd, dSum_Even As Double

        isutja = TextBox1.Text
        TextBox2.Text = ""
        TextBox3.Text = ""

기본적으로 필요한 변수와 초기화를 해준 것이다.

				For i = 1 To isutja
            If i Mod 2 = 0 Then '2로 나눈 나머지가 0이냐. 즉 짝수냐.
                dSum_Even += i
                If i = isutja Or i = isutja - 1 Then
                    TextBox3.Text += i & " = " & dSum_Even '결과를 출력하고 끝맺음 지음
                Else
                    TextBox3.Text += i & " + " '계속해서 덧셈함
                End If
            Else '그게 아니라면 그냥 홀수다.
                dsum_Odd += i
                If i = isutja Or i = isutja - 1 Then
                    TextBox2.Text += i & " = " & dsum_Odd
                Else
                    TextBox2.Text += i & " + "
                End If
            End If
        Next