VB学习资料(20)

VB入门必备,初学者也能看懂,这篇主要是VB入门基础,但却对你深入学习理解VB有很大的帮助,10个财富值,你不亏。

Next i 查询

1. 顺序查询

从一组数据中，按顺序地查找指定的数据。 【例】用顺序查询法在下列数据中查找关键字值

k = Val(InputBox("输入要查询的数"))

p = 1

While k <> a(p) And p < n p = p + 1 Wend

If k = a(p) Then

Print k; "be found,on"; p; "th position." Else

Print k; "has not be found." End If

2 折半查询

折半查找也称为二分法查询

只能对有序数列进行查询。

【例】用折半查询法查找关键字值66。

-123，-10，5，8,30,56,59,66，90,518

Option Base 1

Private Sub Form_Click() Dim a As Variant

a = Array(-123, -10, 5, 8, 30, 56, 59, 66, 90, 518) n = UBound(a)

Print "数组a中的10个数为:"

For Each ii In a Print ii; " "; Next ii Print

k = Val(InputBox("输入要查询的数")) Print "要查询的数是:"; k

low = 1 hig = n

find = -1

While low <= hig And find = -1 m = (low + hig) \ 2