编程论坛 → VB6论坛

做不出来了，谁帮我分析下

d123ym 发布于 2016-06-14 21:45， 1809 次点击

[local]1[/local]第八题谢谢

4 回复

d123ym2016-06-14 21:45

只有本站会员才能查看附件，请登录

ZHRXJR2016-06-15 00:18

程序代码：

For I = 1 To 2 * 9 - 1 Step 2

Print Space(6) & Space((9 - 1) - (I - 1) \ 2);
For J = 1 To I
Print "*";
Next J
Print
Next I

只有本站会员才能查看附件，请登录

xiangyue05102016-06-15 08:34

我只能说楼主不动脑子

a8141532016-06-15 08:42

程序代码：

Sub test()
    For i = 1 To 9
        Debug.Print Space(9 - i);
        For j = 1 To 2 * i - 1
            Debug.Print "*";
        Next j
        Debug.Print
    Next i
End Sub

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