استاذ احمد قرني ممكن شرج الكود

[mr.kono]

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

[أحـمد قرنى]

شرح الكود فى المرفقات

[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 ممكن شرح

[أحـمد قرنى]

المشاركة الأصلية كتبت بواسطة 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 ممكن شرح

شرح الكود فى المرفقات

[mr.kono]

x=4.5
for i=0 to7step3
x=x*2
next
msgbox (x)
قيمة x بعد انتهاء التكرار