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 가지를 보았습니다. 두 번째 While 문에는 J <= i 대신 J <=1이 있습니다. 하지만 가장 중요한 점은 "*"에 문자열을 작성한 다음 ListBox에 추가하는 대신 각 항목에 개별 항목을 추가하는 것입니다.

여기에 사용하는 하나의 방법

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 

다른 단지 하나의 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