+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : النقاش والأسئلة حول الإصدارات الأحدث من الفيجوال ستوديو (http://vb4arb.com/vb/forumdisplay.php?fid=155)
+--- الموضوع : ممكن الاجابه عن الاسئله باسرع وقت ممكن (/showthread.php?tid=39271)
ممكن الاجابه عن الاسئله باسرع وقت ممكن - روان سعد - 10-08-21
السؤال الأول : اكتب برنامج بلغة فيجوال بيسك لقراءة 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
RE: ممكن الاجابه عن الاسئله باسرع وقت ممكن - الاصيله - 10-06-25
هذا جواب السؤال الاول
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