如何用VB边金字塔，就好像这样
*
***
*****
*******
*********
***********

代码应该怎么样写呀？

[此贴子已经被作者于2007-3-21 16:29:46编辑过]

Private Sub Command1_Click()
Dim i As Integer, j As Integer

For i = 1 To 5
Print Tab(20 - i);
j = 2 * i - 1
Print String(j, "*")
Next
End Sub

谢谢版主，^_^

不是呀，我是要点一下出第一个，点第二下出第二行，第三下出第三行那样的呀

Private Sub Command1_Click()
Static i As Integer
i = i + 1
Print Tab(20 - i);
Print String(i * 2 - 1, "*")
End Sub

建议多用脑..

不好意思，我是刚学VB的，以前都是VFP的，呵呵，谢谢版主啦