1. PĘTLA DO LOOP UNTIL ZMIANA NA PĘTLE FOR NEXT TO

Pętla, która jest podana czyli DO LOOP UNTIL	Pętla po zamienieniu na FOR
Function ZADANIE (X1, X2 As Integer) As Integer Dim ... Dim ... Dim … i=1 Do If Cells (i,3) <> 0 Then Suma = suma +1 End if i=i+1 Loop Until (i<= ile_liczb) End Function	Function ZADANIE (X1, X2 As Integer) As Integer Dim ... Dim ... Dim … For i=1 To ile_liczb If Cells (i,3) <> 0 Then Suma = suma +1 End if Next i End Function

1. ZAMIANA PĘTLI FOR NA PĘTLE DO LOOP UNTIL/WHILE

Pętla, która jest podana czyli FOR	Pętla po zamienieniu na DO LOOP UNTIL/WHILE
Sub Przykład () Const max_w=12 Dim suma As Integer Dim w As Byte Suma = 0 For w=1 To max_w Suma + Cells(w,4).Value Next w . . . End Sub	Sub Przykład () Const max_w=12 Dim suma As Integer Dim w As Byte Suma = 0 w=1 Do Suma + Cells(w,4).Value w=w+1 Loop Until (w > max_w) While (w <= max_w) End Sub

1. ZAMIANA PĘTLI WHILE NA PĘTLE FOR

Pętla, która jest podana czyli WHILE	Pętla po zamienieniu na FOR
Function IleDodatnich(L1, L2 As Integer)As Integer Dim t As Integer t=4 Do While (t < -3) If (Cells(t,3) >0) Then IleDodatnich = IleDodatnich +1 End If t=t+1 End if Loop End Function	Function IleDodatnich(L1, L2 As Integer)As Integer Dim t As Integer For t=4 To -3 If (Cells(t,3) >0) Then IleDodatnich = IleDodatnich +1 End If Next t End Function

1. ZAMIANA PĘTLI FOR NA PĘTLE WHILE WEND

Pętla, która jest podana czyli FOR	Pętla po zamienieniu na WHILE WEND
Function IleDodatnich(k, wp,wk As Integer)As Integer Dim i As Integer IleDodatnich = 0 For i=wp To wk If Cells(i,k) >0 Then IleDodatnich = IleDodatnich +1 End If Next i End Function	Function IleDodatnich(k, wp,wk As Integer)As Integer Dim i As Integer IleDodatnich = 0 i=wp While i <= wk If Cells(i,k) >0 Then IleDodatnich = IleDodatnich +1 End If i = i+1 Wend End Function