ممكن بعض الامثلة :

[medo_keshk]

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

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

المشاركة الأصلية كتبت بواسطة 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

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

[medo_keshk]

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

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

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

اولا شكرا على الرد السريع .وعندى طلب اخير فى بعض المسائل بيحط فيها قيم ويطلبها تانى شكل اللى فى كتاب المدرسة صـــ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

[El-Tantawy]

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

جزانا واياك

[awadzaza]

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