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

[rehab1989]

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

الاسئلة وهى
(1)
ماهو الاخراج المحتمل عند الضغط على الزر المناسب لهذا البرنامج؟
Private Sub Cmd Display_Click()
Dim I As Integer,J As Integer
2 For I=0 To
For J=0 TO 3
Print I+3*J+1;" "
Next J
Print
Next I
End Sub
اخراج البرنامج هو:
منتظرة ردكم وجوابكم


(2)
صمم نموذجا يطلب منك ادخال اسم الموظف؛عمره الحالى ؛أول راتب شهري له عند التعيين؛اذا علمت ان راتبه الشهري يذداد سنويا بنسبة5% من راتبه الشهري للسنة الماضية ؛فكم مجموع الرواتب التى سيقبضها هذا الموظف حتى يحصل على سن التقاعد وهو60 سنة
كود البرنامج:
.....................

النموذج:
منتظرة الاجابة
بليز جزاكم الله بدى الاجابات بأقصى سرعه

(3)
ماهو الاخراج المحتمل عند الضغط على الزر المناسب لهذا البرنامج:
Private Sub CmdDisplay_Click()
Call First
Print "How are you today"
End Sub

Private sub First()
Dim N1 As String
N1=InputBox("What is your First name?","Name")
Print "Hellow"&N1
Print "Please"+"Look at me""
End Sub
الاخراج لهذا البرنامج هو:
منتظرة الجواب
(4)
اكتب برنامجا يطلب ادخال رقم عددى صحيح ثم يقوم بطباعة ثلاثة اضعاف الرقم المدخل القيمة المعروضة تتممنخلال برنامج فرعي اسمهTriple
البرنامج:


(5)

اكتب برنامجا يستقبل ثلاث قيم عددية صحيحة,ومن ثم يستدعى دالة وظيفية Function تعيد معدل القيم الثلاث المدخلة ,وكذلك استخدم برنامجا فرعيا Sub يستدعى الدالة اعلاه ويعيد حاصل جمع القيم المدخلة والفرق بين حاص الجمع والمعدل ,ثم يعرض جميع هذه القيم فى نموذج محدد
البرنامج:

النموذج:


(6)
ماهو الاخراج المحتمل عند الضغط على الزر المناسب لهذا البرنامج:
Private Sub CmdDisplay_Click()
Dim S(1 to5) As integer
Dim I As integer,J as integer
For I=1 to 5
S(I)=2*I-1
S(I)=S(I)+3*I
Next I
For J =1 to5
Print S(J)
Next J
End Sub

الناتج من تنفيذ البرنامج هو:


(7)
أكتب برنامجايطلب ادخال اسم الطالب 20 حرفا ودرجته (عددى صحيح) كرر ذلك لصف يتكون من 20 طالبا وخزن اسماء الطلبة ودرجاتهم فى مصفوفتين على التوالى زاعرض اسم الطالب الذى له اعلى درجة واسم الطالب الذى له اقل درجة ثم أوجد عدد الطلبة التى تقع درجاتهم مابين60حتى80
البرنامج:
منتظررررررررررررررررررررررررررة الجواب

(8)
صمم نموذجا يطلب منك ادخال قيم عناصر مصفوفة عددية صحيحة A بالابعاد A(1 to 3 ,1 to 3)ثم أوجد أكبر عدد صحيح فى هذه المصفوفة وحدد موقعه,اعرض ذلك اضافة الى مجموع كل صف ومجموع كل عمود,ومجموع جميع عناصر المصفوفة.
كود البرنامج:


النموذج:


(9)
صمم نموذجا يطلب منك ادخال سلسلة حرفية مكونة منمجموعه من المكونة للنص المدخل ثم اعرض هذه الكلمات بشكل عكسي ومثال ذلك:اذا كان النص المدخل هو How Are You سيعرض النص بالشكل You Are How.استخدم الدوالRight$,Lift$,Mid$
كود البرنامج:

منتظرة الاجوبة
النمــــــــــــــوذج:

منتظرة الاجوبة


(10)
ماهو الاخراج المحتمل عند الضغط على الزر المناسب لهذا البرنامج:
Private Sub CmdDisplay_Dlick()
Dim I As Integer,Y As Integer
Opne"MyFile"For Output As#I
For I=1 to 10
Y=2*I-5
Write #1,I,Y
Next I
Close #1
Open"MyFile"For Input As #2
Do While Not EOF(2)
Input #2,I,Y
Print"I=,I,"Y=",Y
Loop
Close #2
End Sub
ناتج البرنامج؟.
منتظرة الجواب

(11)
اكتب برنامجا يقوم بقراءة بيانات عن كل كتاب فى مكتبة عامة,هذه البيانات تمثل مايلى:اسم الكتاب,اسم المؤلف,عدد الصفحات,رقم التصنيف,الناشر.عرف سجل كل كتاب مستخدما نوع بيانات معرف من المستخدم اسمه"Library"
ثم صمم نموذجا مناسبا يطلب منك:
1.ادخال اسم الكتاب ويعرض اسم الملف
2.ادخال اسم المؤلف ويعرض لك اسماء جميع مؤلفاته
3.ادخال اسم الناشر ويعرض لك جميع الكتب التى نشرتها دار النشر
4.يعرض بيانات كاملةعن جميع الكتب التى تزيد عدد صفحاتها عن400 صفحة
البرنامج:
منتظرة ردودكم واجوبتكم اخوانى

(12)
استخدم ثلاثة صناديق ادخال لادخال ثلاثة قيم ثم اوجد مجموع هذه القيم فى اداة صندوق نص TextBox.

(13)
أنشئ مشروعا يتضمن القائمة Write.ثم اجعل هذه القائمة تتضمن الخيارات التالية :Keyboard,Pencil,Pen.
ثم اضف الى المشروع قائمة Read والتى تتضمن الخيارات التالية:Magazine,Book,Screen

الخطوات هى:


*****************************************
عن جد انا اسفة على الاطالة اخوانى وهذه الاسئلة الكثيرة
لكن اتمنة ان تجاوبونى عليها اجابات صحيحة بارك الله فيكم
تقبلوا تحياتى
اختكم فى الله/رحاب
والسلام عليكم ورحمة الله وبركاته
:smailes20:

[rehab1989]

أرجو الرد على اخوانى اذا ممكن حل هذه الاسئلة أم لا
لانى بالفعل بحاجه كبيرة ليه