طلبات الأعضاء للعام الدراسي 2012-2013

[hassanalhawy]

أسئلة مشابهة للسؤال الثالث رقم 3 فى الفصل الثالث بالكتاب

        Dim r, sum As Integer
        For r = 5 To 10 Step -1
            sum = sum + r
        Next
        MsgBox(r)
        MsgBox(sum)

الإجابة : r=5 و sum=0

        Dim r, sum As Integer
        For r = 10 To 5 Step 1
            sum = sum + r
        Next
        MsgBox(r)
        MsgBox(sum)

الإجابة : r=10 و sum=0

        Dim r, sum As Integer
        For r = 5 To 10 Step 0
            sum = sum + r
        Next
        MsgBox(r)
        MsgBox(sum)

الإجابة : يحدث خطأ من نوع Overflow بسبب السطر sum = sum + r حيث يتم تكرار الحلقة إلى مالا نهاية

        Dim r, sum As Integer
        For r = 10 To 5 Step 0
            sum = sum + r
        Next
        MsgBox(r)
        MsgBox(sum)

الإجابة : r=10 و sum=0

        Dim r, sum As Integer
        For r = 5 To 10 Step 0
            MsgBox(r)
        Next
        MsgBox(r)
        MsgBox(sum)

الإجابة : يحدث تكرار للحلقة التكرارية إلى مالا نهاية وسيتم تكرار الأمر MsgBox( r ) الأولى بقيمة 5 إلى مالا نهاية

        Dim r, sum As Integer
        For r = 10 To 5 Step 0
            MsgBox(r)
        Next
        MsgBox(r)
        MsgBox(sum)

الإجابة : r=10 و sum=0 حيث لن يتم تنفيذ الأوامر التى بداخل الحلقة التكرارية بتاتاً وسيتم الإنتقال إلى الأوامر التى تلى Next فيظهر صندوقى رسالة بـ r=10 و sum=0