سؤال في الأمر For ... Next
 

السلام عليكم ورحمة الله وبركاته
أرجو أن أجد إجابة لسؤالي هذا :
For r = 1 To 8 Step 2
(MsgBox (R
Next
يتوقف التكرار في الحالة السابقة عند الرقم 7
For r = 1 To 8 Step 2
Next
(MsgBox (R
يتوقف التكرار في هذه الحالة عندما تكون قيمة R = 9
فما الفرق بين الحالتين ؟؟؟
أرجو من الأخوة سرعة الرد جعله الله في ميزان حسناتكم

بمعنى آخر :

For I = 1 To 10 Step 3
(MsgBox (I
Next
قيمة I هنا = 10

for I = 1 to 10 step 3
Next
(MsgBox (I
قيمة I هنا = 13

أرجو أن أكون قد وضحت قصدي في السؤال
سؤال آخر :
على أي أساس سوف يجيب الطالب : الأول أم الثاني ؟؟

أولا ً أشكرك أستاذ أحمد جزيل الشكر على كل مجهوداتك معنا وبالمناسبة أنا أطالع الآن المحافظات التي بذلت سيادتكم فيها الكثير من الجهد في سبيل توفيرها للطلاب وكان هذا أحد أسئلتها
Dim I as Integer
dim x as single = 2.5
for I = 1 to 10 step 3
x = x * 2
Next
(MsgBox (X
لاحظ أستاذي هنا أن المطلوب هو قيمة I ولم يذكر الأمر الخاص بها قبل الأمر MsgBox ولا بعده فعلى أي أساس سوف أجيب في الامتحان
أرجو ألا أكون سببا في ازعاجك ولكنه شئ بالفعل يدعو للحيره.

[QUOTE=winter4444;4437544]بمعنى آخر :

For I = 1 To 10 Step 3
(MsgBox (I
Next
قيمة I هنا = 10

for I = 1 to 10 step 3
Next
(MsgBox (I
قيمة I هنا = 13

أرجو أن أكون قد وضحت قصدي في السؤال
سؤال آخر :
على أي أساس سوف يجيب الطالب : الأول أم الثاني ؟؟

أحسنت يا أستاذ أحمد على التوضيح
أتفق معكم
جزاكم الله خيراً

For r = 1 To 8 Step 2
(MsgBox (R
Next
يتوقف التكرار في الحالة السابقة عند الرقم 7
For r = 1 To 8 Step 2
Next
(MsgBox (R
يتوقف التكرار في هذه الحالة عندما تكون قيمة R = 9
فما الفرق بين الحالتين ؟؟؟
أرجو من الأخوة سرعة الرد جعله الله في ميزان حسناتكم
يا سيدى العزيز قيمة R فى آخر تكرار فى كلتا الحالتين هى 7
و بعد آخر تكرار و ذهاب البرنامج ل Next يتم زيادة قيمة العداد بمقدار الزيادة التى تلى Step فتكون قيمة R حينئذ 9 فلا يتم التكرار لأن قيمتها اصبحت أكمبر من End
أما ما تشير اليه عزيزنا من ارقام فليس محدد هل تعنى قيمة العداد أو ما يتم ظهوره فى مربع الرسالة فى الحالة الأولى يتم ظهور مربع رسالة فيه قيمة R 1 ثم 3 ثم 5 ثم 7 و يتوقف تنفيذ الامر الخاص بظهور مربع الرسالة حيث خرجنا من نطاق التكرار
أما فى الحالة الثانية فيظهر مربع رسالة خارج نطاق التكرار مرة واحدة فيه قيمة R بعد نهاية التكرار و هو رقم 9
أتمنى الإفادة
عاطف حسان / ميت موسى

من فضلكم اريد حل التمرين اوجد قيمة n , k , cdim n,k,c as ingagerc=6for n=1 to 6 step 2k=k+nnextif n >c thenc=c+1enf if

dim n,k,c as ingager

c=6

for n=1 to 6 step 3

k=k+n

next

if n >c then

c=c+1

enf if
اوجد قيم n c k

قيمة N = 7
قيمة K = 5
قيمة C = 7
ناتج الشرط n >c then يكون True

اولا الف شكر ليكم جميعا لكن نرجو الشرح المبسط يعنى كل قيمة جا ت منين ودة اسئلة الطالب لكن النتيجة ع طول للقيمة غير مفهومة فى بعض الامثلة السابقة

يا أستاذ هو أعطاك قيمة x = 2.5 ونوع البيانات single والتكرار اربع مرات يبقي القيم كالتالي
في المرة الأولي قيمة x= x*2 يعي 2.5 *2 =5
وفب المرة الثانية = 10
وفي المرة الثالثة = 20 وفي نهاية التكرار =40
إذا قيمة x= 40 ا . محمد رمضان مدرس حاسب ألي شكرا واريد كل ماهو جديد