#5
|
||||
|
||||
![]() مراجعة 2 على For Next تتبع مجموعة الأوامر التاليةأوجد قيمة العداد و قيمة المتغير Y و عدد مرات التكرار Dim X , Y as Integer For X = 0 to 10 Step 3 Y = X * 2 MsgBox(y )p Next X MsgBox(Y & X )p ======================= تتبع مجموعة الأوامر التالية أوجد قيمة العداد و قيمة المتغير Y و عدد مرات التكرار Dim X , Y as Integer For X = 0 to 10 Step 3 Y = X * 2 MsgBox(y )p Next X MsgBox(Y & X )p ======================= تتبع مجموعة الأوامر التالية أوجد قيمة العداد و قيمة المتغير Y و عدد مرات التكرار Dim X , Y as Integer For X = 0 to 10 Step -3 Y = X * 2 MsgBox(y )p Next X MsgBox(Y & X )p ==================================== تتبع مجموعة الأوامر التالية أوجد قيمة العداد و قيمة المتغير Y و عدد مرات التكرار Dim X , Y as Integer For X = 2 to 15 Step 6 Y = X * 3 MsgBox(y )p Next X MsgBox(Y & X )p ==================================== مع أطيب التمنيات عاطف مهدى حسان |
العلامات المرجعية |
|
|