vb的倒三角怎么做

Private Sub Command1_Click()

n = Val(InputBox("N="))

Print "N="n

For i = 1 To n

Print Spc(i)String(2 * (n - i) + 1, "*")

Next i

End Sub

for i=7 to 1 step -2

    for j=1 to i

        s=s & "*"

    next

    print space((7-i)/2) & s

next