[Anas Mahmoud]

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

كود :

       Dim number As Integer = TextBox1.Text

       If Not (number >= 20 AndAlso number <= 90) Then Return

       Dim tens As Integer = number \ 10
       Dim units As Integer = number - tens * 10
       Dim tensStr, unitsStr As String

       Select Case units
           Case 0
               unitsStr = ""
           Case 1
               unitsStr = "واحد"
           Case 2
               unitsStr = "اثنين"
           Case 3
               unitsStr = "ثلاثة"
           Case 4
               unitsStr = "أربعة"
           Case 5
               unitsStr = "خمسة"
           Case 6
               unitsStr = "ستة"
           Case 7
               unitsStr = "سبعة"
           Case 8
               unitsStr = "ثمانية"
           Case 9
               unitsStr = "تسعة"
       End Select

       Select Case tens
           Case 2
               tensStr = "عشرين"
           Case 3
               tensStr = "ثلاثين"
           Case 4
               tensStr = "أربعين"
           Case 5
               tensStr = "خمسين"
           Case 6
               tensStr = "ستين"
           Case 7
               tensStr = "سبعين"
           Case 8
               tensStr = "ثمانين"
           Case 9
               tensStr = "تسعين"
       End Select

       If String.IsNullOrWhiteSpace(unitsStr) Then
           Label1.Text = tensStr
       Else
           Label1.Text = unitsStr & " و " & tensStr
       End If

---

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

كود :

       Dim units, tens, hundreds, thousands As Integer
       Dim armstrongNumbers As New List(Of Integer)
       For i As Integer = 1 To 1000

           units = i Mod 10
           tens = (i Mod 100) \ 10
           hundreds = (i Mod 1000) \ 100
           thousands = i \ 1000

           If i = units ^ 3 + tens ^ 3 + hundreds ^ 3 + thousands ^ 3 Then
               armstrongNumbers.Add(i)
           End If

       Next

       ListBox1.DataSource = armstrongNumbers

---

السؤال الرابع

كود :

       For i As Integer = 0 To 4
           If i > 0 Then
               TextBox2.AppendText("*")
               For t As Integer = 1 To i
                   TextBox2.AppendText(vbTab)
               Next
           End If
           TextBox2.AppendText("*" & vbCrLf)
       Next