أرجو الاجابة نظراً لأهمية هذا السؤال

[الفرسان2009]

الاجابة صحيحة لان جملة select case يمكن كتابة شروطها باكثر من طريقة بس فى الكتاب المدرسى لم يظهر هذه الطرق واعطانا هذا السؤال للبحث عنه . وفعلا ممكن اختبر اكثر من بجملة شرطية واحدة ودا حوضحة بالمثال البسيط التالى :
بافتراض ان احنا عاوزين نعمل تطبيق يقوم بحساب قيمة الخصم على عدد الكتب المباعة بدون كالتالى :
Dim total as Double
Dim Quantity as integer = 100
Dim price as single = 12
Dim discount as single

Total= Quantity × price

Select case Quantity

Case 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
Discount = total × 0.05
Total = total - discount

Case 16 to 100
Discount = total × 0.1
Total = total - discount

End select

ففى السطر السابع سنستخدم طريقة القائمة والتى سيقوم البرنامج من خلالها باختبار اكثر من شرط مرة واحدة بالترتيب كالاتى : هل كمية الكتب Quantity تساوى واحد ، هل كمية الكتب Quantity تساوى اثنان ، هل كمية الكتب Quantity تساوى ثلاثة ... وهكذا ففى هذا السطر سيقوم البرنامج باختبار خمسة عشر شرطا بالترتيب فى جملة واحدة وعندما يصل الى شرط منهم قيمته true يتم تنفيذ الخصم التابع له وهو 0.05 وبذلك هذه الطريقة افضل عند كتابة الشروط فى جملة واحدة بدلا من كتابة كل شرط على سطر خاص به وهذا يجعل الكود طويلا وصعب القراءة .

كما يمكن استخدام الطريقة الموجودة فى السطر العاشر وهى طريقة المدى وهى اكثر اختصارا من الطريقة الموجودة بالسطر السابع طريقة القائمة .
وشكرا لقراءة الرد