هااااام الي الأستاذ احمد قرني والأستاذ سيف سالم

[الأستاذة / أم أمل]

Sum = 0

X = 0

Do While X<5

Sum = Sum + X

X = X + 1

Loop

Average = Sum / X

بعد تنفيذ التعليمات السابقة تكون :
أ‌- قيمة X تساوى ...... ( 4 - 5 - 0 )
ب‌- قيمة Average تساوى ...... ( 3 - 2.5 - 2 )

الكود الثاني

4- بعد نهاية تنفيذ الكود التالى :

K = 1

For I = 1 to 5

K = K*2

Next

تكون قيمة I , K هى :
I = ………… ( 6 - 5 - 1 )
K = ………… ( 1 - 16 - 32 )

[زياد_عاطف]

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

Sum = 0

X = 0

Do While X<5

Sum = Sum + X

X = X + 1

Loop

Average = Sum / X

بعد تنفيذ التعليمات السابقة تكون :
أ‌- قيمة X تساوى ...... ( 4 - 5 - 0 )
ب‌- قيمة Average تساوى ...... ( 3 - 2.5 - 2 )

الكود الثاني

4- بعد نهاية تنفيذ الكود التالى :

K = 1

For I = 1 to 5

K = K*2

Next

تكون قيمة I , K هى :
I = ………… ( 6 - 5 - 1 )
K = ………… ( 1 - 16 - 32 )

===============================================

Dim sum, x, average As Single

sum = 0
x = 0
Do While x < 5
sum = sum + x
x = x + 1
Loop
average = sum / x
MsgBox(" After Loop " & vbCrLf & " X =" & _
" " & x & vbCrLf & " Sum = " & " " & sum _
& vbCrLf & " Average = " & " " & average, , "Atef Mahdy")

================================================== ======

Dim i, k As Byte
K = 1
For I = 1 To 5
K = K * 2
Next
REM تكون قيمة I , K هى : I = ………… ( 6 - 5 - 1 ) K = ………… ( 1 - 16 - 32 )

MsgBox(" After Reapting " & vbCrLf & " I =" & _

" " & i & vbCrLf & " K = " & " " & k , "Atef Mahdy")

=================================

عاطف مهدى حسان - ميت موسى