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

Question

在VBScript中
用递归实现：                 *
                           ***
                          *****
                         ******* 
请教这个程序该怎么写呢(完整代码)？？？

Answer 1

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 & spaceBi = xun(V1, count)
End Function

Answer 2

调用一定要这样xun(层数,0)从0层开始,如果要完善自己看看改一下吧~~~~~~~~