كيفية القيام بما يلي: تشغيل عدة بيانات بشكل متكرر

يمكنك استخدام بنيات تكرار حلقي لتشغيل كتلة من عبارات بشكل متكرر. يمكن تشغيل الحلقة معرفة رقم مرات اعتماداً على Boolean قيمة الشرط أو مجموعة رقم من المرات يتم التحكم فيها بواسطة متغير خاصة.

تنفيذ الحلقات معرفة رقم من الأوقات

لتشغيل مجموعة من عبارات طالما الشرط صواب

• استخدام كشف While...End While (Visual Basic) لتعيين الشرط الذي يتحكم تكرار تكرار حلقي. تكرار المثال التالي حظر كشف يتماثل طولnumber أكبر من 6.

  Sub checkWhile()
      Dim counter As Integer = 0
      Dim number As Integer = 10
      While number > 6
          number -= 1
          counter += 1
      End While
      MsgBox("The loop ran " & counter & " times.")
  End Sub
  

  عبارة While دوماً يتحقق من الشرط قبل أن تبدأ التكرار الحلقي. لو number قد تتم تهيئة 6 بدلاً من 10، العبارات داخل تكرار حلقي تشغيل أبداً.

لتشغيل تبقى مجموعة من عبارات أثناء الشرط صواب

• استخدام كشف Do...التكرار الحلقي (Visual Basic) حدد الشرط الاختبار في البداية أو الإنهاء تكرار حلقي. الموضع While تحديد كلمة أساسية أين اختبار الشرط. فيما يلي مثال يوضّح ذلك.

  Sub checkWhileFirst()
      Dim counter As Integer = 0
      Dim number As Integer = 10
      Do While number > 6
          number -= 1
          counter += 1
      Loop
      MsgBox("The loop ran " & counter & " times.")
  End Sub
  Sub checkWhileLast()
      Dim counter As Integer = 0
      Dim number As Integer = 5
      Do
          number -= 1
          counter += 1
      Loop While number > 6
      MsgBox("The loop ran " & counter & " times.")
  End Sub
  

  في المثال السابق، أول Do تكرار حلقي يعمل أربع مرات الثاني Do تكرار حلقي يتم تشغيلها مرة واحدة.

لتشغيل مجموعة من عبارات حتى يصبح الشرط صواب

• استخدام Do... Loop بناء مع Until كلمة أساسية بدلاً من While. الموضع While تحديد كلمة أساسية أين اختبار الشرط. فيما يلي مثال يوضّح ذلك.

  Sub checkUntilFirst()
      Dim counter As Integer = 0
      Dim number As Integer = 20
      Do Until number = 15
          number -= 1
          counter += 1
      Loop
      MsgBox("The loop ran " & counter & " times.")
  End Sub
  Sub checkUntilLast()
      Dim counter As Integer = 0
      Dim number As Integer = 20
      Do
          number -= 1
          counter += 1
      Loop Until number = 15
      MsgBox("The loop ran " & counter & " times.")
  End Sub
  

  في المثال السابق، لكل Do تكرار حلقي تشغيل خمس مرات.

تنفيذ الحلقات مجموعة رقم من الأوقات

While أو Do تعمل جيداً إذا كنت لا تعرف مسبقاً عدد المرات التي تحتاج أن تنفذ العبارات في التكرار الحلقي. مع ذلك، عندما تتوقع عدد معين من المرات لتنفيذ التكرار الحلقي، التكرار الحلقي عبارة Visual Basic) For...Next)... هو خيار أفضل. بعكس While أو Do تكرار حلقي, For... Next تنفيذ تكرار حلقي مستمرة يستخدم متغير عنصر تحكم زيادة أو إنقاص في القيمة أثناء كل تكرار من الحلقة.

لبتشغيل مجموعة من عبارات عدد معين من المرات

1. تحديد قيم البداية والنهاية متغير عنصر تحكم واستخدام عبارة For إلى تحديدها.

   For i As Integer = 1 To 10
   

   إذا لم يتم التصريح عن متغير العنصر خارج الحلقة يمكنك استخدام جملة As لتعريفها كجزء من كشف For.

2. استخدم الكلمة الأساسية Step لزيادة مقدار متغير عنصر التحكم للإشارة إلى كل تكرار. هذا يزيد بمقدار 1 إلا في حال تعيين خلاف ذلك. يؤدي متغير عنصر تحكم إلى تقليل استخدام القيمة سالبة.

   For i As Integer = 10 To 1 Step -1
   

3. قم بـإكمالFor... Next الإنشاء باستخدام كشف Next الذي يلي الكشف الأخير ليتم تكرارها. يمكنك تعيين متغير العنصر في عبارة Next.

   Function addBackward(ByVal highest As Integer) As Integer
       Dim total As Integer = 0
       For i As Integer = highest To 1 Step -1
           total += i
       Next i
       Return total
   End Function
   

   يرجع المثال السابق مجموع الأعداد الصحيحة من 1 إلى القيمة تم تمريرها إلى معلمة highest.

راجع أيضًا:

المهام

كيفية القيام بما يلي: نقل عنصر تحكم خارج بنية عنصر تحكم

كيفية القيام بما يلي: تشغيل عدة كشوف لكل عنصر في مجموعة أو صفيف

كيفية القيام بما يلي: تحسين أداء التكرار الحلقي

كيفية القيام بما يلي: الذهاب إلى التكرار التالي من الحلقة

المرجع

عبارة Visual Basic) For Each...Next)

المبادئ

بنيات القرار

بنيات التكرار الحلقي

بنيات التحكم الأخرى

بنيات التحكم المتداخلة

موارد أخرى

عنصر تحكم التدفق في Visual Basic