二分法查詢的代碼 使用vb做

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

網(wǎng)站的建設(shè)創(chuàng)新互聯(lián)專注網(wǎng)站定制,經(jīng)驗(yàn)豐富,不做模板,主營(yíng)網(wǎng)站定制開(kāi)發(fā).小程序定制開(kāi)發(fā),H5頁(yè)面制作!給你煥然一新的設(shè)計(jì)體驗(yàn)!已為樓梯護(hù)欄等企業(yè)提供專業(yè)服務(wù)。

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()方法畫(huà)線

line(開(kāi)始x坐標(biāo),開(kāi)始y坐標(biāo))-(結(jié)束x坐標(biāo),結(jié)束y坐標(biāo)),線的顏色，畫(huà)線的方式(默認(rèn)為線，B為矩形無(wú)填充，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

如果要在窗口上畫(huà)也可以調(diào)用窗口的line方法即form.line()