在VBScript用递归实现这个图程序应怎样写??

shadowDLL 2004-11-21 01:03:03
在VBScript中
用递归实现: *
***
*****
*******
请教这个程序该怎么写呢(完整代码)???
...全文
91 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
inbreak 2004-11-21
  • 打赏
  • 举报
回复
调用一定要这样xun(层数,0)从0层开始,如果要完善自己看看改一下吧~~~~~~~~
inbreak 2004-11-21
  • 打赏
  • 举报
回复
Public Function xun(V1 As Integer, V2 As Integer) '层数,第几层
'调用a=xun(层数,0)
Dim i As Integer
Dim count As Integer '计数
Static spaceCount As String '空格数
Dim spaceB As String '"*"号
count = V2 + 1
If count = V1 + 1 Then Exit Function '到了这么多层

If count = 1 Then '第一层
spaceCount = Space(2 * V1 - 1)
spaceB = "*"
Else
spaceCount = Space(Len(spaceCount) - 1)
For i = 1 To count * 2 - 1
spaceB = spaceB & "*"
Next
End If
Debug.Print spaceCount & spaceB

i = xun(V1, count)


End Function
shadowDLL 2004-11-21
  • 打赏
  • 举报
回复
............

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧