예제로 배우는 Visual Basic 6.0 5. 구구단 작성기로 익히는 반복문

예제로 배우는 예제로 배우는 Visual Basic 6.0Visual Basic 6.0

5. 5. 구구단 작성기로 익히는 구구단 작성기로 익히는 반복문반복문

2 예제로 배우는 Visual Basic 6.0 5. 구구단 작성기로 익히는 반복문

학습목표학습목표 반복문에 대해서 안다반복문에 대해서 안다 .. 컨트롤 배열에 대해서 안다컨트롤 배열에 대해서 안다 ..


5.1 5.1 반복문반복문 5.2 5.2 구구단 작성기로 익히는 반복문구구단 작성기로 익히는 반복문


반복문반복문 주어진 조건이 만족하는 동안 또는 주어진 조건이 만족하는 동안 또는

주어진 조건이 만족할 때까지 일정 주어진 조건이 만족할 때까지 일정 구간의 실행문을 반복하기 위해 사용구간의 실행문을 반복하기 위해 사용 For … NextFor … Next For Each … NextFor Each … Next Do … LoopDo … Loop While … WendWhile … Wend


For … NextFor … Next 정해진 횟수만큼 명령문 또는 명령문 블록을 정해진 횟수만큼 명령문 또는 명령문 블록을

반복 수행반복 수행 형식형식

수행수행 변수를 “시작값”으로 초기화변수를 “시작값”으로 초기화 명령문을 한번 수행할 때마다 “증감치”만큼 증감명령문을 한번 수행할 때마다 “증감치”만큼 증감 변수의 값이 종료값보다 크면 반복 종료변수의 값이 종료값보다 크면 반복 종료 증감치가 증감치가 11 씩 증가할 때는 생략 가능씩 증가할 때는 생략 가능

For 변수 = 시작값 To 종료값 [Step 증감치 ] < 명령문 > Next [ 변수 ]


For … Next For … Next 예예

Private Sub Command1_Click() Dim intN as Integer Dim intSum as Integer For intN = 1 To 10 intSum = intSum + intN Next intN txtResult.Text = intSum End Sub

11 부터 부터 1010 까지의 합까지의 합



Private Sub Command1_Click() Dim intN as Integer Dim intSum as Integer ' 변수 intN 에 3 로 초기화시키고 100 이 될 때까지 3 씩 증가 For intN = 3 To 100 Step 3 intSum = intSum + intN Next ' 변수 intN 생략 txtResult.Text = intSum End Sub

11 부터 부터 100100 까지의 까지의 33 의 배수의 합의 배수의 합



Private Sub Command1_Click() Dim intN as Integer, intM as Integer

For intN = 2 To 9 ' 2 부터 9 까지 1 씩 증가시키면서 반복 For intM = 1 To 9 ' 1 부터 9 까지 1 씩 증가시키면서 반복 print intN & " x " & intM & " = " & intN * int M & vbCrLF For intM ' 안쪽에서 반복되는 For Next intN ' 바깥쪽에서 반복되는 For End Sub

구구단의 구구단의 22 단에서 단에서 99 단까지 출력단까지 출력


For Each … NextFor Each … Next 정해진 횟수만큼 명령문 또는 명령문 블록을 반복 수행정해진 횟수만큼 명령문 또는 명령문 블록을 반복 수행 배열이나 컬렉션의 크기만큼 반복배열이나 컬렉션의 크기만큼 반복

컬렉션컬렉션 배열과 유사하게 값이 연속해서 저장되어 있는 데이터 구조배열과 유사하게 값이 연속해서 저장되어 있는 데이터 구조

형식형식

수행수행 변수에 컬렉션의 첫번째 값 대입변수에 컬렉션의 첫번째 값 대입 명령문을 한번 수행할 때마다 변수에 컬렉션의 다음 값 대입명령문을 한번 수행할 때마다 변수에 컬렉션의 다음 값 대입 더 이상 컬렉션에 값이 없으면 반복 종료더 이상 컬렉션에 값이 없으면 반복 종료

For Each 변수 In 컬렉션 ( 배열 )_ 이름 < 명령문 > Next [ 변수 ]


For Each … Next For Each … Next 예예 ForFor 문을 이용하여 배열에 데이터 저장 문을 이용하여 배열에 데이터 저장

후 후 For EachFor Each 문을 이용하여 값 출력문을 이용하여 값 출력Private Sub Command1_Click() Dim arr(5) As Integer Dim i As Integer, k As Variant For i = 1 To 5 '1 부터 5 까지 1 씩 증가시키면서 반복 arr(i) = i * i Next i

For Each k In arr ' 배열 arr 의 0 번째부터 값을 차례로 꺼내면서 반복 txtResult.Text = txtResult.Text & vbCrLf & k Next k End Sub


Do … LoopDo … Loop 조건이 만족하는 동안 또는 만족할 때까지 반복조건이 만족하는 동안 또는 만족할 때까지 반복

UntilUntil 만족할 때까지 반복만족할 때까지 반복

WhileWhile 현재 조건이 만족하는 동안 반복현재 조건이 만족하는 동안 반복

컵이 비어있는 한 ( 동안 )

계속 따라야지~~

컵이 가득 채워질때까지 계속 따라야지

~~


Do … LoopDo … Loop 형식형식

조건 확인 후 실행조건 확인 후 실행

실행 후 조건 확인실행 후 조건 확인

Do {While 또는 Until} 조건식 < 명령문 > Loop

Do < 명령문 > Loop {While 또는 Until} 조건식


Do … Loop Do … Loop 예예 11 부터 부터 100100 까지의 까지의 33 의 배수의 합의 배수의 합

(Until)(Until)Private Sub Command1_Click() Dim intN as Integer, intSum as Integer intSum = 0 : intN = 3 ' 두 개의 문장을 한 행에 쓸때는 “ :” 로 구분

Do Until intN > 100 ' intN 의 값이 100 보다 큰 값을 가질 때까지 반복 intSum = intSum + intN intN = intN + 3 Loop txtResult.Text = intSum End Sub


Do … Loop Do … Loop 예예 11 부터 부터 100100 까지의 까지의 33 의 배수의 합의 배수의 합

(While)(While)Private Sub Command1_Click() Dim intN as Integer, intSum as Integer intSum = 0 : intN = 3

Do While intN <= 100 ' intN 의 값이 100 보다 작거나 같은 동안 반복 intSum = intSum + intN intN = intN + 3 Loop txtResult.Text = intSum End Sub


While … WendWhile … Wend Do … LoopDo … Loop 에 에 WhileWhile 을 이용한 을 이용한

경우와 유사경우와 유사 형식형식

수행수행 조건식이 만족하는 동안 명령문 수행조건식이 만족하는 동안 명령문 수행

While 조건식 < 명령문 > Wend


5.1 5.1 반복문반복문 5.2 5.2 구구단 작성기로 익히는 반복문구구단 작성기로 익히는 반복문


실습 – 폼 디자인실습 – 폼 디자인 구구단 작성기로 익히는 반복문구구단 작성기로 익히는 반복문 기본 폼기본 폼

TextBox 1

Frame 1


실습 – 폼 디자인실습 – 폼 디자인 컨트롤 배열을 이용한 옵션버튼 배치컨트롤 배열을 이용한 옵션버튼 배치

OptionButton1 Caption:2

이름 :optNumber

복사 후 붙여넣기 하면

요런 경고 메시지예 (Y)~!

나머지 4 ~ 9 단은 경고없이 붙여넣기

수행


실습 – 폼 디자인실습 – 폼 디자인 컨트롤 배열컨트롤 배열

복수개의 컨트롤이 동일한 이름을 갖는 구조복수개의 컨트롤이 동일한 이름을 갖는 구조 컨트롤 각각을 구분하기 위해 인덱스 사용컨트롤 각각을 구분하기 위해 인덱스 사용


실습 – 속성 설정실습 – 속성 설정

컨트롤컨트롤 이름이름 주요 속성주요 속성Form frmMultip Caption = 구구단 작성기Frame1 framNum Capton = 9 × 9 단

TextBox1 txtResultText = ""MultiLine = TrueScrollBars = 3- 양방향

OptionButton 1~8 optNumber Index 0~7


실습 – 코드 작성실습 – 코드 작성 옵션버튼 (optNumber) 클릭 이벤트

이름이 OptNumber 라는 컨트롤 배열 중 현재

클릭된 컨트롤의 첨자


실습 - 코드 작성 옵션버튼의 Index 값과 Caption 값 관계

CaptioCaptionn

IndexIndex

2 단 0

3 단 1

4 단 2

5 단 3

6 단 4

7 단 5

8 단 6

9 단 7

구구단의 패턴 2 × 1 = 22 × 2 = 42 × 3 = 62 × 4 = 82 × 5 = 102 × 6 = 122 × 7 = 142 × 8 = 162 × 9 = 18

(Index + 2) × ( 반복문의 변수 ) = 곱한 값


실습 – 코드 작성 For … Next

Do … Loop

For i = 1 To 9 rst = (Index + 2) * i txtResult.Text=txtResult.Text & vbCrLf & Index + 2 & " x " & i & " = " & rst Next i

i = 1 Do While I <= 9 rst = (Index + 2) * i txtResult.Text=txtResult.Text & vbCrLf & Index + 2 & " x " & i & " = " & rst i = i + 1 Loop


실습 – 실행실습 – 실행

Click~! 결과 확인

예제로 배우는 Visual Basic 6.0 5. 구구단 작성기로 익히는 반복문

Documents

Transcript of 예제로 배우는 Visual Basic 6.0 5. 구구단 작성기로 익히는 반복문