첨부 실행 코드는 나눔고딕코딩 폰트를 사용합니다.
유용한 소스 코드가 있으면 icodebroker@naver.com으로 보내주시면 감사합니다.
블로그 자료는 자유롭게 사용하세요.

■ SELECT CASE ~ CASE ~ CASE ELSE ~ END SELECT문 사용하기

----------------------------------------------------------------------------------------------------

Dim strGrade As String

 

strGrade = "4"

 

Select Case strGrade

 

    Case "1" To "3"

    

        Print "저학년"

        

    Case "4", "5", "6"

    

        Print "고학년"

 

    Case Else

    

        Print "해당 무"

        

End Select

----------------------------------------------------------------------------------------------------

Posted by 사용자 icodebroker
TAG

댓글을 달아 주세요