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
|