Jajaran Genjang di Vb.Net

Membuat Tampilan Jajaran genjang di Vb.net

Kali ini saya akan memberikan contoh program dengan menampilkan jajaran di vb.net,saya disini menggunakan Console,silakan anda buat project baru,sebelum menerapkan kode silakan anda atur dahulu starting application nya seperti berikut ini :

Setelah itu anda klik double Form ,kemudian masukan kode berikut ini di Form Load :
Imports System.Console
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim bil, i, j, y As Integer
Write("Masukan Angka : ")
        bil = ReadLine()
        WriteLine("")
        If bil > 0 And bil <= bil Then
            For i = bil To 1 Step -1
                For j = 1 To i Step 1
                    Write(" ")
                Next j
                For j = 1 To bil Step 1
                    y = 2 * j - 1
                    Write("*")
                Next j
                WriteLine("")
            Next i
        End If
        ReadLine()
    End Sub 
Kemudian tekan F5 untuk mejalankan,maka anda akan melihat hasilnya seperti ini :

Nnah Seterusnya,jika anda mau menampilkannya dengan deretan angka,silakan masukan koding berikut ini:

Imports System.Console 

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim bil, i, j, y As Integer

        Write("Masukan Angka : ")

        bil = ReadLine()

        WriteLine("")

        If bil > 0 And bil <= bil Then

            For i = bil To 1 Step -1

                For j = 1 To i Step 1

                    Write(" ")

                Next j

                For j = 1 To bil Step 1

                    y = 2 * j - 1

                    Write(y)

                Next j

                WriteLine("")

            Next i

        End If

        ReadLine()

    End Sub 

Maka akan tampilannya Seperti berikut ini :

 Sekian dan terimakasih,Semoga bermanfaat.