'--- For...Next 문으로 반복 실행하기

Option Explicit

'--- For...Next 문으로 반복 실행하기

Sub Sample014()

    Dim i As Integer

    Dim intSum As Integer

    For i = 1 To 100

        intSum = intSum + i

    Next

    MsgBox "1부터 100까지의 합: " & intSum

End Sub

'--- For...Next 문을 겹쳐 사용하기

Sub Sample015()

    Dim i As Integer, j As Integer

    Dim intNum(1 To 5, 1 To 7)

    For i = 1 To 5

        For j = 1 To 7

            intNum(i, j) = WorksheetFunction.RandBetween(100, 500)

        Next

    Next

    Sheets("Sheet2").Range("B3:H7") = intNum

End Sub

'--- For Each...Next 문으로 개체 순환하기

Sub Sample016()

    Dim rngCell As Range, strGrade As String

    For Each rngCell In Sheets("Sheet3").Range("F3:F8")

        Select Case rngCell

            Case Is >= 85: strGrade = "잘함"

            Case Is >= 70: strGrade = "보통"

            Case Else: strGrade = "노력"

        End Select

        rngCell.Offset(0, 1) = strGrade

    Next

End Sub

'--- Do While 문으로 조건을 만족하는 동안 반복

Sub Sample017()

    Dim intNo As Integer

    Sheets("Sheet4").Select

    Range("B3").Select

    intNo = 1

    Do While ActiveCell <> ""

        intNo = intNo + 1

        ActiveCell.Offset(1, 0).Select

    Loop

    ActiveCell = intNo

    ActiveCell.Offset(0, 1) = Time

    ActiveCell.Offset(0, 2) = Rnd

End Sub

'--- Do...Until 문으로 조건을 만족할 때까지 반복

Sub Sample018()

    Dim strPass As String

    Do

        strPass = InputBox("사용자 암호를 입력하세요:")

    Loop Until strPass = "12345"

End Sub