سؤال للتفكير فهل من مشارك

[حامد ربيع احمد حسنين]

الى الاخ الاستاذ الفاضل سيف سالم قبل ان اعطيك الحل فهذا ماقد تعلمته منشرح استاذى الفاضل أ/ احمد قرنى اليكم الحل مع جزيل الشكر
سيتم الحل عن طريق التحويل من امر for Next الى امر Do While
x= 1
y=3
Do Whlie <=12
y=y+x
x=x+3
loop MsgBox X
وان كنت مخطئآ فالحل ستكون القيم
x=13
Y=25 وهذا ماقد تعلمته من استاذى احمد قرنى ولكنى اتطلع الى المزيد منكم وشكرآآآآآآآآآآآآآآآآآآ

[سيف سالم]

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

الى الاخ الاستاذ الفاضل سيف سالم قبل ان اعطيك الحل فهذا ماقد تعلمته منشرح استاذى الفاضل أ/ احمد قرنى اليكم الحل مع جزيل الشكر
سيتم الحل عن طريق التحويل من امر for Next الى امر Do While
x= 1
y=3
Do Whlie <=12
y=y+x
x=x+3
loop MsgBox X
وان كنت مخطئآ فالحل ستكون القيم
x=13
Y=25 وهذا ماقد تعلمته من استاذى احمد قرنى ولكنى اتطلع الى المزيد منكم وشكرآآآآآآآآآآآآآآآآآآ

الحل معروف
فقط انقل البرنامج داخل vb
وشغل فقط لا غير لن يكون كما قلت
والنتائج كما هي معلنة في listbox
ولكن كيف تم هذا