عرض مشاركة واحدة
  #38  
قديم 10-05-2014, 05:13 PM
emy012 emy012 غير متواجد حالياً
عضو جديد
 
تاريخ التسجيل: Dec 2013
المشاركات: 4
معدل تقييم المستوى: 0
emy012 is on a distinguished road
افتراضي

ممكن طلب شرح لهذا الكود ولماذا النتيجة ال c 11 و k 7
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
رد مع اقتباس