[الاصيله]

هذا جواب السؤال الاول
Imports System

Module Program
Sub Main()
Dim numbers(4) As Integer

' قراءة الأعداد
For i As Integer = 0 To 4
Console.Write($"أدخل العدد {i + 1}: ")
numbers(i) = CInt(Console.ReadLine())
Next

' طباعة العدد الأكبر
Console.WriteLine($"العدد الأكبر هو: {numbers.Max()}")

Console.ReadKey()
End Sub
End Module

---

هذاجواب السؤال الثاني
Imports System

Module Program
Sub Main()
For num As Integer = 1 To 40
If (num * 10 + 10) / 10 - 10 = 10 Then
Console.WriteLine($"العدد الذي يحقق الشرط هو: {num}")
Exit For
End If
Next

If Not Console.IsOutputRedirected Then
Console.ReadKey()
End If
End Sub
End Module

---

هذا جواب السؤال الثالث
Imports System

Public Class Form1
Private months() As String = {"January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December"}

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
For i As Integer = 1 To 12
ListBox1.Items.Add(i)
Next
End Sub

Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
If ListBox1.SelectedIndex <> -1 Then
Dim monthName As String = months(ListBox1.SelectedIndex)
MsgBox(monthName)
End If
End Sub
End Class

---

هذا جواب السؤال الرابع
Imports System

Module Program
Sub Main()
For i As Integer = 1 To 5
Console.Write($"أدخل العدد {i}: ")
Dim num As Integer = CInt(Console.ReadLine())
Console.WriteLine($"{num} {New String("*"c, num)}")
Next

Console.ReadKey()
End Sub
End Module

---

وهذا جواب السؤال الخامس

Imports System

Module Program
Sub Main()
Console.Write("أدخل عدد مكون من منزلتين: ")
Dim num As Integer = CInt(Console.ReadLine())

Dim tens As Integer = num \ 10
Dim ones As Integer = num Mod 10

Console.WriteLine($"{num} contains {tens} tens and {ones} ones")

Dim reverse As Integer = ones * 10 + tens
Console.WriteLine($"and its reverse is {reverse}")

Console.ReadKey()
End Sub
End Module