vb.net - vb.netリストボックスで三角形を印刷する方法

Question

vb.net を使用して、リスト ボックス コントロールに 8 行の三角形を印刷しようとしています。何度も試しましたが、達成できません。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim i, j, n As Integer
    i = 1
    j = 1
    n = 8
    While i <= n
        i += 1
        j = 1
        While j <= 1
            listbox1.items.add( "*" & vbCrLf)
            j += 1
        End While

    End While

End Sub

Answer 1

頭のてっぺんに2つのものが見えます。2 番目のWhileステートメントでは、J <=1代わりにJ <= i. しかし、主なことは、「*」の文字列を作成してからそれをに追加するのListBoxではなく、各 * に個々のアイテムを追加することです。

ここに1つの方法があります

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim i, j, n As Integer
    i = 1
    j = 1
    n = 8
    While i <= n
        j = 1
        Dim tmp As String = "" 'String to build your Line
        While j <= i
            tmp += "*"
            j += 1
        End While
        ListBox1.Items.Add(tmp)
        i += 1 'Moved to end otherwise you start with 2 *'s
    End While

End Sub

もう1つは1つだけを使用してWhile

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim i, n As Integer
    i = 1
    n = 8

    While i <= n
        ListBox1.Items.Add(StrDup(i, "*") )
        i += 1
    End While

End Sub