[نورهان م]

Dim m, x As Integer

x = 1
For m = 0 To 7 Step 3
x = x * 2
next
قيمة M هى
قيمة X هى