| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1652 人关注过本帖
标题:做不出来了,谁帮我分析下
只看楼主 加入收藏
d123ym
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2016-6-14
结帖率:0
收藏
已结贴  问题点数:20 回复次数:4 
做不出来了,谁帮我分析下
[local]1[/local]第八题谢谢
2016-06-14 21:45
d123ym
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2016-6-14
收藏
得分:0 
图片附件: 游客没有浏览图片的权限,请 登录注册
2016-06-14 21:45
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:7 

程序代码:
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

图片附件: 游客没有浏览图片的权限,请 登录注册

请不要选我!!!
2016-06-15 00:18
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:941
专家分:5244
注 册:2015-8-10
收藏
得分:7 
我只能说楼主不动脑子
2016-06-15 08:34
a814153
Rank: 2
等 级:论坛游民
威 望:1
帖 子:13
专家分:24
注 册:2011-6-9
收藏
得分:7 
程序代码:
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



        *
       ***
      *****
     *******
    *********
   ***********
  *************
 ***************
*****************
2016-06-15 08:42
快速回复:做不出来了,谁帮我分析下
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.021499 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved