Question

一道VB题目求解

Option Base 1
Private Sub Command1_Click()
Dim a
a = Array(1, 1, 1, 1)
Call sub1(a, 4)
For i = 1 To 4
Print a(i)
Next i
End Sub
Public Sub sub1(x, n)
If n > 1 Then
For i = 1 To n
x(n) = x(n) + 1
Call sub1(x, n - 1)
Next i
End If
End Sub 求输出结果，我要详细过程，答案是1，25，13，5，急用非常感谢

Answer 1

如下，加一句print i,n，你应该可以看明白了。

Option Base 1

Private Sub Command1_Click()
Dim a
a = Array(1, 1, 1, 1)
Call sub1(a, 4)
For i = 1 To 4
Print a(i)
Next i
End Sub

Public Sub sub1(x, n)
If n > 1 Then
For i = 1 To n
x(n) = x(n) + 1
Print i, n'为了看的明白，增加的一行
Call sub1(x, n - 1)
Next i
End If
End Sub

Answer 2

是个数组传递的递归题。程序运行到Call sub1(a, 4)，即产生子程序调用Public Sub sub1(x, n)，这时a数组传址给x，n=4。所以执行for i= 1 to 4。i=1时x（4）=x（4）+1。call将参数（x，4-1）传给（x，n）这时n=3。for i= 1 to 3。当i=1时，x（3）=x（3）+1，（x，3-1）传给（x，n）n=2……

这个题就难在递归里又欠着循环，循环里有递归。过程非常麻烦 单纯在百度上是没办法把全部过程讲清楚的。

建议你在草稿纸上推导 要比单纯用眼睛看有用的多

Answer 3

这是个嵌套循环，过程很麻烦，不好理呀