[سلمىاحمد]

ارجو شرح اجابه السؤال الثالث فى نماذج الامتحانات ص 102
وهو
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