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

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

جزاك الله خيرا
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 ممكن شرح

جزاك الله خيرا
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 ممكن شرح

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

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