[VB.NET] ممكن مساعدة بحل هذه الأسئلة - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183) +--- الموضوع : [VB.NET] ممكن مساعدة بحل هذه الأسئلة (/showthread.php?tid=37154) |
ممكن مساعدة بحل هذه الأسئلة - اسامه الهرماوي - 10-12-20 السلام عليكم... ممكن مساعدة بحل هذه الأسئلة لو سمحتم بأسرع وقت, وأكون شاكر ليكم إخواني: السؤال الأول : اكتب برنامج بلغة فيجوال بيسك مستخدما جملة select لقراءة عدد ما بين 20 – 90 وطباعة قيمته بالأرقام. السؤال الثاتي : اكتب برنامج بلغة فيجوال بيسك لإنشاء قائمتين منسدلتين 2 combo box تحتوي كل منها على اعداد من 1 الى 10 وإيجاد حاصل ضرب العدد الذي تم اختياره من combo الأولى مضروبا في العدد الذي تم اختياره من الثانية وتكون النتيجة في label. السؤال الثالث : اكتب برنامج بلغة فيجوال بيسك لإيجاد جميع الاعداد الواقعة بين 1 الى 1000 والتي تسمى اعداد ارمسترونج حيث ان عدد ارمسترونج هو ذلك العدد الذي مجموع تكعيب منازله يساوي ذلك العدد. مثال العدد 153 هو ارمسترونج حيث 3*3*3+5*5*5+1*1*1 = 153 السؤال الرابع : اكتب برنامج بلغة فيجوال بيسك (مستخدما جمل التكرار وجمل الشرط) لطباعة الشكل التالي * * * * * * * * * السؤال الخامس : اكتب برنامج بلغة فيجوال بيسك لتعريف مصفوفة عددية أحادية مكونة من 10 اعداد وطباعتها في datagrid وطباعة ثاني اكبر عدد فيها في LABEL وطباعة الاعداد الزائدة في listbox حيث ان العدد الزائد هو ذلك العدد الذي مجموع عوامله اكبر من ضعف العدد مثال العدد 12 عوامله هي 1,2,3,4,6,12 مجموعها 28 اكبر من ضعف العدد فهو عدد زائد السؤال السادس : اكتب برنامج باستخدام لغة فيجوال بيسك مستخدما الاقترانات وجمل التكرار ، قم بقرائة رقم من المستخدم N وطباعة ناتج العملية التاليه في label: هل من حل للأسئلة؟ طب يا جماعة حد يعرف حل السؤال الخامس؟؟ RE: ممكن مساعدة بحل هذه الأسئلة - ابو ليلى - 10-12-20 و عليكم السلام و رحمة الله و بركاته اسئلة جميلة و ممتعة اخي اسامة, لان الوقت ضيق و اعذرني على ذلك ساجيب على السؤال الخامس الذي طرحته بما امكن. نقسم السؤال الى عدة اسئلة و نحل كل منها على حدا. 1-اكتب برنامج بلغة فيجوال بيسك لتعريف مصفوفة عددية أحادية مكونة من 10 اعداد PHP كود : Dim Arr1 As Integer() = New Integer() {10, 11, 12, 36, 21, 15, 25, 32, 35, 48} يتوجب علينا اضافة عمود في القريد و من ثم اضافة عناصر المصفوفة اليها PHP كود : Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load نرتب المصفوفة من الاصغر الى الاعلى و نحصل على القيمة في الموقع المحدد. PHP كود : Array.Sort(Arr1) العدد 12 عوامله هي 1,2,3,4,6,12 مجموعها 28 اكبر من ضعف العدد فهو عدد زائد على ذلك نستنتج ان المطلوب يمكن تقسيمه كما يلي: نفحص كل عناصر المصفوفة رقماً رقم عن طريق دالة تقوم بتحليل الرقم الى عوامله الاولية حيث ان ناتج تقسيم الرقم على العدد المعطى لا ينتج عنه باقي قسمة. ثم نعود و نجمع العوامل الاولية الناتجة و نقارنها بضعف العدد , فاذا كان مجموعها اكبر من ضعف العدد نضيفها الى مصفوفة الارقام الزائدة. اولاً المصفوفة التي سنملئها بالارقام الزائدة PHP كود : Dim ListOfNumbers As New List(Of Integer) PHP كود : Private Function GetMultiPlayNumber(i As Integer) As Integer تمر على عناصر المصفوفة و تحلل العدد الى عوامله الاولية و من ثم المقارنة و اذا تحقق الشرط نضيفه الى مصفوفة الاعداد الزائدة PHP كود : Private Sub ListfDivision(p As Integer) PHP كود : Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click بالتوفيق اخي RE: ممكن مساعدة بحل هذه الأسئلة - Anas Mahmoud - 11-12-20 السؤال الاول : كود : Dim number As Integer = TextBox1.Text السؤال الثالث : كود : Dim units, tens, hundreds, thousands As Integer السؤال الرابع كود : For i As Integer = 0 To 4 |