[비주얼베이직] (문법) Select Case문 (문자로 결과 계산)

조건문은 입력되는 값에 따라 서로 다른 명령을 실행할 때 자주 사용되지만 조건이 여러 개인 경우에는 불편하다. 이럴 경우에 사용하는 명령이 "Select Case" 문장이다. "Select Case"는 입력된 여러 조건을 동시에 처리할 수 있는 조건문으로 여러 조건이 나열되어 있는 경우에 편리하게 사용된다. "Select Case"는 문자를 이용하는 방법과 숫자를 이용하는 방법으로 구분할 수 있다.

Text1 제품코드 입력될 텍스트
Text2 판매수량 입력될 텍스트
Text3 제품명 출력될 텍스트
Text4 판매금액 출력될 텍스트
Command1 결과 입력 버튼

이와 같이 디자인해주세요 ㅎ



소스

Private Sub Command1_Click()            '// 결과입력 버튼
Select Case Text1.Text           '// 제품코드 (Text1)
Case "A"                 '// 제품코드(Text1) 에 A를 입력하면
         Text3.Text = "서든어택"               '// 제품명(Text3) 에 서든어택이 표시된다.
          판매단가 = 20000                       '// 판매수량을 적으면 판매단가가 표시된다.
Case "B"
         Text3.Text = "스타크래프트"
         판매단가 = 30000
Case "C"
          Text3.Text = "포트리스"
          판매단가 = 14000
Case Else       '// 제품코드(Text1)에 없거나 다른, 다를때
          Text3.Text = "등록되지 않는 제품입니다."      '// 등록되지 않는 제품이라고 뜬다
          판매단가 = 0
End Select

Text4.Text = 판매단가 * Val(Text2.Text)                '// 판매수량에 수 를 입력하면 판매금액(Text4) 에 값이 표시된다. 
End Sub

Select Case문 (문자로 결과 계산) 예제

Select Case.zip

Select Case 문자열

    Case 문자1
                         명령1
    Case 문자2
                         명령2
    Case 문자3
                         명령3
    Case Else
                         명령4
End Select

문자열이 '문자1' 이면 '명령1' 이 수행, '문자2' 이면 '문자2'가 수행, '문자3' 이면 '명령3' 이 수행되며, 해당되는 글자가 없으면
'명령4'가 수행된다.

이상으로 Select Case문자열 포스팅을 마치겠습니다.