منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[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=36485)

بعض الأسئلة تواجهني مشكلة في حلها - اسامه الهرماوي - 22-09-20

السلام عليكم...
هذه الأسئلة حاولت حلها ولكن لم أفلح فهل من مساعدة؟؟

السؤال الأول: اكتب كود لإيجاد جميع الأعداد الزائدة الواقعة بين 1 إلى 30؟
-الأعداد الزائدة هي: 12, 18, 20, 24, 30.

السؤال الثاني: إستخدم حلقة التكرار وبعض العمليات الحسابية وأظهر الناتج في TextBox للشكل التالي:
1  0  0  0  0
2  1  0  0  0
3  1  1  0  0
4  2  1  1  0
5  2  1  1  1

السؤال الثالث: كود لإيجاد العدد بين 1 إلى 40 ويحقق الشرط التالي:
 10 = 10-10/(num*10+10)

-أرجو من لدية فكرة يساعدنا وشكراً لكم.

RE: بعض الأسئلة تواجهني مشكلة في حلها - Mohamad Anan - 22-09-20

(22-09-20, 04:20 AM)اسامه الهرماوي كتب : السلام عليكم...
هذه الأسئلة حاولت حلها ولكن لم أفلح فهل من مساعدة؟؟

السؤال الأول: اكتب كود لإيجاد جميع الأعداد الزائدة الواقعة بين 1 إلى 30؟
-الأعداد الزائدة هي: 12, 18, 20, 24, 30.

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

جواب السؤال الأول

كود :
       REM لحفظ مجموع قواسم العدد
       Dim Total As Integer
       REM اختبار الأرقام من 1 ال ى 30
       For Number As Integer = 1 To 30
           REM ايجاد قواسم العدد من دونه
           For Num As Integer = 1 To Number - 1
               REM التأكد ان باقي القسمة = 0
               If Number Mod Num = 0 Then
                   REM جمع القواسم
                   Total = Total + Num
               End If
           Next
           REM العدد الزائد أصغر من مجموع قواسمه
           If Number < Total Then
               MessageBox.Show(Number.ToString)
           End If
           Total = 0
       Next


RE: بعض الأسئلة تواجهني مشكلة في حلها - Anas Mahmoud - 22-09-20

السؤال الأول :


كود :
       ' ايجاد الارقام
       Dim AbundantNumbers As New List(Of Integer)
       For Number As Integer = 1 To 30
           Dim FactorsSum As Integer = 1
           For Factor = 2 To Number / 2
               If Number Mod Factor = 0 Then FactorsSum += Factor
           Next
           If Number < FactorsSum Then AbundantNumbers.Add(Number)
       Next

       ' اخراج الارقام
       Dim str As String = AbundantNumbers(0)
       For i As Integer = 1 To AbundantNumbers.Count - 1
           str &= " , " & AbundantNumbers(i)
       Next

       TextBox1.Text = str

يكفي لايجاد العوامل التكرار لحد منتصف الرقم فقط ولا داعي لاكمال باقي الرقم


السؤال الثاني :

كود :
       Dim Limit As Integer = 5
       Dim Txt As TextBox = TextBox1

       For i As Integer = 1 To Limit
           For j As Integer = 1 To Limit
               Txt.AppendText(i \ j)
               If j < Limit Then Txt.AppendText("  ")
           Next
           If i < Limit Then Txt.AppendText(vbCrLf)
       Next

السؤال الثالث :

يبدو كمعادلة من الدرجة الاولى وحلها بسيط 19 ، ولكن على اي حال يمكن وضع الشرط داخل حلقة تكرار

كود :
       For num As Integer = 1 To 40
           If (num * 10 + 10) / 10 - 10 = 10 Then
               MsgBox(num)
           End If
       Next


RE: بعض الأسئلة تواجهني مشكلة في حلها - اسامه الهرماوي - 22-09-20

الكود دا:
كود :
Dim Limit As Integer = 5
      Dim Txt As TextBox = TextBox1

      For i As Integer = 1 To Limit
          For j As Integer = 1 To Limit
              Txt.AppendText(i \ j)
              If j < Limit Then Txt.AppendText("  ")
          Next
          If i < Limit Then Txt.AppendText(vbCrLf)
      Next
لو محتاج أخليه في Label هيكون إزاي؟؟

RE: بعض الأسئلة تواجهني مشكلة في حلها - Anas Mahmoud - 22-09-20

ضعه في String وضعه في اي مكان تريده

كود :
       Dim Limit As Integer = 5
       Dim str As String = ""

       For i As Integer = 1 To Limit
           For j As Integer = 1 To Limit
               str &= i \ j
               If j < Limit Then str &= "  "
           Next
           If i < Limit Then str &= vbCrLf
       Next

       Label1.Text = str