*
    ***
   *****
  *******
 *********
***********
如题！先谢谢啦~

晕，图形怎么歪了，图形是个金字塔，大家看下该怎么编码？

*
    ***
   *****
  *******
 *********
***********

晕死，这图形怎么不能弄正的啊，对不住大家了，大家明白意思就好！

for m=4 to 0   步长-1
 输出m个空格
 输出9-m*2 个星
 输出回车
endfor
具体语法自已解决

[[it] 本帖最后由 烟雨袅袅 于 2008-4-8 16:18 编辑 [/it]]

Sub DrawSign(n As Long)
    Dim i As Long
   
    For i = 1 To n Step 2
        Print Space(n - i \ 2) & String(i, "*")
    Next
End Sub

Private Sub Command1_Click()
    DrawSign 11
End Sub

for i=1 to 4
 print spc(11-i);
for j=1 to 2*i-1
 print "*";
next
print chr(13)&chr(10)
next
变量自己定义~~

又是来做作业的！