
20-05-2012, 07:44 AM
|
 |
معلم الحاسب الآلى
|
|
تاريخ التسجيل: Jan 2009
المشاركات: 14,295
معدل تقييم المستوى: 31
|
|
اقتباس:
المشاركة الأصلية كتبت بواسطة esraa ali 2100
انا على حد فهمى فى ال For ... Next فهمت شيئان
1- ان عند وضع مثلاً
Dim x , D As integer
X = 4
For c = 0 To 7 Step 3
X = X*2
Next
MsgBox (x) انه وضع الشرط For لتحديد عدد المرات التى سوف يتم فيا تكرار عملية ايجاد قيمة x
1- هنوجد عدد مرات التكرار هتكون {0 . 3 . 7} و السبعة موجده لانه فى مجال التكرار (0to 7)
2- نبدأ فى حساب قيمة x على اساس عدد مرات التكرار
1 - x = 4*2 : x= 8
2- x = 8 *2 : x = 16
3- x = 16 * 2 : x = 32
فى العمليات السابقة قمنا بالتعويض عن الناتج الذى يظهر كل مرة و عددة مرات التعويض ينتج من 32
هذا صحيح ام لا
|
هذا الكلام مظبوط في قيمة X ولكن يوجد خطأ بسيط في قيمة العداد الذي يعد مرات التكرار وهو C حيث ان
C = 0 , 3 , 6 , 9
وبالطبع سيتوقف التكرار عن القيمة 9 لأنها ستصبح أكبر من قيمة End اللي هي 7 وبالتالي عدد مرات التكرار 3 عندما تكون C = 0 , 3 , 6
وبناء عليه تتكرر الجملة X = X * 2 ثلاث مرات حيث ان
X = 4 * 2 = 8
X = 8 * 2 = 16
X = 16 * 2 = 32
__________________
يارب ارفع عنَّا وعن مصر الفتن ما ظهر منها وما بطن واحفظ بلاد المسلمين من كل شر وسوء يا أرحم الراحمين
|