VB编程：对数组进行二分查-29

VB编程：对数组进⾏⼆分查-29

运⾏效果灰姑娘的春天

程序代码

Option Explicit歼-8t

Dim myarray(100) As Integer '定义数组，下标0-100，数组元素为101个

Private Sub Command1_Click()

Dim low, high, mid, n As Integer

Dim found As Boolean

low = 0

n = 0

酸甘化阴

dw15-1000high = UBound(myarray)

found = False

mid = CInt((high + low) / 2) '转换为整型，⼩数部分四舍五⼊，避免下标出现⼩数

Do While Not found And (high >= low)

n = n + 1

If CInt(Text1.Text) = myarray(mid) Then ''查值和当前中间值⽐较，相等输出

found = True淮北同仁中学

Label1.Caption = "查询次数：" & n & vbCrLf & _

"查询数值：" & myarray(mid) & vbCrLf & _

"数组下标：" & mid

Exit Do

ElseIf CInt(Text1.Text) < myarray(mid) Then '查值和当前中间值⽐较，⼩了

地域网high = mid - 1

Else '查值和当前中间值⽐较，⼤了

low = mid + 1

End If

mid = CInt((high + low) / 2)

Loop

End Sub

Private Sub Form_load()

Dim i As Integer

For i = 0 To UBound(myarray) '给数组赋值

myarray(i) = i

Print myarray(i)

Next i

End Sub

学习⼼得

1、⼆分法查的思想就是：先取中间值作⽐较，看⼤了还是⼩了，⼤了就往下取数，⼩了就往上取数。这样逐步缩⼩查范围，就不⽤每个数都去做⽐较。适⽤于有序数组，确实能提⾼计算效率，是⼀个很不错的思维⽅式。

本文发布于:2024-09-22 06:58:35，感谢您对本站的认可！

标签：数组下标查询查找输出

留言与评论（共有 0 条评论）