بوابة الثانوية العامة المصرية - { هام } الاستاذ ابو بطة والاستاذ سيف سالم

بوابة الثانوية العامة المصرية (https://www.thanwya.com/vb/index.php)

- أرشيف المنتدى (https://www.thanwya.com/vb/forumdisplay.php?f=513)

- - { هام } الاستاذ ابو بطة والاستاذ سيف سالم (https://www.thanwya.com/vb/showthread.php?t=318635)

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

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

وياريت الإجابة علي الأسئلة دي
إذا كانت 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 )

اقتباس:

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

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

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