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

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

학습목표 • 반복문에 대해서 안다. • 컨트롤 배열에 대해서 안다. 예제로 배우는 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에 3로 초기화시키고 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 Do <명령문> 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 ' 두 개의 문장을 한 행에 쓸때는 “:”로 구분 DoUntil 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 DoWhile 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을 이용한 경우와 유사 • 형식 • 수행 • 조건식이 만족하는 동안 명령문 수행 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

실습 –속성 설정 예제로 배우는 Visual Basic 6.0

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

실습 - 코드 작성 • 옵션버튼의 Index값과 Caption값 관계 • 구구단의 패턴 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

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