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 :)
