各位帮我解解这两个题目 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 各位帮我解解这两个题目

标题：各位帮我解解这两个题目

只看楼主

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

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-286376-1-1.html