انت تسأل وجميع الاساتذة تجيب

[Dr.Noha Sami]

المشاركة الأصلية كتبت بواسطة أحـمد قرنى

- قيمة r = 1 اقل من القيمة النهائية يتم التكرار
toal =total + r بالتعويض عن قيمة total = 0 وقيمة r = 1 فتكون قيمة total = 1

- قيمة r = 3 لان العداد يزيد بمقدار 2 اقل من القيمة النهائية يتم التكرار
toal =total + r بالتعويض عن قيمة السابقة total = 1 وقيمة r = 3 فتكون قيمة total =4


- قيمة r = 5 لان العداد يزيد بمقدار 2 اقل من القيمة النهائية يتم التكرار
toal =total + r بالتعويض عن قيمة السابقة total = 4 وقيمة r = 5 فتكون قيمة total =9


- قيمة r = 7 لان العداد يزيد بمقدار 2 اقل من القيمة النهائية يتم التكرار
toal =total + r بالتعويض عن قيمة السابقة total = 9 وقيمة r = 7 فتكون قيمة total =16

- قيمة r = 9 أكبر من القيمة النهائية يتوقف التكرار

من السابق تكون القيمة النهائية r = 9 والقيمة النهائية total = 16

شكراااااااااا جدا يا استاذ احمد على اجابة حضرتك

[ماجدة عمرو]

Dim n, k, c As Integer

c = 6
For n = 1 To 6 Step 3
k = k + n
Next
If n > c Then

c = c + 1
End If

قيمة المتغير c =
ناتج N>c هو
قيمة المتغير k =

[ابو محمد 2]

المشاركة الأصلية كتبت بواسطة ماجدة عمرو

Dim n, k, c As Integer

c = 6
For n = 1 To 6 Step 3
k = k + n
Next
If n > c Then
c = c + 1
End If

قيمة المتغير c =
ناتج N>c هو

قيمة المتغير k =

وقيم المتغير n
( 1 ، 4 ، 7 )
وقيم k
( 1 ، 4 ) = ( 1+4 ) = 5
- ناتج N>c هو true لتحقق الشرط
وبالتالي
c = c + 1
6+1 = 7

اذن قيمة المتغير c = 7