用VB编写 那种三角型的 代码？？

来源：百度知道 编辑：UC知道 时间：2024/06/05 16:23:00
要求在窗体上输出，尽量简单点，不用数组，

*
***
*****

我主要是不知道前面的那些空格应该怎么办？？？
星的前面是有空格的， 第一行 2 个空格， 第二行 1个空格 ，第三行没有空格

Private Sub Form_Click()
Cls
n = 6
For i = 1 To n
Print Tab(n - i + 1); String(2 * i - 1, "*")
Next
End Sub

Private Sub Command1_Click()

Cls

g = Text1

For a = 1 To g

For b = 1 To a

Print "*";

Next b

Print

Next a

End Sub

dim r as string,i as integer
for i=1 to 3
r=string(3-i," ")+string(i,"*")
print r
next i

看好 0871love 的程序 ， 学习了。