[maxval]

Dim X , N As Integer

X = 1

For N = 0 TO 7 Step 4

X = X * 2

Next

بعد تنفيذ التعليمات السابقة تكون :
أ‌- قيمة N هى ( )
ب‌- قيمة X هى ( )