عرض مشاركة واحدة
  #1  
قديم 02-05-2015, 01:48 AM
مستر عزت مستر عزت غير متواجد حالياً
عضو مشارك
 
تاريخ التسجيل: Nov 2009
المشاركات: 162
معدل تقييم المستوى: 16
مستر عزت is on a distinguished road
افتراضي

Dim N, K, C As Integer
C = 10
For N = 1 To 10 Step 6
K = K + N

Next
If N <= C Then
C = C + 2

End If

( MsgBox("C =" & C & " " & "K=" & K & " " & "N=" & N



تكون قيمة N بعد انتهاء التكرار 13

قيمة C = 10 لان الشرط خطأ لانه لن ينفذ مايلي next الا اذا اصبحت قيمة N = 13
عند اختبار الشرط نجد ان If N <= C Then الشرط خطأ
قيمة K = 8