اكتب برنامج بلغة فيجوال بيسك لقراءة 5 اعداد وتخزينها في مصفوفة احادية ثم اطبع هذه الاعداد كل عدد في سطر ومقابل كل رقم يكون نجوم stars مساوي لذلك العدد كما في يلي:
Number stars
5 * * * * *
3 * * *
7 * * * * * * *
4 * * * *
1 *
السلام عليكم ورحمة الله وبركاته
بالنسبة للسؤال ستتم الاجابة عنه بلغة فيجوال بيسك نت كوني لم اعد اتذكر شيئا من الفيجوال بيسك 6
يمكن لاي أخ من الاخوة الكرام ممن ليهم معرفة بالفيجوال بيسك 6 وفيجوال بيسك نت تحويل الكود
لذا المعذرة من عدم كتابتي الكود بالفيجوال بيسك 6
كود Vb.net
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim AA() As Integer = {3, 6, 8, 5, 1}
ListBox1.Items.Clear()
For i As Integer = 0 To AA.Length - 1
Dim str As String = ""
str = AA(i) & " "
For k As Integer = 1 To AA(i)
str &= "*"
Next
ListBox1.Items.Add(str)
Next
End Sub