الدرس السابع
الحلقات التكرارية (LOOPS)
اليكم شرح بالصور و الاكواد
FOR................NEXT قاعدة
For X As Integer = 5 To 100 Step 5
ListBox1.Items.Add(X)
Next
شرح هذا الكود
1- (INTEGER) من نوع رقم صحيح ليس به كسر X عرفنا متغير اسمه
يبدا من 5 و ينتهي عند 100 وقيمة الزيادة 5
2- LISTBOX اضفنا هذا التكرار في عناصر ال
3- NEXT نهاية الحلقة التكرارية
5,10,15,20,25,...............100
WHILE ....END WHILE نفس المثال السابق بقاعد
الحل
Dim X As Integer = 0
While X < 100
X += 5
ListBox1.Items.Add(X)
End While
5,10,15,20,25,...............100
DO WHILE ..........LOOP نفس المثال السابق لكن بقاعدة
الحل
Dim X As Integer عرفنا متغير
X= 0 قيمة البداية
Do While X < 100 قيمة النهاية
X += 5 قيمة الزيادة
ListBox1.Items.Add(X)
Loop نهاية الحلقة التكرارية
5,10,15,20,25,...............100
DO UNTIL..........LOOP نفس المثال السابق لكن بقاعدة
هذه دالة عكسية يعني تمشي بالعكس
مثلا علامة اكبرتجعلها اصغراو تساوي
>...........................<=
علامة اصغر تجعلها اكبر او تساوي
<............................>=
الحل
Dim X As Integer = 0
Do Until X >= 100
X += 5
ListBox1.Items.Add(X)
Loop
5,10,15,20,25,...............100
DO ...................LOOP WHILE قاعدة
Dim X As Integer = 0
Do
X += 5
ListBox1.Items.Add(X)
Loop While X < 100
5,10,15,20,25,...............100
جميع الامثلة السابقة لها نفس النتيجة
:. وهذه نتيجة الامثلة السابقة في الصورة التالية
ليست هناك تعليقات:
إرسال تعليق