• For depNum = 1 To 5
• lblDept(depNum).Text = "Department
" & depNum
• txtDept(depNum).Clear()
• Next
•End
Sub
•Private
Sub btnCompute_Click(...)
• Handles btnCompute.Click
• Dim totalSales As Double = 0
• Dim depNum As Integer
• For depNum = 1 To 5
• totalSales += CDbl(txtDept(depNum).Text)
• Next
• txtTotal.Text =
FormatCurrency(totalSales)
•End
Sub