สามารถทำได้ดังนี้
1.1 ออกแบบหน้าจอ ง่าย ๆ โดย นำ Label , Button มาวางไว้บนฟอร์ม อย่าง ละ 1 อัน
1.2 เขียนคำสั่งในปุ่ม Button1 ดังนี้

1.3.1 เขียนแบบ For... Loop

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

      Dim sum As Int32
      Dim i As Int16
      For i = 1 To 100
            sum += i
      Next i      
      Label1.Text = sum

End Sub

1.3.2 เขียนแบบ While... End While

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       Dim sum As Int32
       Dim i As Int16
       While i <= 100
              sum += i
              i += 1
       End While
       Label1.Text = sum

End Sub

1.3.3 เขียนแบบ Do While... Loop

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       Dim sum As Int32
       Dim i As Int16
       Do While i <= 100
              sum += i
              i += 1
       Loop
       Label1.Text = sum

End Sub

สามารถทำได้ดังนี้
2.1 ออกแบบหน้าจอ ง่าย ๆ โดย นำ Label , Button มาวางไว้บนฟอร์ม อย่าง ละ 1 อัน
2.2 เขียนคำสั่งในปุ่ม Button1 ดังนี้

2.3.1 เขียนแบบ For... Loop

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

      Dim sum As Int32
      Dim i As Int16
      For i = 1 To 100 Step 2
            sum += i
      Next i      
      Label1.Text = sum

End Sub

2.3.2 เขียนแบบ While... End While

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       Dim sum As Int32
       Dim i As Int16=1
       While i <= 100
              sum += i
              i += 2
       End While
       Label1.Text = sum

End Sub

2.3.3 เขียนแบบ Do While... Loop

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       Dim sum As Int32
       Dim i As Int16=1
       Do While i <= 100
              sum += i
              i += 2
       Loop
       Label1.Text = sum

End Sub

สามารถทำได้ดังนี้้
3.1 ออกแบบหน้าจอ ง่าย ๆ โดย นำ Label , Button มาวางไว้บนฟอร์ม อย่าง ละ 1 อัน
3.2 เขียนคำสั่งในปุ่ม Button1 ดังนี้

3.3.1 เขียนแบบ For... Loop

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

      Dim sum As Int32
      Dim i As Int16
      For i = 2 To 100 Step 2
            sum += i
      Next i      
      Label1.Text = sum

End Sub

3.3.2 เขียนแบบ While... End While

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       Dim sum As Int32
       Dim i As Int16=2
       While i <= 100
              sum += i
              i += 2
       End While
       Label1.Text = sum

End Sub

3.3.3 เขียนแบบ Do While... Loop

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       Dim sum As Int32
       Dim i As Int16=2
       Do While i <= 100
              sum += i
              i += 2
       Loop
       Label1.Text = sum

End Sub