|
网站首页
|
业界新闻
|
小组
|
威客
|
人才
|
下载频道
|
博客
|
代码贴
|
在线编程
|
编程论坛
|
登录
注册
短消息
我发表的主题
我参与的主题
我收藏的贴子
我上传的附件
我下过的附件
编辑个人资料
我的博客
用户控制面板
搜索
道具
恢复默认风格
碧海青天
秋意盎然
棕红预览
粉色回忆
蓝雅绿
紫色淡雅
青青河草
e点小镇
橘子红了
红红夜思
水晶紫色
雪花飘飘
新年快乐
风格
短消息
论坛展区
帮助
编程论坛
→
开发语言
→
『 VB6论坛 』
→ 各位帮我解解这两个题目
我的收件箱(0)
欢迎加入我们,一同切磋技术
用户名:
密 码:
共有
592
人关注过本帖
标题:
各位帮我解解这两个题目
只看楼主
加入收藏
smalljie
等 级:
新手上路
帖 子:6
专家分:0
注 册:2009-9-20
结帖率:
0
楼主
收藏
已结贴
√
问题点数:10 回复次数:5
各位帮我解解这两个题目
*
*#*
*#*#*
*#*#*#*
还有这个
*
*#*
*###*
*#####*
搜索更多相关主题的帖子:
解解
2009-09-21 17:35
举报帖子
使用道具
赠送鲜花
zhuyongxing
等 级:
侠之大者
威 望:
1
帖 子:234
专家分:482
注 册:2009-8-5
第
2
楼
收藏
得分: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
等 级:
侠之大者
威 望:
1
帖 子:234
专家分:482
注 册:2009-8-5
第
3
楼
收藏
得分: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
等 级:
新手上路
帖 子:6
专家分:0
注 册:2009-9-20
第
4
楼
收藏
得分:0
回复 2楼 zhuyongxing
谢了
2009-09-22 11:56
举报帖子
使用道具
赠送鲜花
counfry
等 级:
新手上路
帖 子:2
专家分:5
注 册:2009-9-28
第
5
楼
收藏
得分:3
第一题也可以这样写啊
Print “* ”
Print “*”&“#”&“* "
Print "*"&"#"&"*"&"#"&"*"
Print "*"&"#”&“*”&“#”&“*”&“#”&“*”
2009-09-28 16:27
举报帖子
使用道具
赠送鲜花
zhuiis
等 级:
业余侠客
威 望:
1
帖 子:201
专家分:286
注 册:2008-11-8
第
6
楼
收藏
得分:3
我是个新手,今天来看看
2009-09-28 20:19
举报帖子
使用道具
赠送鲜花
6
1/1页
1
快速回复:
各位帮我解解这两个题目
数据加载中...
关于我们
|
广告合作
|
编程中国
|
清除Cookies
|
TOP
|
手机版
编程中国
版权所有,并保留所有权利。
Powered by
Discuz
, Processed in 0.023932 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved