منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - ممكن الاجابه عن الاسئله باسرع وقت ممكن

السؤال الاول : اكتب برنامج بلغة فيجوال بيسك لإيجاد جميع الاعداد الواقعة بين 1 الى 500 والتي تسمى اعداد ارمسترونج حيث ان عدد ارمسترونج هو ذلك العدد الذي مجموع تكعيب منازله يساوي ذلك العدد.
مثال العدد 153 هو ارمسترونج حيث 3*3*3+5*5*5+1*1*1 = 153


السؤال الثاني: اكتب برنامج بلغة فيجوال بيسك لتعريف مصفوفة ثنائية ذات الابعاد 3*3 وإيجاد حاصل مجموع كل صف من صفوفها باستخدام الاقترانات وطباعتها في datagrid.


السؤال الثالث: اكتب برنامج بلغة فيجوال بيسك لقراءة علامات مجموعة من الطلاب وتخزينها في مصفوفة أحادية وإيجاد مجموع العلامات.


السؤال الرابع : : اكتب برنامج بلغة فيجوال بيسك   (مستخدما جمل التكرار وجمل الشرط) لطباعة الشكل التالي
*                       *
*                       *
*                      *
*                      *
*     *    *    *   *

السؤال الخامس : باستخدام اقتران الاستدعاء الذاتي وجمل التكرار ، قم بقرائة رقم   N وطباعة ناتج العملية التاليه:
[img=302x73]file:///C:/Users/lenovo/AppData/Local/Temp/msohtmlclip1/01/clip_image002.jpg[/img]

في المرفقات برنامج ايجاد اعداد ارمسترونغ من 1 الى 500 (وذلك حسب الشكل الذي قمت انت بتحديده لاعداد ارمسترونج)

كود :

    TextBox1.Text.Clone()

        Dim sum As Double = 0

        Dim H As Integer = DGV.Rows.Count - 1

        Dim A(H) As Integer

        For I As Integer = 0 To H

            A(H) = Val(DGV.Rows(I).Cells("Col1").Value)

            sum = Val(sum) + Val(A(H))

            ListBox1.Items.Add(A(H))

        Next

        TextBox1.Text = sum

جواب السؤال الثالث حيث لدينا داتا جريد فيو سنأخذ منها معلومات الطلاب ونخزنها في مصفوفة احادية ونوجد مجموع المصفوفة ونظهر علامة الطلاب من المصفوفة الى ليست بوكس

بخصوص السؤال الثاني

كود :

     Dim a(2, 2) As Integer

        a(0, 0) = 1

        a(0, 1) = 2

        a(0, 2) = 3

        a(1, 0) = 4

        a(1, 1) = 5

        a(1, 2) = 6

        a(2, 0) = 7

        a(2, 1) = 8

        a(2, 2) = 9

        Dim x As Integer = 0

        Dim y As Integer = 0

        Dim z As Integer = 0

        For i As Integer = 0 To 2

            x = x + a(i, 0)

        Next

        For i As Integer = 0 To 2

            y = y + a(i, 1)

        Next

        For i As Integer = 0 To 2

            z = z + a(i, 2)

        Next

        dgvv.Columns.Add("", "مجموع صفوف 0")

        dgvv.Columns.Add("", "مجموع صفوف 1")

        dgvv.Columns.Add("", "مجموع صفوف 2")

        dgvv.Rows.Add()

        dgvv.Rows(0).Cells(0).Value = x

        dgvv.Rows(0).Cells(1).Value = y

        dgvv.Rows(0).Cells(2).Value = z

بخصوص السؤال الثاني طبعا لا بد من اضافة داتا جريد فيو وزر نضع فيه الكود وطبعا كما هو معروف Dim a(2, 2) تعتبر مصفوفة 3*3 لان العد يبدأ من 0
اما بخصوص السؤال الخامس لا يوجد صورة وبخصوص السؤال المتبقي احتاج الى توضيح

كود :

       Dim a(2, 2) As Integer

        a(0, 0) = 1

        a(0, 1) = 2

        a(0, 2) = 3

        a(1, 0) = 4

        a(1, 1) = 5

        a(1, 2) = 6

        a(2, 0) = 7

        a(2, 1) = 8

        a(2, 2) = 9

        Dim x As Integer = 0

        Dim y As Integer = 0

        Dim z As Integer = 0

        For i As Integer = 0 To 2

            x = x + a(i, 0)

        Next

        For i As Integer = 0 To 2

            y = y + a(i, 1)

        Next

        For i As Integer = 0 To 2

            z = z + a(i, 2)

        Next

        dgvv.Columns.Add("", "مجموع صفوف 0")

        dgvv.Columns.Add("", "مجموع صفوف 1")

        dgvv.Columns.Add("", "مجموع صفوف 2")

        dgvv.Rows.Add()

        dgvv.Rows(0).Cells(0).Value = x

        dgvv.Rows(0).Cells(1).Value = y

        dgvv.Rows(0).Cells(2).Value = z

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

روان سعد

ابو انس

ابو انس

ابو انس