vb.net二分法代码,VB二分法

二分法查询的代码使用vb做

Public Function BinSearch(ByRef strElement() As String, ByVal strKey As String) As Long

网站的建设创新互联专注网站定制,经验丰富,不做模板,主营网站定制开发.小程序定制开发,H5页面制作!给你焕然一新的设计体验!已为楼梯护栏等企业提供专业服务。

Dim lngLow As Long

Dim lngHigh As Long

Dim lngMiddle As Long

lngLow = 0

lngHigh = UBound(strElement)

While (lngLow = lngHigh)

lngMiddle = (lngLow + lngHigh) / 2

If strElement(lngMiddle) = strKey Then

BinSearch = lngMiddle

Exit Function

Else

If strElement(lngMiddle) strKey Then

lngHigh = lngMiddle - 1

Else

lngLow = lngMiddle + 1

End If

End While

BinSearch = -1 '查找失败

End Function

for i=1 to n-1

for j=i+1 to n

if a(i)a(j) then

tmp=a(i)

a(i)=a(j)

a(j)=tmp

冒泡排序法

新建窗口，添加picture控件

利用line()方法画线

line(开始x坐标,开始y坐标)-(结束x坐标,结束y坐标),线的颜色，画线的方式(默认为线，B为矩形无填充，BF为填充的矩形)

For i = 1 To 16

Picture1.Line (0, Picture1.Height / 2)-(i * (Picture1.Width / 16), 0), RGB(255, 0, 0)

Picture1.Line (0, Picture1.Height / 2)-(i * (Picture1.Width / 16), Picture1.Height), RGB(255, 0, 0)

Picture1.Line (Picture1.Width, Picture1.Height / 2)-(i * (Picture1.Width / 16), 0), RGB(0, 255, 0)

Picture1.Line (Picture1.Width, Picture1.Height / 2)-(i * (Picture1.Width / 16), Picture1.Height), RGB(0, 255, 0)

Next i

如果要在窗口上画也可以调用窗口的line方法即form.line()

网站题目：vb.net二分法代码,VB二分法
网页链接：http://scyanting.com/article/hcihgs.html