5.1.1 단순 If 문

If 문은 주어진 조건의 참과 거짓 여부에 따라 해당 코드를 실행한다 . 문법

If 조건식 Then “ 조건식이 True 일 때의 실행문” End If

순서도

조건문

실행문

…

TRUE

FALSE

실습 ) 단순 If 문 코드 작성

123456789

1011

Private Sub Command1_Click() Dim i As Integer i = 0

If i = 0 Then Print " 남자 " End If If i = 0 Then Print " 남자”

End Sub

5.1.1 이중 If 문

문법

If 조건식 Then “ 조건식이 True 일 때의 실행문 1” Else “ 조건식이 False 일 때의 실행문 2” End If

순서도

조건문

실행문1

…

TRUE

FALSE

실행문2

실습 ) 이중 If 문 코드 작성

123456789

1011121314

15

Private Sub Command1_Click() Dim i As Integer Dim j As Integer i = 10 j = 20 If i = j Then Print i & " 와 " & j & " 는 같다 ." Else Print i & " 와 " & j & " 는 같지 않다 ." End If

If i = j Then Print i & " 와 " & j & " 는 같다 ." Else Print i & " 와” & j & " 는 같지 않다 .”

End Sub

5.1.1 다중조건 If 문

문법

If 조건식 1 Then

조건식 1 이 True 일 때의 실행문 1

ElseIf 조건식 2 Then

조건식 2 가 True 일 때의 실행문 2 … … Else 모든 조건식이 False 일 때의 실행문 3 End If

순서도

조건문

실행문1

…

TRUE

FALSE

실행문2

조건문

실행문3

실습 ) 다중조건 If 문 코드 작성

123456789

1011121314

15

Private Sub Command1_Click() Dim i As Integer Dim j As Integer i = 10 j = 20 If i = j Then Print i & " 와 " & j & " 는 같다 ." ElseIf i < j Then Print i & " 는 " & j & " 보다 작다 ." Else Print i & " 는 " & j & " 보다 크다 ." End If

End Sub

5.1.2 Select Case 문

Select Case 문은 Select 문에 지정된 조건의 값과 나열되어 있는 여러 개의 Case 문의 값을 비교해 내려가면서 만약 일치하는 값이 있다면 해당 실행문 블록을 실행한다 .

문법

Select Case 조건 Case 비교값 1

조건이 비교값 1 과 일치할 때의 실행문 1

Case 비교값 2

조건이 비교값 2 와 일치할 때의 실행문 2 … … Case Else 조건과 일치하는 비교값이 없는 경우의 실행문 3 End Select

실습 ) Select Case 문 코드 작성

123456789

101112131415

16

Private Sub Command1_Click() Dim i As Integer i = 2

Select Case i Case 1 Print " 사과를 선택하셨군요 !" Case 2 Print " 배를 선택하셨군요 !" Case 3 Print " 포도를 선택하셨군요 !" Case Else Print " 잘못 선택하셨군요 !" End Select

End Sub

123456789

101112131415161718192021

22

Option ExplicitPrivate Sub cmdGrade_Click() Dim t As Integer t = txtInput.Text If t > 90 Then lblOutput.Caption = " 당신의 성적 등급은 A 입니다

“ ElseIf t >= 80 Then lblOutput.Caption = " 당신의 성적 등급은 B 입니다

“ ElseIf t >= 70 Then lblOutput.Caption = " 당신의 성적 등급은 C 입니다

“ Else lblOutput.Caption = " 당신의 성적 등급은 F 입니다“ End IfEnd Sub

Private Sub cmdClear_Click() txtInput.Text = " " lblOutput.Caption = " "End Sub

Private Sub cmdEnd_Click() EndEnd Sub

실습 ) 조건문을 활용한 등급계산

If 문Select case 문 이용

< 조건 >

90 점 이상 A 80 점 이상 ~90미만 B70 점 이상 ~80미만 C70 점 미만 F

GoTo 문

점프해서 지정된 곳을 실행예 1) GoTo Line

… Line: 명령문

예 2) IF 조건식 Then GoTo 레이블 … 레이블 : 조건식이 참일때 수행할 명령문

프로시저 안에서만 사용 가능

On Error 문오류 처리 루틴을 사용하도록 한다 .비주얼 베이직 자동 오류 처리 루틴을 사용할 수 없도록 할 수도 있다 .

On Error GoTo < 라인 >지정된 라인에서 오류 처리 루틴을 사용

On Error Resume Next실행 오류가 발생할 때 오류가 발생한 바로 다음에 실행이 계속될 수 있도록 한다 .

On Error GoTo 0현재 프로시저에서 사용 가능한 오류처리기를 사용할 수 없도록 한다

On Error 문 ( 예제 )

Text2 값이 0 인 경우 에러 발생→ 에러처리 위치 (err_process) 로 이동하여 처리