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) 로 이동하여 처리
Top Related