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
   126   127   128   129   130   131   132   133   134   135   136