piramide

[droomke]

Kan iemand me helpen?

Nu zit ik nog met een probleempje:

Dit is de opgave:

Als ik op een knop druk moeten er 2 labels opgevuld worden met dit:

label1:
1
1 2
1 2 3
1 2 3 4
1 2 3 4 5

label 2:
5
5 4
5 4 3
5 4 3 2
5 4 3 2 1

Maar ik zit volledig vast. Dit heb ik momenteel van code voor het eerste label:

Public Class frmPiramide

Private Sub btnPiramides_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPiramides.Click
Me.lblUp.Text = ""
Dim teller As Integer
For teller = 1 To 5
Me.lblUp.Text = Me.lblUp.Text & (teller) & vbCrLf
Next teller

End Sub
End Class


En in het label verschijnt dan:
1
2
3
4
5

 

[Held]

om jou voorbeeldje even aan te passen

Public Class frmPiramide

Private Sub btnPiramides_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPiramides.Click

Me.lblUp.Text = ""

Dim teller As Integer
Dim strTotaal as string

For teller = 1 To 5
strTotaal = strTotaal & " " & cstr(teller)
Me.lblUp.Text = Me.lblUp.Text & strInhoud & vbCrLf
Next teller

End Sub
End Class