طلبات الأعضاء للعام الدراسي 2012-2013

[hassanalhawy]

المشاركة الأصلية كتبت بواسطة Mr:Mohammad Zyan

هل هذا المثال صحيح أم لا
وإذا كان صحيحا فما هي الإجابة مع التوضيح

Dim X As Integer
Dim Y As Integer
Dim Z As Integer
Y=X-8
Z=Y/4

y = 0-8=-8
z = -8/4=-2

============
السؤال الثاني :
أكتب عدد مرات تكرار الأوامر لكل مجموعة

المجموعة (1)

sum=0
x=6
Do While (x>10(
sum=sum+x
x=x+1
Loop

عدد مرات التكرار = 0 حيث أن ناتج شرط استمرار التكرار هو False لذا لن يتم الدخول فى الحلقة

المجموعة (2)
For N=0 to 5
z=z+1
Next

عدد مرات التكرار = ( ( القيمة النهائية - القيمة الإبتدائية ) ÷ قيمة الزيادة ) + 1 مرة


عدد مرات التكرار = ( ( 5 - 0 ) ÷ 1 ) + 1= 5÷1+1=5+1=6 مرات

أرجوا الإجابة بارك الله فيكم

الإجابة بالأعلى