Instructiunea repetitiva For . Next (pentruurmatorul)

Instructiunea repetitiva For . Next (pentruurmatorul)

Instructiunea For .. Next are urmatoarea sintaxa :

For contor = val1 To val2

Bloc_instructiuni

Next

unde contor, val1, val2 sunt toate de acelasi tip. Aceasta instructiune realizeaza executarea Bloc_instructiuni de val2 - val1 ori; instructiunea are astfel un numar cunoscut de repetari.

Observatie

val2 trebuie sa fie mai mare decat val1 pentru ca instructiunea sa se execute; daca val2 este mai mic decat val1 atunci Bloc_instructiuni nu se va executa.

Exemplu 1

Dim i as Integer , k as Integer

Dim m as Long

Private Sub CommandButton1_Click()

k = 0

m = 0

For i = 1 To 5

k = k +1

m = m+i

Next

End Sub

Aceasta secventa de cod se executa de cinci ori astfel : prima executie face k = 1 si m = 0 + 1;

a doua executie face k = 2 si m = 1 + 2; a treia executie face k = 3 si m = 3 +3; a patra executie face k = 4 si m = 3 + 4; a cincea executie face k = 5 si m = 7 + 5.

Pentru al doilea exemplu se va folosi o variabila de tipul de date sir (array). O variabila array este o variabila ce poate stoca mai multe valori de acelasi tip. Declararea array se face dupa sintaxa:

Dim NumeSir(numar elemente) As Tip

Exemplu 2 

Dim I As Integer

Dim sir(10) As Integer

Private Sub CommandButton1_Click()

For I = 0 To 9

sir(I) = Cells(I + 1, "A").Value

Next I

For I = 0 To 9

Cells(I + 1, "B").Value = sir(I)^2

Next I

End Sub

Aceasta secventa de cod insereaza valorile primelor zece randuri ale coloanei A intr-un sir, iar apoi plaseaza patratul acestor valori in primele zece randuri ale coloanei B.

TEMA: Depanare cu F8.

-Sa se introduca de la tastatura k si m (Text Box)

-Sa se afiseze valorile lui k si m pe doua coloane.

-Sa se puna un buton pe foaia de calcul care sa faca patratul val lui k si sa le afiseze in col B