[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
بالنسبة للسؤال ستتم الاجابة عنه بلغة فيجوال بيسك نت كوني لم اعد اتذكر شيئا من الفيجوال بيسك 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