[Anas Mahmoud]

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

كود :

       ' ايجاد الارقام
       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