Private Sub Command1_Click()Dim n As Integern = InputBox("请输入输出层数：", "输入框")For i = 1 To nFor j = 1 To 2 * i - 1Print "*";NextPrintNextEnd Sub
