vb学习递归的典型例子

1。阶乘

 

‘写个简单的例子,所谓阶乘的递归 

Private   Sub Command1_Click() Sub Command1_Click() 
    Debug.Print dg(7) 
End Sub  

Function dg() Function dg(n) 
    If n = 0 Then 
        dg = 1 
    Else 
        dg = dg(n - 1) * n 
    End If 
End Function  

 

2。快速排序法

 

Private   Sub Command1_Click() Sub Command1_Click() 
Dim a(10000) As Long 
Dim ii As Long 
For ii = 0 To 10000 
a(ii) = Fix(10000 * Rnd + 10) 
Next 

Call QkSort(a, 0, UBound(a)) 


For ii = 0 To UBound(a) 
Debug.Print a(ii) 
Next 

End Sub  
' 升序快速排序法 
Sub QkSort() Sub QkSort(Ay() As Long, Io As Long