إجمالي مرات مشاهدة الصفحة

الأربعاء، 20 أبريل 2016

جدول الضرب بالحلقات التكرارية المتداخلة Multiplication Table Using Nested Loops

السلام عليكم ورحمة الله وبركاته

أقدم لكم كود يقوم بإنشاء جدول الضرب باستخدام الحلقات التكرارية المتداخلة ، وهذا الكود يوضح أهمية تعلم استخدام الحلقات التكرارية ومدى قوتها.

إليكم الكود الذي يؤدي المطلوب :

Sub MultiplicationTable()
    Dim I As Byte, II As Byte
    
    With Sheets("Sheet1")
        For I = 1 To 12
            For II = 1 To 12
                .Cells(I, II) = I & "*" & II & "=" & I * II
            Next II
        Next I
    End With
End Sub

وهذه صورة من الناتج بعد تنفيذ الكود :

إعداد / ياسر خليل أبو البراء

هناك تعليقان (2):

  1. روعة ... وفقك الله للطاعات

    ردحذف
  2. جزاك الله كل خير ومشكور على مرورك الكريم

    ردحذف