ممكن شرح للكود ده

[hythamhhh]

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

اولا ناتى بقيمة n وتكون قيمها كالتالى 1 ثم زيادة خمسة فتصبح 6 ثم زيادة خمسة فتصبح 11 اذا تكون قيمة n =11 وعدد مرات التكرار مرتين فقط لاننا سناخذ القيمتين الذين داخل الشرط فيكونوا (1 و 6 ) وبالتالى
نكرر الكود الذى يليها مرتين وهو k=k+n فنعوض عنهم فتصبح اول مرة k = صفر+ 1 =1
وتانى تكرار سيكون k= 1+6= 7 اذا تكون قيمة k=7
ثم نذهب الى If n >= c Then ويكون كالتالى نعوض عن n ب 11 و c ب 10 فنستنج ان الشرط صحيح true فننفذ الامر الذى يليه وهو c+c+1 نعوض عنها بقيمتها فيكون 10+1 =11