+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ممكن الاجابه عن الاسئله باسرع وقت ممكن (/showthread.php?tid=39323)
ممكن الاجابه عن الاسئله باسرع وقت ممكن - روان سعد - 17-08-21
السؤال الاول : اكتب برنامج بلغة فيجوال بيسك لإيجاد جميع الاعداد الواقعة بين 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]
RE: ممكن الاجابه عن الاسئله باسرع وقت ممكن - ابو انس - 18-08-21
في المرفقات برنامج ايجاد اعداد ارمسترونغ من 1 الى 500 (وذلك حسب الشكل الذي قمت انت بتحديده لاعداد ارمسترونج)
RE: ممكن الاجابه عن الاسئله باسرع وقت ممكن - ابو انس - 18-08-21
كود :
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 = zRE: ممكن الاجابه عن الاسئله باسرع وقت ممكن - ابو انس - 18-08-21
بخصوص السؤال الثاني طبعا لا بد من اضافة داتا جريد فيو وزر نضع فيه الكود وطبعا كما هو معروف 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