[روان سعد]

السؤال الأول : اكتب برنامج بلغة فيجوال بيسك لقراءة 5 اعداد عن طريق احدى جمل التكرار  وطباعة العدد الأكبر  منها     
                                           
السؤال الثاني : اكتب برنامج بلغة فيجوال بيسك لإيجاد العدد الواقع بين العددين 1 الى 40 ويحقق الشرط التالي
(num*10+10)/10-10=10
مستخدما جمل التكرار وجمل الشرط.
 
السؤال الثالث : اكتب برنامج بلغة فيجوال بيسك مستخدما جمل التكرار لإدخال الاعداد من 1 – 12 والتي تمثل ارقام الشهور  في list  وعند الضغط على أي رقم يظهر اسم الشهر
مثال عند الضغط على 3 يظهر   March.
 
السؤال الرابع : اكتب برنامج بلغة فيجوال بيسك لقراءة خمس اعداد وطباعة عدد من النجم مقابل كل عدد تساوي ذلك العدد
مثال
No                                Star
===================
5                  *****
8                  ********
2                  **
4                 ****
1                 *
 
السؤال الخامس : اكتب برنامج بلغة فيجوال بيسك لقراءة عدد مكون من منزلتين وطباعة مجموع احاده وعشراته  وطباعة العدد بالشكل التالي وطباعته بالشكل المعاكس.
مثال : العدد   35         يطبع  
contains 3 tens and 5 ons and its reverse is 53
 

[الاصيله]

هذا جواب السؤال الاول
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