piramide (Opgelost)

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

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

Label1.Text = ""
Dim x As String = ""

Dim teller As Integer
For teller = 1 To 5
    x &= teller.ToString()
    Label1.Text &= x & Environment.NewLine()
Next teller

Label1.Text = ""
Dim x As String = ""
 
Dim teller As Integer
For teller = 1 To 5
    x &= teller.ToString()
    Label1.Text &= x & Environment.NewLine()
Next teller

Label2.Text = ""
Dim y As String = ""
Dim teller_twee As Integer = 5

While teller_twee > 0
    y &= teller_twee.ToString()
    Label2.Text &= y & Environment.NewLine()
    teller_twee = teller_twee - 1
End While

Label2.Text = ""
Dim y As String = ""
Dim teller_twee As Integer = 5
 
While teller_twee > 0
    y &= teller_twee.ToString()
    Label2.Text &= y & Environment.NewLine()
    teller_twee = teller_twee - 1
End While