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 If

End While

BinSearch = -1  '查找失败

End Function

求VB选择排序,冒泡排序,二分法的代码

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

next

next

冒泡排序法

跪求vb.net代码

新建窗口，添加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()