أسئلة مشابهة للسؤال الثالث رقم 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