Loops VBA

1*****************************************************
Sub Example()
    For i = 1 To 100
        Debug.Print i
    Next i

End Sub

2*****************************************************

Sub Example()
    Dim text As String
    text = Range("A1")
    Dim length, sum As Integer
    length = Len(text)

    For i = 1 To length
        Dim letter As String
        letter = Mid(text, i, 1)

        Debug.Print letter
    Next i

End Sub
3*****************************************************

Sub Example()
    Dim text As String
    text = Range("A1")
    Dim length, sum As Integer
    length = Len(text)

    For num = 1 To length
        Dim letter As String
        letter = Mid(text, num, 1)
        Select Case letter
            Case "a"
                sum = sum + 1
            Case "e"
                sum = sum + 2
            Case "i"
                sum = sum + 3
            Case "o"
                sum = sum + 4
            Case "u"
                sum = sum + 5

        End Select

        Debug.Print letter
    Next num

    Debug.Print sum
End Sub
4*****************************************************

Sub Example()
    Dim n As Integer
    n = Range("A1")

    Dim sum As Double

    For i = 1 To n
        Dim number As Double
        number = Range("B" & i)

        sum = sum + number
    Next i

    Debug.Print sum

End Sub

5*****************************************************
Sub Example()
    For i = 1 To 1000
        If i Mod 10 = 7 Then
            Debug.Print i
        End If
    Next i

End Sub

6*****************************************************
Sub Example()
    Dim n As Integer
    n = Range("A1")

    Dim oddSum, evenSum As Double

    For i = 1 To n
        Dim number As Double
        number = Range("B" & i)

        If i Mod 2 = 0 Then
            evenSum = evenSum + number
        Else
            oddSum = oddSum + number
        End If
    Next i

    Debug.Print "Odd Sum = " & oddSum
    Debug.Print "Even Sum = " & evenSum

End Sub

7*****************************************************

Sub Example()
    Dim n As Integer
    n = Range("A1")

    For i = n To 1 Step -1
        Debug.Print i
    Next i

End Sub

8*****************************************************
Sub Example()
    Dim n As Integer
    n = Range("A1")

    Dim p1, p2, p3 As Double

    For i = 1 To n
        Dim number As Double
        number = Range("B" & i)

        If number Mod 2 = 0 Then
            p1 = p1 + 1
        End If
        If number Mod 3 = 0 Then
            p2 = p2 + 1
        End If
        If number Mod 4 = 0 Then
            p3 = p3 + 1
        End If
    Next i

    Debug.Print p1 / n * 100 & "%"
    Debug.Print p2 / n * 100 & "%"
    Debug.Print p3 / n * 100 & "%"

End Sub

9*****************************************************
Sub Example()
    Dim n, salary As Integer
    n = Range("A1")
    salary = Range("A2")

    For i = 1 To n
        Dim inputLine As String
        inputLine = Range("B" & i)

        Select Case inputLine
            Case "Facebook"
                salary = salary - 150
            Case "Instagram"
                salary = salary - 100
            Case "Reddit"
                salary = salary - 50

        End Select

        If salary <= 0 Then
            Exit For
        End If

    Next i

    Debug.Print salary

End Sub