这是显示倒三角形*排列，算法感觉没有问题，但是怎么出来的是正方形*排列

Question

这是显示倒三角形*排列，算法感觉没有问题，但是怎么出来的是正方形*排列
n2 = n2 + 1
Print Tab(10 + n2); String$(2 * a - (2 * n2 - 1), "*")

Answer 1

似乎没有问题啊While n2 < a
n2 = n2 + 1
Print Tab(10 + n2); String$(2 * a - (2 * n2 - 1), "*")
Wend

Answer 2

Private Sub Form_Load()
Dim a, n2 As Long
a = 6
n2 = 0While n2 < a
n2 = n2 + 1
Print Tab(10 + n2); String$(2 * a - (2 * n2 - 1), "*")
WendMe.Refresh
End Sub显示出来是倒三角啊，我不知道你的程序怎么会这样？

Answer 3

Private Sub Form_click()
Print "*********"
Print Space$(1); "*******"; Space$(1)
Print Space$(2); "*****"; Space$(2)
Print Space$(3); "***"; Space$(3)
Print Space$(4); "*"; Space$(4)
End Sub
可以用这种方法去做啊,虽然麻烦了一点啊,但是很有效果
对于初学者来说可以用到不好的vb的内部函数