عرض مشاركة واحدة
  #9  
قديم 17-04-2015, 06:01 PM
monernadia monernadia غير متواجد حالياً
عضو جديد
 
تاريخ التسجيل: Oct 2010
المشاركات: 25
معدل تقييم المستوى: 0
monernadia is on a distinguished road
افتراضي

Dim n, k, c As Integer
c = 6
For n = 1 To 6 Step 3
k = k + n
MsgBox("داخل التكرار n=" & n)
MsgBox("داخل التكرار k=" & k)
Next
If n > c Then
c = c + 1
MsgBox(" بعد التكرار n = " & n)

MsgBox(" بعد التكرار c = " & c)
MsgBox("بعد التكرار k = " & k)
End If
رد مع اقتباس