If문을 이용하여 입력된 값이 홀수인지 짝수인지를 알아내는 프로그램을 작성하시오.

  1) 입력되는 값은 정수이다.

  2) 짝수인지 홀수인지를 비교하여 메시지 박스로 출력한다.

  Val은 문자열을 숫자로 변환해 주는 Visual Basic의 내장 함수이다.

모든 짝수는 2의 배수이므로 어떤 수를 2로 나누었을 때의 나머지가 0이면 짝수이고, 그렇지 않으면 홀수라고 판단할 수 있다.

Private Sub Command_구분_Click()

   Dim N as Long

   N = Val(Text_숫자.Text)            '텍스트 박스의 내용을 숫자로 변환

   if N mod 2 = 0 then                '숫자를 2로 나누어 나머지가 0이면

     MsgBox "짝수"                   '결과를 메시지 박스로 표시

   else

     MsgBox "홀수"                   '결과를 메시지 박스로 표시

   end if

End Sub