' Basic Programming
' Ch. 5 Demo Program #4
' Written by Mr. Minich
' purpose - to illustrate the difference between For/Next and Do/While loops

Option Explicit

Private Sub cmdDoWhile_Click()

    Dim J As Integer       ' loop variable
    Dim intSum As Integer  ' sum  of consecutive integers

    Do  
        J = J + 1
        intSum = intSum + J   ' accumulator statement
    Loop While (J < txtUserInput.Text)

    lblDoWhileSum.Caption = Sum
End Sub

Private Sub cmdForNext_Click()

    Dim J As Integer       ' loop variable
    Dim intSum As Integer  ' sum  of consecutive integers

    For J = 1 To 10     
        intSum = intSum + J   ' accumulator statement
    Next J

    lblForNextSum.Caption = Sum
End Sub