[usama_usama2005]

مشكور و بارك الله فيك

Sum = 0

X = 0

Do While X<5

Sum = Sum + X

X = X + 1

Loop

Average = Sum / X
MsgBox(X)
MsgBox(Average)

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

الكود الثاني

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

K = 1

For I = 1 to 5

K = K*2

Next

MsgBox(I)

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