希望记录二分查找1列数值

爱疯

过程.rar (10.28 KB, 下载次数: 7)

2013-3-2 21:46 上传

点击文件名下载附件


Dim A
Public s
Sub test1()
    Dim x, y, z
    A = Range("A1").CurrentRegion
    x = Int((1 + UBound(A)) / 2)
    y = A(x, 1)
    z = [e1]
    s = ""
    MsgBox dg(x, y, z)
End Sub


Function dg(x, y, z)    'x是二分位；y是二分位上的值；z是查找值
'    Debug.Print "x=" & x, "y=" & y
    s = s & "二分位第" & x & "个数，值为" & y & vbCrLf
    If y = z Then
        '结束递归
        GoTo 100
    Else
        '继续递归
        If y > z Then
            '往上查
            Select Case x
            Case 1
                '结束递归
                GoTo 100
            Case 2
                x = 1
            Case Else
                x = Int((1 + x) / 2)
            End Select
        Else
            '往下查
            Select Case x
            Case UBound(A) - 1
                x = UBound(A)
            Case UBound(A)
                '结束递归
                GoTo 100
            Case Else
                x = x + 1 + Int((1 + UBound(A) - x) / 2)
            End Select
        End If
        y = A(x, 1)
        dg = dg(x, y, z)
    End If
100
dg = s
End Function



不知这样举例和写，是最简单的情况吗？
不知写的对不对，还请指点，谢谢！

爱疯

一发就发现，找43，报错

爱疯

过程2.rar (10.45 KB, 下载次数: 0)

2013-3-2 22:02 上传

点击文件名下载附件
还是不对，好像还有其他规则没+


Dim A
Public s
Sub test1()
    Dim x, y, z
    A = Range("A1").CurrentRegion
    x = Int((1 + UBound(A)) / 2)
    y = A(x, 1)
    z = [e1]
    s = ""
    MsgBox dg(x, y, z)
End Sub
Function dg(x, y, z)    'x是二分位；y是二分位上的值；z是查找值
'    Debug.Print "x=" & x, "y=" & y
    s = s & "查找值是" & z & "，二分位是第" & x & "个数，值是" & y & vbCrLf
    If y = z Then
        GoTo 100    '结束递归
    Else
        '继续递归
        If y > z Then
            '往上查
            Select Case x
            Case 1
                GoTo 100    '结束递归
            Case 2
                x = 1
                y = A(x, 1)
                GoTo 100    '结束递归
            Case Else
                x = Int((1 + x) / 2)
            End Select
        Else
            '往下查
            Select Case x
            Case UBound(A) - 1
                x = UBound(A)
                y = A(x, 1)
                GoTo 100    '结束递归
            Case UBound(A)
                GoTo 100    '结束递归
            Case Else
                x = x + 1 + Int((1 + UBound(A) - x) / 2)
            End Select
        End If
        y = A(x, 1)
        dg = dg(x, y, z)
    End If
100
    dg = s
End Function

l00l00

源数据不排序，体现不出二分的优势哦。

爱疯

错误1：好像少了最后一次查找
错误2：有个什么规则，说连续相同数，就如何如何。。。。。，就没+

爱疯

错误3：找74时，出现连续循环

爱疯

l00l00 发表于 2013-3-2 22:16
源数据不排序，体现不出二分的优势哦。

条件1：代码要正确（没做到）
条件2：使用前，要对数据排升序（使用者自己检查）

都做到，才能正确查找。
唉，条件1还做不到，是不是正确代码很复杂，因为要考虑各种情况，我怀疑是。。。。