MEMBUAT SEGITIGA ANGKA DENGAN LOOPING

Misi ya gan, mau iseng2 posting tugas dulu neh..
Skalian nambahin postingan gitu. Mudahan bermanfaat.
Langsung aja neh gan.

1. Desainlah Formnya seperti gambar dibawah ini dan atur juga propertinya.

Ketikkan aja nih listinya gan yah:
Public Class Form1

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click
        Dim y, q, z As Byte
        y = 1
        q = Val(Nilai.Text)
        Hasil.Clear()

        Do While y <= q
            z = 1
            Do While z <= y
                Hasil.Text = Hasil.Text & " " & z
                z += 1
            Loop
            Hasil.Text = Hasil.Text & vbCrLf
            y += 1
        Loop
    End Sub

    Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click
        Hasil.Text = ""
        Nilai.Text = ""
    End Sub
End Class

Nah,, gini nih hasil nya ketika menekan F5

2. Desainlagi Formnya dan atur propertinya seperti gambar dibawah ini yah :

Nah, ini dia nih listingnya,, tinggal ketik aja :
Public Class Form2

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click
        Dim i, n As Integer
        Dim j As Integer
        Dim a As String
        n = CType(TextBox1.Text, Integer)
        For i = 1 To n
            a = ""
            For j = 1 To i
                a = a & Str(j)
            Next j
            ListBox1.Items.Add(a)
        Next i
    End Sub

    Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click
        ListBox1.Items.Clear()
        TextBox1.Text = ""
    End Sub
End Class
Nah, tekan F5 dan hasilnya seperti ini nih:

3. Nih yang terakhir desain lagi Form dan atur juga propertinya seperti gambar ini :

Ketik aja nih listingnya yah:
Public Class Form3

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click
        Dim i, n As Integer
        Dim j As Integer
        Dim a As String
        n = CType(TextBox1.Text, Integer)
        For i = n To 1 Step -1
            a = ""
            For j = 1 To i
                a = a & Str(j)
            Next j
            ListBox1.Items.Add(a)
        Next i
    End Sub

    Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click
        ListBox1.Items.Clear()
        TextBox1.Text = ""
    End Sub
End Class
Setelah tekan F5, seperti ini hasilnya:

Sekian dulu postingannya ya gan..!!
Thanks for all.