VB2009过程.pptVIP

例7.10 静态变量的应用 Private Sub Form_Click() Dim i% ，k% For i = 1 To 5 k = f(i) Print k; Next i End Sub Private Function f(Byval n As Integer) As Integer Static j As Integer j = j + n f = j End Function 7.5.4 变量使用原则 使用优先级： 局部变量窗体模块级变量全局变量 7.5.2 过程的作用域 按过程的作用域的大小可以把过程分成两类：窗体/模块级过程和全局级过程。 窗体/模块级：加Private关键字的过程，只能被定义该过程的窗体模块或标准模块中的过程调用。 全局级：加Public关键字（或缺省）的过程，可供该应用程序的所有窗体和所有标准模块中的过程调用 顺序查找 哈，找到了！ a[1] a[2] a[3] a[4] a[5] a[6] a[7] a[8] a[9] a[10] 1 3 5 7 9 2 4 6 8 10 例7.17 顺序查找 Option Base 1 Private Sub Command1_Click() Dim a(), X%, K% a = Array(23, 54, 65, 34, 45, 87, 97, 61) X = InputBox(请输入一关键字：) K = SEARCH(a, X) If K 0 Then 找到，则输出其位置及关键字 Print K, a(K) Else Print NOT FOUND!“ 没找到，则输出 NOT FOUND！ End If End Sub Public Function SEARCH ( a(), ByVal KEY%) SEARCH = -1 假定数组A中无所查关键字 For i = LBound(a) To UBound(a) 从第一个数组元素到最后一个进行顺序查找 If a(i) = KEY Then SEARCH = i Exit Function End If Next End Function 二分法查找（有序数组） a[1] a[2] a[3] a[4] a[5] a[6] a[7] a[8] a[9] a[10] 1 3 5 7 9 12 14 16 18 20 第1次 第2次 第3次 low high mid 1 3 5 7 9 12 14 16 18 20 low high mid 1 3 5 7 9 12 14 16 18 20 low high mid 二分法查找（有序数组） a[1] a[2] a[3] a[4] a[5] a[6] a[7] a[8] a[9] a[10] 1 3 5 7 9 12 14 16 18 20 第1次 第2次 第3次 low high mid 1 3 5 7 9 12 14 16 18 20 low high mid 1 3 5 7 9 12 14 16 18 20 low high mid 第4次 1 3 5 7 9 12 14 16 18 20 low high 二分法查找（折半查找） Option Base 1 Private Sub Command1_Click() Dim A(), KEY% A = Array(21, 43, 56, 65, 79, 90, 92, 97, 98, 99) KEY = InputBox(请输入待查关键字：) k = SEARCH(A, KEY) If k 0 Then Print 关键字; KEY; 所在位置为:; k Else Print 关键字; KEY; NOT FOUND! End If End Sub Function SEARCH(A(), X%) As Integer Rem 在数组a中查找关键字x，若查到则返回其位置，否则返回-1 Dim LOW%, HIGH%, MID% SEARCH = -1 LOW = LBound(A) : HIGH = UBound(A) : MID = (LOW + HIGH