[donia hamdan]

اكتب برنامج بلغة فيجوال بيسك لقراءة 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

[Taha Okla]

تفضل : 

كود :

   Dim x(4) As Integer
   
   For i = 0 To 4
       x(i) = InputBox("أدخل الرقم الـ" & i + 1, "مربع الادخال", vbOK)
       
   Next i
   
   For i = 0 To 4
       Print x(i) & vbTab & String(x(i), "*")
   Next i