{ هام } الاستاذ ابو بطة والاستاذ سيف سالم

[فكري الزيدي]

الرجاء منكم حل امتحان محافظة بورسعيد للأهمية

وياريت الإجابة علي الأسئلة دي
إذا كانت X, Y, J, K, Z متغيراتصحيحة قيمها كالتالي: X=8 , Y=2 , J=3 , K=4
اخـتر القيمة الصحيحة للمتغير Z بعد تنفيـذ الأوامـر التـاليـة:
If X > Y And J < K Then
Z = X - Y
Else
Z = J + K
End If

أ- 6 ب- 7 ج- 8

الكود الثاني

Dim Count, Sum As Integer
Count = 1
Sum = 0
Do While Count <= 10
Sum = Sum + Count
Count = Count + 3
Loop
MsgBox(Sum)

بعـد تنفيـذ هـذا الكـود تكـون القيمة النهـائيـة للمتغـير Sum هي:

أ - 12 ب - 22ج- 35

[أحمد هاشم الزيدي]

الأكواد
الأول ( 6 )
الثاني ( 22 )

[MR : ABO BATTA]

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

الرجاء منكم حل امتحان محافظة بورسعيد للأهمية

وياريت الإجابة علي الأسئلة دي
إذا كانت X, Y, J, K, Z متغيراتصحيحة قيمها كالتالي: X=8 , Y=2 , J=3 , K=4
اخـتر القيمة الصحيحة للمتغير Z بعد تنفيـذ الأوامـر التـاليـة:
If X > Y And J < K Then
Z = X - Y
Else
Z = J + K
End If

أ- 6 ب- 7 ج- 8

الكود الثاني

Dim Count, Sum As Integer
Count = 1
Sum = 0
Do While Count <= 10
Sum = Sum + Count
Count = Count + 3
Loop
MsgBox(Sum)

بعـد تنفيـذ هـذا الكـود تكـون القيمة النهـائيـة للمتغـير Sum هي:

أ - 12 ب - 22ج- 35

اجابة امتحان بورسعيد على هذا الرابط
هنـــــــــــــــــــــا

اما السؤال المطلوب اجابته
الكود الأول به جزء ملغي .. طالما ان الشرط تحقق فيتم تنفيذ الأمر الذي يلي Then
Z = X - Y
Z = 8 - 2 = 6

الكود الثاني .. ملغي