السؤال الثالث امتحان الكمبيوتر لمحافظة الدقهليه الفصل الدراسي الثانى 2010 للمناقشه
 

ب- أقرأ التعليمات الاتيه ثم أجب عن الاسئله التاليه
Dim First as integer =20 , Second as integer=40
Dim Third as integer = First + Second
Dim Total as integer
If Third <=50 Then
Total= First + Second+ Third
Else
First=30
Second=50
Total= First + Second+ Third
End If
1-قيمه المتغير First =
2- قيمه المتغير Second =
3- قيمه المتغير Total =
4- اذا كان التعبير Third <=50 هى ...................................

المشكله حول اختلاف الاجابه فى
3- قيمه المتغير Total =
ونرجو من الاخوة الاعضاء المشاركه
Dim First as integer =20 , Second as integer=40
Dim Third as integer = First + Second
Dim Total as integer
If Third <=50Then
Total= First + Second+ Third
Else
First=30
Second=50
Total= First + Second+ Third
End If

1-قيمهالمتغيرFirst = 30
2- قيمه المتغيرSecond = 50
3- قيمه المتغيرTotal = 140
Third =20+40
وهو الذى بنى عليه التعبيرالشرطى
30+50+60=140
ولم يحدث تغييرلقيمهThird

والاخوة نرجو تجربه جرب هذا البرنامج
Dim First AsInteger = 20, Second AsInteger = 40

Dim Third AsInteger = First + Second
Dim Total AsInteger
If Third <= 50 Then
Total = First + Second + Third
Else
First = 30
Second = 50
Total = First + Second + Third
EndIf
MsgBox(Total)

ونتحاور معا لاجل الوصول الى المعلومه الصحيحه

انا عملتها 140
لكن زملائي يقولون انها هتكون 160
لان third = 30+50 = 80
تبقي total = 80+30+50=160
ممكن حضترتك تتأكد منها علشان انا خايفة منها قوي
لانها ممكن تأثر علي مجموعي
ياريييييييييييييييييييييييييييييييييييييييييت تعرف نموذج الاجابة يبقي ايه
اكرمك الله

أنا بأكد إن الإجابة الصحيحة هي 140

أتفق معك أخى البنان واو
وشكرا جزيلا

الاجابه صحيحه
قيمه المتغيرTotal = 140

Dim First AsInteger = 20, Second AsInteger = 40

Dim Third AsInteger = First + Second
Dim Total AsInteger
If Third <= 50 Then
Total = First + Second + Third
Else
First = 30
Second = 50
Total = First + Second + Third
EndIf
MsgBox(Total)

قيمه المتغيرTotal = 140

مش المفروض استاذ طارق ان
Third = First + Second
والثلاث قيم متغيرات وطالما هم كذلك مش مفروض برضه ان احنا بناخد آخر قيمة لهذا المتغير
هو بدأ بالقيم 20 و 40 وتغيرت القيم الى 30 و 50 يبقى المفروض ال Total = 160
يا ترى حضرتك جربتها عملي اصل البرنامج مش عندي حالياً

وجزاكي الله خيرا اختنا الفاضلة ا/ نهله
بالتطبيق العملى 140
أخى وزميلى ابو بطة
شكرا جزيلاً

اسف الاجابه غير صحيحه

عزيزى أ/ محمد عبد الحكم
الاجابه صحيحه
واذا لم تكون مقتنع جرب هذا البرنامج ورد على
وشكرا
Dim First AsInteger = 20, Second AsInteger = 40

Dim Third AsInteger = First + Second
Dim Total AsInteger
If Third <= 50 Then
Total = First + Second + Third
Else
First = 30
Second = 50
Total = First + Second + Third
EndIf
MsgBox(Total)


رقم المشاركة : 49</STRONG>

http://www.thanwya.com/vb/showthread...=209684&page=2

الطالب معاه ورقة اسئلة بس مش لاب توب
السؤال ده الاجابة النظري 180

وبعد إذن اي زميل فاضل يشرح ازاي تطلع 140 نظري او عملي

انا مش هجرب عملي لان الامتحان نظري

الامتحان نظري ممكن شرح نظري من مستر مجدي ومستر طارق و مستر سيف سالم

زي السؤال ده
ب- قيمه المتغير من النوع single تكون( 12345.768 - 12345-12345.76

نظري مش عملي

عزيزى أ/ محمد عبد الحكم
الاجابه صحيحه
140 نظري او عملي
ونظرى
قم بتتبع الخطوات باستخدام امر التخصيص
سوف تحصل على الاجابه وهى 140
وشكرا