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

[Dr.Noha Sami]

Dim R as integer
Dim Total as integer
For R=1 to 8 step 2
Total =total +R
Next
Msg box (total)
اكتب القيمه النهائيه للمتغير total

[أحـمد قرنى]

المشاركة الأصلية كتبت بواسطة صفا2010

Dim R as integer
Dim Total as integer
For R=1 to 8 step 2
Total =total +R
Next
Msg box (total)
اكتب القيمه النهائيه للمتغير total

- قيمة 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

[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