[سؤال] ممكن الحل - نسخة قابلة للطباعة

[سؤال] ممكن الحل - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : [سؤال] ممكن الحل (/showthread.php?tid=41444)

ممكن الحل - donia hamdan - 15-05-22

اكتب برنامج بلغة فيجوال بيسك لقراءة 5 اعداد وتخزينها في مصفوفة احادية ثم اطبع هذه الاعداد كل عدد في سطر ومقابل كل رقم يكون نجوم stars مساوي لذلك العدد كما في يلي:
Number stars
5 * * * * *
3 * * *
7 * * * * * * *
4 * * * *
1 *

RE: ممكن الحل - ابراهيم ايبو - 15-05-22

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

RE: ممكن الحل - Taha Okla - 15-05-22

تفضل :

كود :

   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