예제로 배우는 Visual Basic 6.0 5. 구구단 작성기로 익히는 반복문 IT응용시스템공학과 김 형 진 교수

학습목표 반본문에 대해서 안다. 컨트롤 배열에 대해서 안다. 예제로 배우는 Visual Basic 6.0

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

반복문 주어진 조건이 만족하는 동안 또는 주어진 조건이 만족할 때까지 일정 구간의 실행문을 반복하기 위해 사용 For … Next For Each … Next Do … Loop While … Wend 예제로 배우는 Visual Basic 6.0

For … Next 정해진 횟수만큼 명령문 또는 명령문 블록을 반복 수행 형식 수행 변수를 “시작값”으로 초기화 명령문을 한번 수행할 때마다 “증감치”만큼 증감 변수의 값이 종료값보다 크면 반복 종료 증감치가 1씩 증가할 때는 생략 가능 For 변수 = 시작값 To 종료값 [Step 증감치] <명령문> Next [변수] 예제로 배우는 Visual Basic 6.0

For … Next 예 1부터 10까지의 합 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 예제로 배우는 Visual Basic 6.0

For … Next 예 1부터 100까지의 3의 배수의 합 Private Sub Command1_Click()     Dim intN as Integer     Dim intSum as Integer          ' 변수 intN에 1로 초기화시키고 100이 될 때까지 3씩 증가     For intN = 3 To 100 Step 3         intSum = intSum + intN     Next     ' 변수 intN 생략     txtResult.Text = intSum End Sub 예제로 배우는 Visual Basic 6.0

For … Next 예 구가단의 2단에서 9단까지 출력 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 예제로 배우는 Visual Basic 6.0

For Each … Next 정해진 횟수만큼 명령문 또는 명령문 블록을 반복 수행 배열이나 컬렉션의 크기만큼 반복 형식 수행 배열과 유사하게 값이 연속해서 저장되어 있는 데이터 구조 형식 수행 변수에 컬렉션의 첫번째 값 대입 명령문을 한번 수행할 때마다 변수에 컬렉션의 다음 값 대입 더 이상 컬렉션에 값이 없으면 반복 종료 For Each 변수 In 컬렉션(배열)_이름 <명령문> Next [변수] 예제로 배우는 Visual Basic 6.0

For Each … Next 예 For문을 이용하여 배열에 데이터 저장 후 For 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 예제로 배우는 Visual Basic 6.0

Do … Loop 조건이 만족하는 동안 또는 만족할 때까지 반복 Until While 만족할 때까지 반복 현재 조건이 만족하는 동안 반복 컵이 가득 채워질때까지 계속 따라야지~~ 컵이 비어있는 한(동안) 계속 따라야지~~ 예제로 배우는 Visual Basic 6.0

Do … Loop 형식 조건 확인 후 실행 실행 후 조건 확인 Do {While 또는 Until} 조건식 <명령문> Loop {While 또는 Until} 조건식 예제로 배우는 Visual Basic 6.0

Do … Loop 예 1부터 100까지의 3의 배수의 합(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 예제로 배우는 Visual Basic 6.0

Do … Loop 예 1부터 100까지의 3의 배수의 합(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 예제로 배우는 Visual Basic 6.0

While … Wend Do … Loop에 While을 이용한 경우와 유사 형식 수행 조건식이 만족하는 동안 명령문 수행 <명령문> Wend 예제로 배우는 Visual Basic 6.0

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

실습 – 폼 디자인 구구단 작성기로 익히는 반복문 기본 폼 Frame 1 TextBox 1 예제로 배우는 Visual Basic 6.0

실습 – 폼 디자인 컨트롤 배열을 이용한 옵션버튼 배치 복사 후 붙여넣기 하면 OptionButton1 Caption:2 이름:optNumber 요런 경고 메시지 예(Y)~! 나머지 4 ~ 9단은 경고없이 붙여넣기 수행 예제로 배우는 Visual Basic 6.0

실습 – 폼 디자인 컨트롤 배열 복수개의 컨트롤이 동일한 이름을 갖는 구조 컨트롤 각각을 구분하기 위해 인덱스 사용 예제로 배우는 Visual Basic 6.0

실습 – 속성 설정 컨트롤 이름 주요 속성 Form frmMultip Caption = 구구단 작성기 Frame1 framNum Capton = 9 × 9단 TextBox1 txtResult Text = "" MultiLine = True ScrollBars = 3-양방향 OptionButton 1~8 optNumber Index 0~7 예제로 배우는 Visual Basic 6.0

이름이 OptNumber라는 컨트롤 배열 중 현재 클릭된 컨트롤의 첨자 실습 – 코드 작성 옵션버튼(optNumber) 클릭 이벤트 이름이 OptNumber라는 컨트롤 배열 중 현재 클릭된 컨트롤의 첨자 예제로 배우는 Visual Basic 6.0

실습 - 코드 작성 옵션버튼의 Index값과 Caption값 관계 구구단의 패턴 Caption Index 2단 3단 1 4단 3단 1 4단 2 5단 3 6단 4 7단 5 8단 6 9단 7 구구단의 패턴 2 × 1 = 2 2 × 2 = 4 2 × 3 = 6 2 × 4 = 8 2 × 5 = 10 2 × 6 = 12 2 × 7 = 14 2 × 8 = 16 2 × 9 = 18 (Index + 2) × (반복문의 변수) = 곱한 값 예제로 배우는 Visual Basic 6.0

실습 – 코드 작성 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 예제로 배우는 Visual Basic 6.0

실습 – 실행 Click~! 결과 확인 예제로 배우는 Visual Basic 6.0

요약 반복문 For … Next For Each … Next Do … Loop While … Wend 컨트롤 배열 주어진 조건이 만족하는 동안 또는 주어진 조건이 만족할 때까지 일정 구간의 실행문을 반복 수행 For … Next 정해진 횟수만큼 명령문 또는 명령문 블록을 반복 수행 For Each … Next 배열이나 컬렉션의 크기만큼 반복 수행 Do … Loop 조건이 만족하는 동안 또는 조건이 만족할 때까지 반복 While … Wend Do while … Loop와 같음 컨트롤 배열 복수개의 컨트롤이 동일한 이름을 갖는 구조 컨트롤 각각을 구분하기 위해 인덱스 사용 예제로 배우는 Visual Basic 6.0