[أحـمد قرنى]

Dim N, K, C As Integer
C= 5

For N = 1 To 4
K = K + N
Next
If N > C Then
C = C + 1
End If

بعد تنفيِذ الكود يكون
1. قيمة المتغير C هى (5 - 6 - 8)
2. قيمة المتغير K هى (0 - 10 - 9)