Liczy wszystkie liczby parzyste, do danej przez nas.
'zastosowanie w podanym przypadku pętli FOR
Private Sub Start_Click()
Dim a, x As Integer
For a = 0 To CInt(txtLiczba) Step 2
x = x + a
Next
lblWynik.Caption = x
End Sub
'zastosowanie pętli do while
Private Sub start2_Click()
Dim L, S, M As Integer
Const krok As Integer = 2
M = CInt(Val(txtLiczba))
S = 0
L = 0
Do While L <= M
S = S + L
L = L + krok
Loop
lblWynik.Caption = S
End Sub
