حاسب آلي اسئلة واجاباتها ثالثة اعدادي ج3

السـؤال التاسع:

أعـد ترتيب الأكواد التالية حسب المطلوب في كل برنامج:
أ - احسب مجموع الأعداد الفردية من 1 إلى 8 واظهر الناتج في مرربع رسالة:
(.....)Total = Total + i
(.....)MsgBox(Total)
(.....)Next
(.....)For i = 1 To 8 Step 2
(.....)Dim i, Total As Integer
ب- احسب مجموع الأعداد الفردية من 1 إلى 8 واظهر الناتج في مرربع رسالة:
(.....)Loop
(.....)Do While i <= 8
(.....)Dim i = 1, total As Integer
(.....)MsgBox(Total)
(.....)Total = Total + i
(.....)i = i + 2
ج- إظهر الأعداد الصحيحة من 1 إلى 10 في مربع رسالة:
(.....)Loop
(.....)Do While i <= 10
(.....)Dim i = 1
(.....)MsgBox(i)
(.....)i = i + 1 
 إجـابـة السـؤال التاسع (أوامر التكرار):

أ

3

5

4

2

1

ب

5

2

1

6

3

4

ج

5

2

1

3

4

السـؤال العاشر:

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

إجـابـة السـؤال العاشر (أوامر التكرار): ب

السـؤال الحادي عشر:

اختر الإجابة الصحيحة من بين الاختيارات فيما يأتي:

1-  الخاصيـة Interval  للميقـاتـي Timer تحـدد معـدل وقـوع الحـدث بالوحـدة الزمنيـة:

	أ-  ثانيـة.	ب- دقيقـة.
	ج- مللى ثانيـة.	د- سـاعـة.

2-  إذا كانت قيمة الخاصية Interval للكائن Timer  تساوي 3000 فإن مقدارها بالثواني هو:

	أ-  3	ب- 30
	ج- 3000	د- 300

3-  التكوين ...............  يستدعى التاريخ والوقت الخاصين بالنظام:

	أ-  CurrentTime	ب- Time
	ج- CurrentDate	د- DateTime

4-  تستـطيع ............... مع المتغـير من النوع Date.

	أ-  جمـع أيـام.	ب- جمـع سـاعـات.
	ج- طـرح أيـام.	د- كل ما سـبق.

إجـابـة السـؤال الحادي عشر (الميقاتي):

1-  ج

2-  أ

3-  د

4- د

اعداد الأستاذة هناء همام 

ملحوظة:

بعثت الاستاذة شيماء قاسم  بملف لمنهج أولي اعدادي رائع ولكنه غير صالح للعرض المباشر علي الموقع 

واقترح عليها بنسخه سيديهات للاعارة المباشرة للطالبات

الأشراف