Module Module1
Dim a As Rectangle
Sub Main()
fill(4)
Console.Read()
End Sub
Sub fill(ByVal x As Integer)
Console.WriteLine(x)
If x > 0 Then Call fill(x - 1)
If x > 0 Then fill(x - 1)
End Sub
End Module
输出结果是怎样的？怎样算的？

搞了半天，问题已解决了！