A for-next és a Do-loop ciklusok

A ciklusokra vonatkozó kísérlet célja a különböző ciklus típusok alkalmazási területének vizsgálata, valamint a ciklusmag végrehajtási idejének vizsgálata.
A kísérlet előfeltétele, hogy a számítógépen legyen Visual Basic program telepítve.
Hozzon létre olyan programot, amely az első százezer egész szám összegét számolja ki! A feladatot a számláló és az elől tesztelő ciklus segítségével kell megoldania.
A számláló ciklus esetében két változót kell deklarálni: egy ciklusváltozót és egy változót, amelyben az összeget gyűjtjük. A ciklusmagba kerül az összeg növelésére vonatkozó utasítás. Az űrlapra az eredményt egy Label felirat mezőbe helyezzük el.
A számláló ciklus kódja:

Private Sub Form_Load()
Dim i As Single, s As Double
S=0
For i = To 100000
S = s + i
Next i
Label2 = s
End Sub

Elöl tesztelő ciklus esetében két változót kell deklarálni: egy ciklusváltozót és egy változót, amelyben az összeget gyűjtjük. A ciklusváltozó egyről indul. A ciklus kilépési feltétele, hogy a ciklusváltozó meghaladja a felső határértéket. A ciklusmagba kerül az összeg növelésére vonatkozó utasítás, valamint a ciklusváltozó léptetésére vonatkozó utasítás. Az űrlapra az eredményt egy Label felirat mezőbe helyezzük el.
Az elöl tesztelő ciklus kódja:

Private Sub Form_Load()
Dim i As Single, s As Double
S=0
Do While i 100000
S=s + i
I = i + 1
Loop
Label2 = s
End Sub

Abban az esetben, amikor előre ismert a ciklus lépésszáma, célszerűbb a számláló ciklust alkalmazni, mert kevesebb a hiba lehetősége, illetve ritkább a végtelen ciklus.

Előltesztelő ciklus