Question

一道vb题，请详细讲解一下每一部过程，顺便说一下递归，谢谢

Option Explicit

Private Sub command1_click()
Print Test(3)
End Sub
Private Function Test(t As Integer) As Integer
Dim i As Integer
If t >= 1 Then
Call Test(t - 1)
For i = 3 To t Step -1
Print Chr(Asc("A") + i)
Next i
Print
End If
Test = t
End Function

Answer 1

Option Explicit'强制变量定义，变量必须定以后才能使用

Private Sub command1_click()'command1的单击事件
Print Test(3)'在窗体上输出结果（结果是test函数返回的值，传过去的值是3）
End Sub'结束事件
Private Function Test(t As Integer) As Integer'定义test函数，传值方式是默认（传址），传的值为整形，返回值是整型
Dim i As Integer'定义i为整形
If t >= 1 Then'<1>如果t大于等于1
Call Test(t - 1)'<2>调用test函数，传的值为t-1（即比开始的数小1），递归就体现在这两步
For i = 3 To t Step -1'循环，i从3循环到t（当程序运行到这里的时候t=0），步长为-1
Print Chr(Asc("A") + i)'输出字母，字母的ASCII码比A的ASCII码大t
Next i'执行下一次循环
Print'输出一个空行
End If'结束if
Test = t'test返回值为t
End Function '结束

程序调用自身的编程技巧称为递归（ recursion）。
一个过程或函数在其定义或说明中又直接或间接调用自身的一种方法，它通常把一个大型复杂的问题层层转化为一个与原问题相似的规模较小的问题来求解，递归策略只需少量的程序就可描述出解题过程所需要的多次重复计算，大大地减少了程序的代码量。递归的能力在于用有限的语句来定义对象的无限集合。一般来说，递归需要有边界条件、递归前进段和递归返回段。当边界条件不满足时，递归前进；当边界条件满足时，递归返回。
注意：
(1) 递归就是在过程或函数里调用自身;
(2) 在使用递归策略时，必须有一个明确的递归结束条件，称为递归出口。