أيها المبرمجون ... وش رايكم تحلون هالمسألتين ؟؟؟؟

[@المتميز@]

مسألتين ............. لي شهر وانا كل يوم كل يوم أقول لنفسي بجلس أتفسفط فيه وأحله
بس الظاهر طلعت من جنبها ..........
من فيكم يشغل مخه معي ويحل هالمسألتين مع انها سهلة بس أخوكم دبشه
......
1/ برنامج يقرأ درجات عشرة طلاب ويقوم بتخزينها في مصفوفة.بعد أدخال الدرجات يقوم البرامج بعد الطلاب الذين حازوا على درجات أعلى من المتوسط ثم طباعة العدد ؟؟
2/برنامج يقوم بقراءة كلمة (word) عدد أحرفها زوجي ثم يقوم بتقسيمها الى جزئين في المتغيرين (part1) و (part2), ثم يطبع محتويات part1 و part2 على الشاشة
مثال :
Word=visual
part1 = vis
part2 = ual

[veto_44]

اخي باي لغة برمجة بارك الله فيك .

[@المتميز@]

:smailes88:
بلغة الفيجوال بيسك ......>>>> :smailes41:

[عـادل المصري]

سهلين اخي والله الطلب الثاني هجهزه ليك انشاء الله
وشكرا

[عـادل المصري]

بسم الله الرحمن الرحيم

الطلب الثاني في المرفقات
وشكرا
موجود ايضا الملف لتنفيذي
البرنامج ليس مقتصر على كلمة word فقط ولكن اي كلمة انت تبيها
وشكرا

http://www.egoshare.com/4fcc9bf48a1bffb80059948b3f43455c/project1rar.html

http://www.egoshare.com/1edb191c3549827b90a83d3dd6b2c6fe/new_folderrar.html

[the_me74]

مرحبا،

هذا كود بسيط لطلبك الأول على حسب ما فهمت


private sub command1_click

dim StudentScores(10) as long
dim AverageScore as long
dim X as long, StudentCount as long

' لم تحدد طريقة قراءة الدرجات فجعلتها على الكود هنا
StudentScores(0) = 10
StudentScores(1) = 25
StudentScores(2) = 50
StudentScores(3) = 75
StudentScores(4) = 100
StudentScores(5) = 10
StudentScores(6) = 25
StudentScores(7) = 50
StudentScores(8) = 75
StudentScores(9) = 100

AverageScore = 50 ' قيمة المعدل - المتوسط

For X=0 to 9
if StudentScore(X) > AverageScore then StudentCount = StudentCount + 1
next

msgbox "عدد طلاب درجات فوق المتوسط = " & StudentCount

end sub


وبالتوفيق