CREATE A VISUAL BASIC application that displays four triangles. I got the first

Question

CREATE A VISUAL BASIC application that displays four triangles. I got the first 2 triangle patterns down, but cannot succeed in the last two triangles that need to start backwards. This is what I have so far.

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

i = 1
n = 21
'pattern 1
While i <= n
ListBox1.Items.Add(StrDup(i, "e"))
i += 1
End While
Console.WriteLine(" ")
'Pattern 2
For i = n To 1 Step -1
ListBox1.Items.Add(StrDup(i, "e"))
Console.WriteLine()
Next i

'Pattern 3

??????

'Pattern 4

????

It should look like this

U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U U

Explanation / Answer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

i = 1
n = 21

'PATTERN A
Dim i As Integer
For i = 1 To n
ListBox1.Items.Add(StrDup(i, "*"))
Console.WriteLine()
Next i

'PATTERN B
Dim i As Integer
For i = n To 1 Step -1
ListBox1.Items.Add(StrDup(i, "e"))
Console.WriteLine()
Next i

'PATTERN C
Dim i As Integer
For i = n To 1 Step -1
ListBox1.Items.Add(Space(n - i) + StrDup(i, "e") )
Console.WriteLine()
Next i

'PATTERN D
Dim i As Integer
For i = 1 To 10
ListBox1.Items.Add(Space(n - i) + StrDup(i, "e"))
Console.WriteLine()
Next i

End Sub

Related Questions

Navigate

• Browse (All)
• Browse C
• Subjects

---