网站木马诊断,2024最火的十大新闻,电商数据分析网站,仿蘑菇街wordpress主题二分查找是一种极其高效、简练的查找算法#xff0c;它不仅简单#xff0c;易用#xff0c;而且还非常的高效。相对于顺序查找#xff0c;二分查找在效率是呈现指数性提升#xff0c;数据量越大#xff0c;越能体现出二分查找法的优势。二分查找的查找过程是#xff1a;… 二分查找是一种极其高效、简练的查找算法它不仅简单易用而且还非常的高效。相对于顺序查找二分查找在效率是呈现指数性提升数据量越大越能体现出二分查找法的优势。二分查找的查找过程是先确定待查找元素所在线性表的范围然后逐步缩小范围直到找到(或找不到)该元素为止。二分查找算法要求数据必须是有顺序的排序即要么是升序排列要么是降序排列。因此在使用二分查找法前需要将数组处理为有序数组。案例说明本案例演示了如何利用二分查找算法在一个有序数组中查找指定内容。关键技术利用do循环结构语法每次循环时查找一个中间值并判断是否是要找的内容如果是则结束循环否则修改中间值继续查找直到找到指定内容或者查询完毕。设计过程步骤一按照下图完成程序界面的搭建。步骤二首先需要在代码区顶部声明一个全局数组arr(1000)Option ExplicitDim arr(1000) As Long步骤三然后编写窗体加载的代码在这里我们为arr数组赋予一个初始的内容。Private Sub Form_Load() Dim i As Long 给数组分配内容 For i 1 To 1000 arr(i) i * 2 Next iEnd Sub步骤四接着我们编写查询按钮的代码。Private Sub Command1_Click() Dim low%, hight%, mid% Dim flag As Boolean 是否查询到内容的标记 给下标、上标和中间值初始值 low 1 hight 1000 mid (low hight) / 2 flag False 开始查找 Do While (flag False And hight low) If arr(mid) Text1 Then MsgBox 找到该数下标为 mid flag True Exit Do ElseIf arr(mid) Val(Text1) Then hight mid - 1 Else low mid 1 End If mid (low hight) / 2 DoEvents Loop If flag False Then MsgBox 未查询到该数End Sub步骤五最后我么来进行测试。运行程序输入一个要查找的数值然后点击查询按钮。总结数组在VB中具有非常非常重要的作用对于处理数据具有绝对的优势因此掌握数组的基本操作尤其是增加、删除和插入以及查询都是相当重要的。小伙伴们一定要勤加练习哦。友情提示添加QQ群 一起学VB 1138946358 可第一时间获取本案例源代码~~
