[الأستاذة / أم أمل]

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

ممكن بعض الامثلة على do while ----------loop و for-----------next
وكيفية التحويل بينهما . واذا جائت فى الامتحان فما سيكون شكلها,

do while ----------loop ملغية (إثرائى)

وبالتالى التحويل بينهم غير مقرر

أما for…………..next


أمثلة
قم بطباعة الأعداد من 1 إلى 5 باستخدام for…………..next
تصميم الواجهة كما سبق في المثال السابق
ولكن كتابة الكود بالشكل
Dim x as integer
For x= 1 to 5
Msgbox(x)
Next

مثال : قم بطباعة الأعداد الفردية من 1 إلى 5

Dim x as integer
For x = 1 to 5 step 2
Msgbox(x)
Next

قم بطباعة الأعداد الفردية من 5 إلى 1

Dim x as integer
For x = 5 to 1 step -2
Msgbox(x)

Next

قم بجمع الأعداد من 1 إلى 10

Dim x , sum as integer
Sum=0
For x = 1 to 10
sum=sum +x

Next

Label1.text=sum

قم بطباعة الأعدادالزوجيةمن 0 إلى 10

Dim x as integer
For x = 0 to 10 step 2
Msgbox(x)

next

لو فيه اى سؤال اتفضل