精通递归程序设计(VBA)--写给非科班VBA爱好者

fhb197999

留个脚印，到时来学习！

永在战场

第一次解除这个概念，学习一下！！！

1404526012

如老师说言,调试很费解.

excelvlookup

我对递归的理解：
1、sub 未执行完，再执行sub .
2、有多少sub 就有多少end sub.
3、最后一个end sub后，接着执行上一个未完的sub的参数。
4、了解了这个执行过程，就可以考虑算法了。

ykqrs

liu-aguang 发表于 2018-5-23 15:31
是网站出问题了?

祝老师新年快乐！

易人之言

折半法查找某值并返回在数组中的索引值，有个问题就是如何判断是否溢出？如数据只有1~15，我却搜索115，如何让其不查找？find ? in?

我想到的是findb(arr,mb)<=0 then msgbox("文本不存在") exit sub

但是如何在递归中用递归的方式实现呢。。。

1. 
   
2. Function f(arr, mb As Integer, s As Integer, w As Integer) As Integer
   
3.    
   
4.     Dim temp As Integer
   
5.     temp = Int((s + w) / 2)
   
6.     If (arr(temp) = mb) Then
   
7.         f = temp
   
8.     Else
   
9.         If (arr(temp) > mb) Then
   
10.         
    
11.             f = f(arr, mb, s, temp)
    
12.             
    
13.         
    
14.         Else
    
15.         
    
16.             f = f(arr, mb, temp, w)
    
17.         
    
18.         End If
    
19.     End If
    
20. 
    
21. End Function
    

复制代码

1. 
   
2. Sub a()
   
3. Dim arr
   
4.     arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15)
   
5.     Debug.Print f(arr, 10, LBound(arr), UBound(arr))
   
6. End Sub
   

复制代码

wzsy2_mrf

易人之言 发表于 2019-3-16 18:25
折半法查找某值并返回在数组中的索引值，有个问题就是如何判断是否溢出？如数据只有1~15，我却搜索115， ...

1. Option Explicit
   
2. Function f(arr, mb As Integer, s As Integer, w As Integer) As Integer
   
3.     Dim temp As Integer
   
4.     If s > w Then f = -1: Exit Function
   
5.     temp = Int((s + w) / 2)
   
6.     If (arr(temp) = mb) Then
   
7.         f = temp
   
8.     Else
   
9.         If (arr(temp) > mb) Then
   
10.             f = f(arr, mb, s, temp - 1)
    
11.         Else
    
12.             f = f(arr, mb, temp + 1, w)
    
13.         End If
    
14.     End If
    
15. End Function
    
16. Sub a()
    
17. Dim arr, a
    
18.     arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15)
    
19.     a = f(arr, 115, LBound(arr), UBound(arr))
    
20.     If a = -1 Then MsgBox "文本不存在"
    
21. End Sub
    

复制代码

易人之言

wzsy2_mrf 发表于 2019-3-16 19:17

    If s > w Then f = -1: Exit Function

这一句是与我的代码有区别的地方，可以实现我要的功能，谢谢！

448478825

这个程序作用很大！必须认真学习一下！

zopey

二分法研究

http://club.excelhome.net/thread-1474724-1-1.html