آموزش حلقه

[reza850101]

باسلام
دوستان من در مورد حلقه مطلب و اطلاعات میخوام خصوصا تودرتوش
اگر ممکنه مفصل وبامثال همراه باشه اگر هم فایل یالینکی هست ممنون میشه پیوست کنید

[sarami]

Dim Check, Counter
Check = True: Counter = 0 ' Initialize variables.
Do ' Outer loop.
Do While Counter < 20 ' Inner loop.
Counter = Counter + 1 ' Increment Counter.
If Counter = 10 Then ' If condition is True.
Check = False ' Set value of flag to False.
Exit Do ' Exit inner loop.
End If
Loop
Loop Until Check = False ' Exit outer loop immediately.

[reza850101]

اگر ممکنه نمونه ای بزارید که عینی تر باشد
--------------------
اگر ممکنه نمونه ای بزارید که عینی تر باشد