![]() |
استاذ احمد قرني ممكن شرج الكود
Dim n, k, c As Integer
c=10 For n = 1 To 10 Step 5 k=k + n) Next If n >= c Then c = c + 1 End If عاوز قيمة c ,k ,n |
1 مرفق
شرح الكود فى المرفقات |
جزاك الله خيرا
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 ممكن شرح |
1 مرفق
اقتباس:
شرح الكود فى المرفقات |
x=4.5
for i=0 to7step3 x=x*2 next msgbox (x) قيمة x بعد انتهاء التكرار |
جميع الأوقات بتوقيت GMT +2. الساعة الآن 04:33 AM. |
Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.