MEMBUAT PIRAMIDA BINTANG DENGAN VISUAL BASIC

Piramida berbintang itu gampang kok buatnya. namun, ada beberapa hal yang perlu diperhatikan
yaitu :

untuk membuat seperti listnya itu, sebenarnya menggunakan textbox tapi dibagian properties pada alignmentnya dirubah menjai center. kemudian pada bagian multiline nya dirubah menjadi True.

berikut kodingnya :

Private Sub Command1_Click()

Dim i As Integer

n = Val(Text2.Text)

For i = 1 To n

Text1.Text = Text1 & String(i, "*") & vbCrLf

Next

End Sub

Private Sub Command2_Click()

Text1.Text = " "

Text2.Text = " "

End Sub

Private Sub Command3_Click()

End

End Sub

semoga bermanfaat ya :)