[QUOTE=tmrmsr;5144998]شكرا استاذ تامر
طيب لو عملتها كدة صح
MessageBox.show(sum( 4 , 6 )

[quote=مدرس . كمبيوتر;5145027]صحيح

استفسار اخر

كتاب المدرسة اعلن عن تاريخ الميلاد على انه متغير باستخدام DIM فى ص 13
وبعد كدة فى ص 15 اعلن عنه على انه ثابت باستخدام CONST

هو مش المفروض اصلا ان قيمة تاريخ الميلاد ثابتة ولا تتغير طيب ليه استخدمنا فى الاول الامر Dim هل هناك غرض من ذلك

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

مثال جيد وشكرا لك

مثال كتب المدرسة ص 60 واحتمال تكرار مشكلة امتحان البحيرة
 

dim m as integer
for m = 1 to 3
msgbox ( m )
next

السؤال ياتى فى الامتحان بكذا طريقة
مثلا ناتج تنفيذ الكود السابق
مفيش مشكلة هنا هتكون m 1 2 3

2- ما قيمة المتغير m بعد انتهاء التكرار ( 2 - 3 - 4 )
ناس هتقول 3 عشان دى اخر قيمة ظهرت فى مربع الرسالة ، وناس تقول 4 لان دى القيمة اللى انتهى عندها التكرار

3- ما قيمة المتغير m التى توقف عندها التكرار ( 2 - 3 - 4 )
ناس هتقول 3 عشان دى اخر قيمة ظهرت فى مربع الرسالة وبعدها لم يكرر ، وناس تقول 4 لان دى القيمة اللى انتهى عندها التكرار وانهائه

وطبعا كتاب المدرسة جاب القيميتن القيمة 3 والقيمة 4 وتركنا للتخمينات

قيمة m=3
لأن مربع الرسالة قبل كلمة next

سؤال موازي لاسئلة الكتاب والتى لم يتم شرحها وغير مقررة على الطلاب
 

الفصل الثالث السؤال الثالث رقم 2
ما اجابة السؤال الموازي
dim r as short = 1
do while r <=1
r=r-2
if r<-40000 then
r=2
end if
loop
msgbox(r)1
الاجابة (0 - 2 - overflow - لا شئ مما سبق )

ولو تم تعديل السؤال

dim r as short = 1
do while r <=1
r=r-2
if r<-30000 then
r=2
end if
loop
msgbox(r)1

الاجابة (0 - 2 - overflow - لا شئ مما سبق )

ولو تم تعديل السؤال

dim r as double= 1
do while r <=1
r=r-2
loop
msgbox(r)1

الاجابة (0 - 2 - overflow - لا شئ مما سبق )

ولو تم تعديل السؤال

dim r as single= 1
do while r <=1
r=r-2
loop
msgbox(r)1

الاجابة (0 - 2 - overflow - لا شئ مما سبق )

ولو تم تعديل السؤال

dim r as string = 1
do while r <=1
r=r-2
loop
msgbox(r)1

الاجابة (0 - 2 - overflow - لا شئ مما سبق )

ولو تم تعديل السؤال

dim r as boolean= 1
do while r <=1
r=r-2
loop
msgbox(r)1

الاجابة (0 - 2 - overflow - لا شئ مما سبق )

سؤال موازي لاسئلة الكتاب والتى يوضح انه لا يوجد اجابة صحيحة في السؤال الاصلي
 

الفصل الثاني السؤال الخامس رقم 4
Dim a As Integer = 7
Dim b As Integer = 9
MsgBox(a & "x" & b & "=" & " " & a * b)1
اختر الاجابة الصحيحة بعد التنفيذ
1- axb=63
2- 7x9=63
3- 7x9=a*b
4- 7x9= 63