Private Sub Command1_Click()
n = InputBox("enter N:", "输入层数")
Print "n="; n
For i = 1 To n
Print String(n - i, " "); String(2 * i - 1, "★")
Next i
End Sub
