Question

For a=5 to 1 step -1

For b=1 To a
TextBox.AppendText(a)
Next
TextBox1.AppendText(Environment.NewLine)
Next

End Sub
End Class

Edit this program to show this answers
Answer:
54321
5432
543
543
5

Answer 1

Here is the edited program:

vb
Private Sub Button_Click(sender As Object, e As EventArgs) Handles Button.Click
For a = 5 To 1 Step -1
For b = 1 To a
TextBox.AppendText(b)
Next
TextBox.AppendText(Environment.NewLine)
Next
End Sub


This program will display the following answers in the TextBox:

54321
5432
543
54
5