Контролите във формата са четири Button и четири List Box.
List Box са преименувани с подходящи имена. Резултата след всяко изпълнение на съответният цикъл се записва в List Box.
В началото на кода се декларират променливите S и i , а в началото на всяка процедура те се инициализират (задават им се начални стойности).
Public Class Form1
Dim S, i As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Br As Byte
S = 0
For Br = 1 To 10
S = S + Br
lbL_For.Items.Add(S)
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
S = 0
i = 1
While i <= 10
S = S + i
i = i + 1
lbL_While.Items.Add(S)
End While
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
S = 0
i = 1
Do While i <= 10
S = S + i
i = i + 1
lbL_Do.Items.Add(S)
Loop
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
S = 0
i = 1
Do Until i > 10
S = S + i
i = i + 1
lbL_Unit.Items.Add(S)
Loop
End Sub
End Class