امـــــــــتـــــــــــــــحــــــــــــــــانــــ ـــــات شـــــهــــريـــة ومتنوعة

[سلمىاحمد]

ممكن اجابة عن السؤال التالى
Dim N, K, C As Integer
C = 10
For N = 1 To 10 Step 5
K = K + N
Next
IF N >= C Then
C = C + 1
End IF
حدد قيمة كل متغير بعد تنفيذ الكود Code التالى

[زياد_عاطف]

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

ممكن اجابة عن السؤال التالى
Dim N, K, C As Integer
C = 10
For N = 1 To 10 Step 5
K = K + N
Next
IF N >= C Then
C = C + 1
End IF
حدد قيمة كل متغير بعد تنفيذ الكود Code التالى

===========================================
_ MsgBox("n = " & N & vbCrLf & "k = " & K & vbCrLf & "c= " & C)g

N = 11
K =7
C = 11
===========================================

[لوووكا]

جزاكم الله خيرا
مشكوووووووووووووورين

[جناكليس]

بارك الله فيك مستر عاطف
وجزاك الله خيرا

[جناكليس]

السلام عليكم
اخى الفاضل الاستاذ عاطف حسان
انا محتار فى اجابة هذا السالسؤال
الرجاء من حضرتك الاجابة علية مع الشرح
for i = 0 to 7
if (i mod 2 =0) thne
1- msgbox i+1
else if(i mod 3 =0) thne
2- msgbox i*1
else if(i mod 5 =0) thne
3- msgbox 2*1
else
4- msgbox i
end if
end sub

[hassanalhawy]

إيه الجمال ده يا عاطف
وإيه الألوان الحلوة دى
دى مزيكا
إنت متخصص امتحانات عن جدارة

[زياد_عاطف]

المشاركة الأصلية كتبت بواسطة hass****hawy

إيه الجمال ده يا عاطف
وإيه الألوان الحلوة دى
دى مزيكا
إنت متخصص امتحانات عن جدارة

===================================
شكرا يا حسن ربنا يكرمك

[زياد_عاطف]

المشاركة الأصلية كتبت بواسطة جناكليس

السلام عليكم
اخى الفاضل الاستاذ عاطف حسان
انا محتار فى اجابة هذا السالسؤال
الرجاء من حضرتك الاجابة علية مع الشرح

for i = 0 to 7
if (i mod 2 =0) thne
1- msgbox i+1
else if(i mod 3 =0) thne
2- msgbox i*1
else if(i mod 5 =0) thne
3- msgbox 2*1
else
4- msgbox i
end if
end sub

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

Dim i As Integer
For i = 0 To 7

if (i Mod 2 = 0) Then
MsgBox (i + 1)u
ElseIf (i Mod 3 = 0) Then
MsgBox (i * 1)u
ElseIf (i Mod 5 = 0) Then
MsgBox (2 * 1)u
Else
MsgBox (i)u
End If
Next

هذا سؤال متشابه لحد كبير جدا لتمرين اخر الفصل الثالث فى الكتاب المطبوع سابقا
و يطلب منك تحديد المخرجات – أى ما يظهر فى مربع الرسالة MsgBox

اولا التعبيرات الشرطية يتم تفيذها من أعلى لأسفل
أول شرط يتحقق يتم تفيذ البديل الذى يليه مباشرة ثم يتم تجاهل باقى الشروط و البدائل حتى End If
إذا لم يتحقق أى شرط يتم تفيذ البديل الافتراضى فى جملة If و هو البديل الذى يلى Else
إذا لم يتحقق أى شرط و لم يتم إستخدام كلمة Else ل يتم عمل شىء

(1) عندما يذهب البرنامج فى اول مرة لـ For يتم تخزين قيمة البداية Start [0] فى العداد i
و يتم اختبار شرط التكرار – هل I<=End أى هل 0 اقل من او تساوى 7 فيكون ناتج الشرط صحيح فيتم التكرار و التكرار هنا عبارة عن جملة Else If المتداخلة فيتم تفيذها
اول شرط يتحقق لأن 2 Mod 0 = 0 و Mod تشير لباقى القسمة هنا باقى قسمة صفر على 2 يكون 0 فيتم تنفيذ البديل الذى يلى الشرط و هو MsgBox ( I +1) أى طباعة 0+1 فى مربع الرسالة فيكون أول مخرجات (ما يطبعه) البرامج هو 1
(2) ثم يذهب البرنامج لـ Next ليتم زيادة قيمة العداد بقيمة الزيادة الافتراضية و هى 1 لأننا لم نستخدم كلمة Step – فتصبح قيمة I تساوى قيمتها + مقدار الزيادة فتصبح 0+1=1
و يتم اختبار شرط التكرار – هل I<=End أى هل 1 اقل من او تساوى 7 فيكون ناتج الشرط صحيح فيتم التكرار و التكرار هنا عبارة عن جملة Else If المتداخلة فيتم تفيذها
اول شرط لا يتحقق لأن 1 Mod 2 <> 0 فيتم تجاهل البديل الذى يليه
ثانى شرط لا يتحقق لأن 1 Mod 3 <> 0 فيتم تجاهل البديل الذى يليه
ثالث شرط لا يتحقق لأن 1 Mod 5 <> 0 فيتم تجاهل البديل الذى يليه
فيتم تفيذ البديل الإفتراضى و هو الذى يلى Else – MsgBox(i) أى أى طباعة 1 فى مربع الرسالة فيكون ثاى مخرجات (ما يطبعه) البرامج هو 1
(3) ثم يذهب البرنامج لـ Next ليتم زيادة قيمة العداد بقيمة الزيادة الافتراضية و هى 1 لأننا لم نستخدم كلمة Step – فتصبح قيمة I تساوى قيمتها + مقدار الزيادة فتصبح 1+1=2
و يتم اختبار شرط التكرار – هل I<=End أى هل 2 اقل من او تساوى 7 فيكون ناتج الشرط صحيح فيتم التكرار و التكرار هنا عبارة عن جملة Else If المتداخلة فيتم تفيذها
اول شرط يتحقق لأن 2 Mod 2 = 0 فيتم تنفيذ البديل الذى يلى الشرط و هو MsgBox ( I +1) أى طباعة 2+1 فى مربع الرسالة
فيكون ثالث مخرجات (ما يطبعه) البرامج هو 3
(4) ثم يذهب البرنامج لـ Next ليتم زيادة قيمة العداد بقيمة الزيادة الافتراضية و هى 1 لأننا لم نستخدم كلمة Step – فتصبح قيمة I تساوى قيمتها + مقدار الزيادة فتصبح 2+1=3
و يتم اختبار شرط التكرار – هل I<=End أى هل 3 اقل من او تساوى 7 فيكون ناتج الشرط صحيح فيتم التكرار و التكرار هنا عبارة عن جملة Else If المتداخلة فيتم تفيذها
اول شرط لا يتحقق لأن 3 Mod 2 <> 0 فيتم تجاهل البديل الذى يليه
ثانى شرط يتحقق لأن 3 Mod 3 = 0
فيتم تنفيذ البديل الذى يلى الشرط و هو MsgBox ( I *1) أى طباعة 3*1 فى مربع الرسالة
فيكون رابع مخرجات (ما يطبعه) البرامج هو 3
(5) ثم يذهب البرنامج لـ Next ليتم زيادة قيمة العداد بقيمة الزيادة الافتراضية و هى 1 لأننا لم نستخدم كلمة Step – فتصبح قيمة I تساوى قيمتها + مقدار الزيادة فتصبح 3+1=4
و يتم اختبار شرط التكرار – هل I<=End أى هل 4 اقل من او تساوى 7 فيكون ناتج الشرط صحيح فيتم التكرار و التكرار هنا عبارة عن جملة Else If المتداخلة فيتم تفيذها
اول شرط يتحقق لأن 4 Mod 2 = 0
فيتم تنفيذ البديل الذى يلى الشرط و هو MsgBox ( I +1) أى طباعة 4+1 فى مربع الرسالة
فيكون خامس مخرجات (ما يطبعه) البرامج هو 5
(6) ثم يذهب البرنامج لـ Next ليتم زيادة قيمة العداد بقيمة الزيادة الافتراضية و هى 1 لأننا لم نستخدم كلمة Step – فتصبح قيمة I تساوى قيمتها + مقدار الزيادة فتصبح 4+1=5
و يتم اختبار شرط التكرار – هل I<=End أى هل 1 اقل من او تساوى 7 فيكون ناتج الشرط صحيح فيتم التكرار و التكرار هنا عبارة عن جملة Else If المتداخلة فيتم تفيذها
اول شرط لا يتحقق لأن 5 Mod 2 <> 0 فيتم تجاهل البديل الذى يليه
ثانى شرط لا يتحقق لأن 5 Mod 3 <> 0 فيتم تجاهل البديل الذى يليه
ثالث شرط يتحقق لأن 5 Mod 5 <> 0
فيتم تنفيذ البديل الذى يلى الشرط و هو MsgBox ( 2*I ) أى طباعة 2*1 فى مربع الرسالة
فيكون سادس مخرجات (ما يطبعه) البرامج هو 2
(7) ثم يذهب البرنامج لـ Next ليتم زيادة قيمة العداد بقيمة الزيادة الافتراضية و هى 1 لأننا لم نستخدم كلمة Step – فتصبح قيمة I تساوى قيمتها + مقدار الزيادة فتصبح 5+1=6
و يتم اختبار شرط التكرار – هل I<=End أى هل 6 اقل من او تساوى 7 فيكون ناتج الشرط صحيح فيتم التكرار و التكرار هنا عبارة عن جملة Else If المتداخلة فيتم تفيذها
اول شرط يتحقق لأن 6 Mod 2 = 0
فيتم تنفيذ البديل الذى يلى الشرط و هو MsgBox ( i+1 ) أى طباعة 6+1 فى مربع الرسالة
فيكون سابع مخرجات (ما يطبعه) البرامج هو 7
(8) ثم يذهب البرنامج لـ Next ليتم زيادة قيمة العداد بقيمة الزيادة الافتراضية و هى 1 لأننا لم نستخدم كلمة Step – فتصبح قيمة I تساوى قيمتها + مقدار الزيادة فتصبح 6+1=7
و يتم اختبار شرط التكرار – هل I<=End أى هل 7 اقل من او تساوى 7 فيكون ناتج الشرط صحيح فيتم التكرار و التكرار هنا عبارة عن جملة Else If المتداخلة فيتم تفيذها
اول شرط لا يتحقق لأن 7 Mod 2 <> 0 فيتم تجاهل البديل الذى يليه
ثانى شرط لا يتحقق لأن 7 Mod 3 <> 0 فيتم تجاهل البديل الذى يليه
ثالث شرط لا يتحقق لأن 7 Mod 5 <> 0 فيتم تجاهل البديل الذى يليه
فيتم تفيذ البديل الإفتراضى و هو الذى يلى Else – MsgBox(i) أى أى طباعة i فى مربع الرسالة فيكون ثامن مخرجات (ما يطبعه) البرامج هو 7
(9) ثم يذهب البرنامج لـ Next ليتم زيادة قيمة العداد بقيمة الزيادة الافتراضية و هى 1 لأننا لم نستخدم كلمة Step – فتصبح قيمة I تساوى قيمتها + مقدار الزيادة فتصبح 7+1=8
و يتم اختبار شرط التكرار – هل I<=End أى هل 8 اقل من او تساوى 7 فيكون ناتج الشرط خطأ فيتوقف التكرار

[Mr:Mohammad Zyan]

السلام عليكم ورحمة الله وبركاته


تدريبات علي الفصل الأول والثاني

أكثر من 70 نقطة علي الفصل الأول
و70 نقطة للفصل الثاني

أرجوا أن تنال إعجابكم
وانتظروا إن شاء الله تدريبات علي الفصل الثالث قريبا
بورك فكيم وجزاكم الله الجنة ورجاء قيمونا ............

[aly_rafat]

مشكوووووووووووووووووووووووووور

[asdzazax]

جزاك الله خيرا

[yasserdeif]

بارك الله فيك مستر عاطف
وجزاك الله خيرا
وجعله الله فى ميزان حسناتك

[dscmohamedn]

جزاك الله خيرا

[زياد_عاطف]

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

بارك الله فيك مستر عاطف
وجزاك الله خيرا
وجعله الله فى ميزان حسناتك

==================
شكرا جزيلا يأ أستاذى الخلوق ياسر ضيف
انشاء الله تعجبك الامتحانات القادمة و تقولى رأيك فى الامتحان اللى حا اضيفة الليلة بإذن الله -
=========================

عاطف حسان

[سيف سالم]

المشاركة الأصلية كتبت بواسطة زياد_عاطف

نماذج إمتحانات - عاطف حسان تيرم ثانى 2013

نموذج (1)

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

أرجو أن تنال إعجابكم
و أرجو التعليق و التقييم
عاطف حسان / ميت موسى

مجهود مشكور استاذ عاطف
ولي تعليق بسيط
ناتج الدالة IsNumeric فى الجملة MsgBox(IsNumeric(x)) تكون True إذا كانت ْالمتغير Xعددية
كان ممكن نجعل الخطأ في كتابة الكود ونلغى اذا كان وما بعدها
جمله [ If Then – For Next – Select Case ]تستخدم عند وجود إختيارين أحدهما فى حالة الصواب و الآخر فى حالة الخطأ
انت كدا تنضم الى الجدالين الجدد والافضل اضافة if then else

(1) فى جملة For Next معدل الزيادة يجب أن يكون [ موجبا – سالباً – يساوى صفر ] إذا كانت قيمة البداية أكبر من قيمة النهاية
يجب اضافة كلمة حتى يتم التكرار
) الخروج من جملة التكرار بدون إنتظار اختبار التعبير الشرطى مع Do While إذا كان StrClose يساوى Dangerous
قيمة المتغير اذا اضيفت نجعل السؤال مفهوم بشكل اكثر