| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 592 人关注过本帖
标题:各位帮我解解这两个题目
只看楼主 加入收藏
smalljie
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2009-9-20
结帖率:0
收藏
已结贴  问题点数:10 回复次数:5 
各位帮我解解这两个题目
*
*#*
*#*#*
*#*#*#*





还有这个



       *
      *#*
     *###*
    *#####*
搜索更多相关主题的帖子: 解解 
2009-09-21 17:35
zhuyongxing
Rank: 6Rank: 6
等 级:侠之大者
威 望:1
帖 子:234
专家分:482
注 册:2009-8-5
收藏
得分:3 
Private Sub Command1_Click()
s = "*#*#*#*"
For i = 1 To 4
Print Left(s, 2 * i - 1)
Next i
End Sub
 
Private Sub Command2_Click()
Print Tab(10); "*"
For i = 1 To 3
Print Tab(10 - i); "*"; String(2 * i - 1, "#"); "*"
Next i
End Sub
2009-09-21 22:43
zhuyongxing
Rank: 6Rank: 6
等 级:侠之大者
威 望:1
帖 子:234
专家分:482
注 册:2009-8-5
收藏
得分:0 
第一个也可以这样写
Private Sub Command1_Click()
Dim s As String
Print "*"
For i = 1 To 3
 s = s + "#*"
 Print "*"; s
 Next i
End Sub
2009-09-22 00:04
smalljie
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2009-9-20
收藏
得分:0 
回复 2楼 zhuyongxing
谢了
2009-09-22 11:56
counfry
Rank: 1
等 级:新手上路
帖 子:2
专家分:5
注 册:2009-9-28
收藏
得分:3 
第一题也可以这样写啊
Print “* ”
Print “*”&“#”&“* "
Print "*"&"#"&"*"&"#"&"*"
Print "*"&"#”&“*”&“#”&“*”&“#”&“*”
 
2009-09-28 16:27
zhuiis
Rank: 4
等 级:业余侠客
威 望:1
帖 子:201
专家分:286
注 册:2008-11-8
收藏
得分:3 
我是个新手,今天来看看
2009-09-28 20:19
快速回复:各位帮我解解这两个题目
数据加载中...
 
   



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

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