[حسام صبرى]

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

الادوات ملغيه

وده علشان تفهم اكثر ربنا يوفقك



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

for………..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

لاحظ الفرق في جملة for في البرنامجين السابقين وماذا تستنتج

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

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

Next

Label1.text=sum

حيث label1 هي الأداة التي سيظهر فيه الناتج على الفورم

ملاحظة لماذا لا نضع الجملة Label1.text=sum قبل next
الإجابة لأننا نريد إظهار المجموع الكلى مرة واحدة ولا نريد إظهار جمع كل تكرار
ملحوظة : فى الخطوة sum=0 ممكن متكتبش لاننا فى السطر الاول قيمة المتغيرين x , sum الابتدائية تساوى صفر كما اوضحنا سابقاً

group box فقط هى الى اثرائى