急求——VB金字塔编程！！！

来源：百度知道 编辑：UC知道 时间：2024/09/25 17:19:50
编程创造如下图案
*
* * *
* * * * *
* * * * * * *
最好能用FOR~NEXT函数和String(i,"*")函数
thanks a million!!!

Private Sub Command1_Click()
x = 2 '你想要几行,就改成几
For i = 1 To x * 2 Step 2
Me.Print Space(x - i / 2 + 0.5); String(i, "*")
Next i
End Sub

for i = 1 to 7 step 2
for j = 1 to i
输出"*"
next
输出换行
next
好象是STEP吧 不是就自己加1

For i = 1 To 20 Step 2
Me.Print String(i, "*")
Next i