[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