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

ممكن بعض الامثلة على 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

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

اولا شكرا على الرد السريع .وعندى طلب اخير فى بعض المسائل بيحط فيها قيم ويطلبها تانى شكل اللى فى كتاب المدرسة صـــ124ــــ
اخر حاجة
السؤال اهه
قم بتتبع مجموعة الاوامر موضحا قيمة كل متغير فى كل مرة يتغير فيها:
x=4.5
for i=0 to 7 step 3
x=x*2
next
اهه ياريت توضحه وياريت كمان واحد شكلة واكون شاكر جدا ليك.

اولا شكرا على الرد السريع .وعندى طلب اخير فى بعض المسائل بيحط فيها قيم ويطلبها تانى شكل اللى فى كتاب المدرسة صـــ124ــــ
اخر حاجة
السؤال اهه
قم بتتبع مجموعة الاوامر موضحا قيمة كل متغير فى كل مرة يتغير فيها:
x=4.5
for i=0 to 7 step 3
x=x*2
next
اهه ياريت توضحه وياريت كمان واحد شكلة واكون شاكر جدا ليك.

فى البداية

x=4.5

نبدأ التكرار لما تكون 1- i=0

x=(4.5*2)=9

2- i=3

x=9*2=18


3- i=6

x=18*2=36

http://i652.photobucket.com/albums/uu248/ROOH_2009/7.gif

جزانا واياك

جزاك الله خيرا