Page 131 - TCS ICT Book 8
P. 131
The City School 2021-2022
For Loop
Public Class Form1
Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles btnCalculate.Click Appendix
Dim i As Integer
Dim sum As Integer
sum = 0
For i = 1 To 50
sum = sum + i
Next
lblResult.Text = sum
End Sub
End Class
Do...Next Loop
Public Class Form1
Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles btnCalculate.Click
Dim i As Integer
Dim sum As Integer
i = 0
sum = 0
Do While sum < 500
i = i + 1
sum = sum + i
lstResult.Items.Add(i & vbTab & sum)
Loop
End Sub
End Class
131
