امتحان الدقهلية

[abeer1]

Dim x, y, w, z As Integer

z = 5
w = 4
For z = 2 To 4 Step 2
y = y + x
w = w - 1

Next
If y > z Then
w = w \ 2
z = z + y

End If
MsgBox(w)
MsgBox(y)
MsgBox(z)



w=2
y=0
zz=6

[mrk206]

المشاركة الأصلية كتبت بواسطة abeer1

Dim x, y, w, z As Integer

z = 5
w = 4
For z = 2 To 4 Step 2
y = y + x
w = w - 1

Next
If y > z Then
w = w \ 2
z = z + y

End If
MsgBox(w)
MsgBox(y)
MsgBox(z)


w=2
y=0
zz=6

في رأي
w=2 ok
y = 0 ok
z القيمة العليا للعداد = 4

[abeer1]

المشاركة الأصلية كتبت بواسطة mrk206

في رأي
w=2 ok
y = 0 ok
z القيمة العليا للعداد = 4

دائما قيمة العداد بتزيد عن القيمة النهائية بمقدار الStep
ولكن التكرار يقف
بمعنى ان العملية الحسابية لن تتحقق