VB.NET 繰り返しで ＊ ＊＊ ＊＊＊ ＊＊＊＊ ＊＊＊＊＊ ～～～ 表示

Question

for文をつかって、
実行結果
＊
＊＊
＊＊＊
＊＊＊＊
＊＊＊＊＊
＊＊＊＊＊＊
＊＊＊＊＊＊＊
＊＊＊＊＊＊＊＊
＊＊＊＊＊＊＊＊＊
＊＊＊＊＊＊＊＊＊＊
表示させたい。

下記のコードを実行すると、*しかでません。
助けて頂けると幸いです。

Public Class
Private Sub Button_Display_Click(sender As Object, e As EventArgs) Handles Button_Display.Click

    For i As Integer = 1 To 9
        Dim total As String = CStr(1 * i)
        total = "*"
        TextBox_Display.Text = total
    Next

End Sub

End Class

Comments

[ttyp03]

質問を書きましょう。

[fffu8]

追記しました。一ずつ足して表示させることができません。

[KOZ6.0]

StringBuilder.AppendLine を調べると幸せになれるかも。

[fffu8]

ありがとうございます。

[Zuishin]

これを提出してください。

Dim count = 10
Dim text = Enumerable _
.Range(0, count) _
.Select(Function(a) Enumerable.Repeat(" "c, count).ToArray()) _
.ToArray()
Dim directions As (x As Integer, y As Integer)() = {(0, 1), (1, 0), (-1, -1)}
Dim direction = 0
Dim x = 0
Dim y = -1
For i = count To 1 Step -1
For j = 0 To i - 1
x += directions(direction).x
y += directions(direction).y
text(y)(x) = "*"
Dim output = text _
.Select(Function(a) New String(a) + vbCrLf) _
.Aggregate(Function(a, b) a + b)
TextBox_Display.Text = output
Next
direction = (direction + 1) Mod directions.Length
Next

[fffu8]

ご丁寧にありがとうございます。もう少し簡易的は書けないでしょうか？

[Zuishin]

あなたが自力で書けるレベルまで簡易化すればいいですか？

[fffu8]

はいお願い致します。

[Zuishin]

でもあなた自力で正解にたどりつけませんよね？ そのレベルでいいんですか？

Answer 1

質問者様のためにはまったくならないけど、私は質問者様の人生のことを気にする必要はまったくないのでコードを載せます。
あ、当然ですが、テキストボックスのMultilineプロパティはTrueにすること。

Dim total As String = ""
For i As Integer = 1 To 9
    For j As Integer = 1 To i
        total = total + "*"
    Next
    total = total & vbCrLf
Next
TextBox_Display.Text = total