Pembuatan Piramida

PublicClass Form3

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click

Dim y, q, z AsByte

        y = 1

        q = Val(Nilai.Text)

        Hasil.Clear()

DoWhile y <= q

            z = 1

DoWhile z <= y

                Hasil.Text = Hasil.Text &" "& z

                z += 1

Loop

            Hasil.Text = Hasil.Text & vbCrLf

            y += 1

Loop

EndSub