مراجعة 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
====================================
مع أطيب التمنيات
عاطف مهدى حسان