查找的问题

2020-02-24 04:18:42 594 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

二分查找边界问题总结二分查找很常见，思路也很清晰。但是还是那句经典的话：思路越简单，细节越丰富。二分查找 "恶心"人的地方有三个： while 里面是left <= right 还是 left < right ? 缩小区间的时候，left 和 right 要不要带上mid？（最可能引起死循环的原因）返回啥？ left 还是 right ？有时候凭感觉写的对了，有时候就错了，这就是传说中的7分天注定，3分靠感觉！coding的最终奥义，无脑编程！拿最常用的三个二分查找场景：寻找一个数寻找一阅读详情

我想实现上述功能，点击查找，弹出查找对话框，输入查找内容，点击查找按钮(这几步我都会)，下面不会
第一个含有查找内容的一行显示为蓝色，再次点击查找按钮，第二个含有查找内容的一行显示为蓝色。
主要是查找算法不太会。
请高手指教，谢谢！

...全文

深入解析DDR5 RFM机制：从JESD79-5标准到硬件实现本文深入解析了DDR5内存标准中的关键机制——RFM（Refresh Management）。文章从JESD79-5标准出发，详细阐述了RFM如何通过RAA计数器实现从被动定时到主动响应的智能刷新管理，并探讨了其硬件实现细节、命令调度挑战及系统级设计考量，为芯片设计工程师优化DDR5内存子系统性能与可靠性提供了实践指导。阅读详情

ccbbcc

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

threenewbee 2020-02-26

打赏
举报

引用 5 楼 ccbbcc 的回复:

非常感谢！不过有个错误： msgbox("已经到达底部，是否从头开始查找", "询问", vbyesno) 这个要改成 msgbox("已经到达底部，是否从头开始查找", vbyesno ，"询问")

嗯，手写的，你明白意思就可以

ccbbcc 2020-02-26

打赏
举报

非常感谢！不过有个错误：
msgbox("已经到达底部，是否从头开始查找", "询问", vbyesno)
这个要改成
msgbox("已经到达底部，是否从头开始查找", vbyesno ，"询问")

threenewbee 2020-02-25

打赏
举报

完整代码下载：https://download.csdn.net/download/caozhy/12190310

Option Explicit



Dim WithEvents findDialog As findDialog



Private Sub Command1_Click()

    List1.AddItem Text1

End Sub



Private Sub Command2_Click()

    If findDialog Is Nothing Then Set findDialog = New findDialog

    findDialog.Show , Me

End Sub



Private Sub findDialog_OnFind(ByVal s As String)

    Dim curr As Integer

    Dim i As Integer

    curr = List1.ListIndex

    For i = curr + 1 To List1.ListCount - 1

        If InStr(1, List1.List(i), s) > 0 Then

            List1.ListIndex = i

            Exit Sub

        End If

    Next

    For i = 0 To curr

        If InStr(1, List1.List(i), s) > 0 Then

            List1.ListIndex = i

            Exit Sub

        End If

    Next

    MsgBox "没找到"

End Sub









Option Explicit



Public Event OnFind(ByVal s As String)



Private Sub Command1_Click()

    RaiseEvent OnFind(Text1.Text)

    Me.SetFocus

End Sub

threenewbee 2020-02-25

打赏
举报

Private Sub findDialog_OnFind(ByVal s As String)
Dim curr As Integer
Dim i As Integer
curr = List1.ListIndex
For i = curr + 1 To List1.ListCount - 1
If InStr(1, List1.List(i), s) > 0 Then
List1.ListIndex = i
Exit Sub
End If
Next
if msgbox("已经到达底部，是否从头开始查找", "询问", vbyesno) = vbno then exit sub
For i = 0 To curr
If InStr(1, List1.List(i), s) > 0 Then
List1.ListIndex = i
Exit Sub
End If
Next
MsgBox "没找到"
End Sub

ccbbcc 2020-02-25

打赏
举报

谢谢！你这个代码很好。我比较满意。
不过，你这个代码如果能找到，会不停的查找。
能不能那样，从头查到尾之后，如果有，在到达尾部时提示已到文件末尾

查找的问题

相关推荐