
07-05-2014, 11:45 PM
|
 |
معلم حاسب آلى
|
|
تاريخ التسجيل: Oct 2010
المشاركات: 2,459
معدل تقييم المستوى: 17
|
|
اقتباس:
المشاركة الأصلية كتبت بواسطة mr.kono
جزاك الله خيرا
dim a.b.c as integer
b=10
c=b/2
for a=6 to 3 step -3
b=b-1
c=c+1
next
msgbox(a
msgbox b
msgbox c
قيمة a ,b , c ممكن شرح
|
شرح الكود فى المرفقات
__________________
ـــــــــــــــــــــــــــــــــــــــــــــــ لا إله إلا أنت سبحانك إنى كنت من الظالمين
|