PowerPoint presentation for these examples is loopsintro

Repeatmsg project

Public Class frmRepeatMsg

Inherits System.Windows.Forms.Form

Private Sub btnProcess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProcess.Click

Dim ct As Integer = 1

Do While ct <= 15

lstMsg.Items.Add("This is week " & ct & " of the semester")

ct = ct + 1

Loop

End Sub

Private Sub btnEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnd.Click

End

End Sub

End Class

RepeatPostTest Project

Public Class frmRepeatMsg

Inherits System.Windows.Forms.Form

Private Sub btnProcess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProcess.Click

Dim ct As Integer = 16

Do

lstMsg.Items.Add("This is week " & ct & " of the semester")

ct = ct + 1

Loop While ct <= 15

End Sub

Private Sub btnEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnd.Click

End

End Sub

End Class

DoWhile project

Public Class frmDoWhile

Inherits System.Windows.Forms.Form

Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click

REM up to 1 lb costs $1.50

REM over 1 lb costs $1.50 plus $.50 for every additional 4 oz

Const cstFirstLb As Single = 1.5

Const cstEvery4oz As Single = 0.5

Dim wrkWeight As Integer

Dim wrkCost As Single

wrkWeight = Val(txtLb.Text) * 16 + Val(txtOz.Text)

If wrkWeight < 17 Then

wrkCost = cstFirstLb

Else

wrkWeight = wrkWeight - 16

wrkCost = cstFirstLb

Do While wrkWeight > 0

wrkCost = wrkCost + cstEvery4oz

wrkWeight = wrkWeight - 4

Loop

End If

txtAmtDue.Text = Format(wrkCost, "Currency")

End Sub

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click

txtName.Clear()

txtStAdr.Clear()

txtCSZ.Clear()

txtLb.Clear()

txtOz.Clear()

txtAmtDue.Clear()

End Sub

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

End

End Sub

End Class

Repeatuntil project

Public Class frmRepeatUntil

Inherits System.Windows.Forms.Form

Private Sub btnProcess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProcess.Click

Dim ct As Integer = 16

Do Until ct > 15

lstMsg.Items.Add("This is week " & ct & " of the semester")

ct = ct + 1

Loop

End Sub

Private Sub btnEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnd.Click

End

End Sub

End Class

Repeatuntilpost project

Public Class frmRepeatUntilPost

Inherits System.Windows.Forms.Form

Private Sub btnProcess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProcess.Click

Dim ct As Integer = 16

Do

lstMsg.Items.Add("This is week " & ct & " of the semester")

ct = ct + 1

Loop Until ct > 15

End Sub

Private Sub btnEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnd.Click

End

End Sub

End Class

DoUntil project

Public Class frmDoUntil

Inherits System.Windows.Forms.Form

Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click

REM up to 1 lb costs $1.50

REM over 1 lb costs $1.50 plus $.50 for every additional 4 oz

Const cstFirstLb As Single = 1.5

Const cstEvery4oz As Single = 0.5

Dim wrkWeight As Integer

Dim wrkCost As Single

wrkWeight = Val(txtLb.Text) * 16 + Val(txtOz.Text)

If wrkWeight < 17 Then

wrkCost = cstFirstLb

Else

wrkWeight = wrkWeight - 16

wrkCost = cstFirstLb

Do Until wrkWeight <= 0

wrkCost = wrkCost + cstEvery4oz

wrkWeight = wrkWeight - 4

Loop

End If

txtAmtDue.Text = Format(wrkCost, "Currency")

End Sub

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click

txtName.Clear()

txtStAdr.Clear()

txtCSZ.Clear()

txtLb.Clear()

txtOz.Clear()

txtAmtDue.Clear()

End Sub

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

End

End Sub

End Class

ForNext1 Project

Public Class frmForNext1

Inherits System.Windows.Forms.Form

Private Sub btnEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnd.Click

End

End Sub

Private Sub btnProcess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProcess.Click

Dim wkFirstNum As Integer = 1

Dim wkSecondNum As Integer

Dim wkResult As Integer

Dim wkToShow As String

For wkSecondNum = 1 To 10

wkResult = wkFirstNum + wkSecondNum

wkToShow = wkFirstNum & " + " & wkSecondNum & " = " & wkResult

lstMathFacts.Items.Add(wkToShow)

Next

'For wkSecondNum = 1 To 10 Step 1

' wkResult = wkFirstNum + wkSecondNum

' wkToShow = wkFirstNum & " + " & wkSecondNum & " = " & wkResult

' lstMathFacts.Items.Add(wkToShow)

'Next wkSecondNum

End Sub

End Class

ForNext2 Project

Public Class frmForNext2

Inherits System.Windows.Forms.Form

Private Sub btnEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnd.Click

End

End Sub

Private Sub btnProcess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProcess.Click

Dim wkFirstNum As Integer

Dim wkSecondNum As Integer

Dim wkResult As Integer

Dim wkToShow As String

For wkFirstNum = 1 To 5

For wkSecondNum = 1 To 5

wkResult = wkFirstNum + wkSecondNum

wkToShow = wkFirstNum & " + " & wkSecondNum & " = " & wkResult

lstMathFacts.Items.Add(wkToShow)

Next

Next

End Sub

End Class

Forsteps project

Public Class frmForSteps

Inherits System.Windows.Forms.Form

Private Sub btnEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnd.Click

End

End Sub

Private Sub btnProcess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProcess.Click

Dim wkFirstNum As Integer

Dim wkSecondNum As Integer

Dim wkResult As Integer

Dim wkToShow As String

Dim wkStart As Integer = 2

Dim wkEnd As Integer = 10

Dim wkIncrement As Integer = 2

For wkFirstNum = wkStart To wkEnd Step wkIncrement

For wkSecondNum = wkStart To wkEnd Step wkIncrement

wkResult = wkFirstNum + wkSecondNum

wkToShow = wkFirstNum & " + " & wkSecondNum & " = " & wkResult

lstMathFacts.Items.Add(wkToShow)

Next

Next

End Sub

End Class