[求助]怎样用VB编金字塔？
如何用VB边金字塔，就好像这样*
***
*****
*******
*********
***********
代码应该怎么样写呀？
[此贴子已经被作者于2007-3-21 16:29:46编辑过]
[此贴子已经被作者于2007-3-21 16:29:46编辑过]
2007-03-21 16:29
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
谢谢版主，^_^
2007-03-21 16:38
2007-03-21 16:40
2007-03-21 16:48