mr.kono
06-05-2014, 10:56 PM
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=10
For n = 1 To 10 Step 5
k=k+n)
Next
If n >= c Then
c = c + 1
End If
|
مشاهدة النسخة كاملة : استاذ احمد قرني ممكن شرج الكود mr.kono 06-05-2014, 10:56 PM 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 |