VB程序设计基础教程第3.pptVIP

第3章 过程、函数与算法 3.1 过程 Sub过程的定义 Sub过程的调用 定义Function过程 Function过程的调用 按值传递参数 按地址传递参数 3.2 常用内部函数 3.3 常用算法 选择法排序（升序） 冒泡法排序（升序） 合并法排序 顺序查找法 折半查找法 习题 1．选择题 （1）用于删除字符串前导空格的函数是（ ）。 A．Rtrim B．Ltrim C．Trim D．Right （2）有一个字符串变量s，要得到该字符串变量左边的5个字符的函数是（ ）。 A．ight(s，5) B．Left(s，5) C．Mid(s，5，5) D．Right(s，5) （3）以下（ ）函数用于返回字符串的长度。 A．String( ) B．Len( ) C．Space( ) D．Mid( ) Function search(a() As Integer, x As Integer) As Integer Dim bot%, top%, mid% Dim find As Boolean //代表是否找到// bot = LBound(a) top = UBound(a) find = False //判断是否找到的逻辑变量，初值为False// Do While bot = top And Not find mid = (top + bot) \ 2 If x = a(mid) Then find = True Exit Do ElseIf x a(mid) Then top = mid - 1 Else bot = mid + 1 End If Loop If find Then search = mid Else search = -1 End If End Function 3.3.6 递归算法 用自身的结构来描述自身，称递归。VB允许在一个Sub子过程和Function过程的定义内部调用自己，即递归Sub子过程和递归Function函数。递归处理一般用栈来实现，每调用一次自身，把当前参数压栈，直到递归结束。然后从栈中弹出当前参数，直到栈空。 例如，编Sum(n)=n! 的递归函数： Function Sum (n As Integer) As Integer If n = 1 Then Sum = 1 Else Sum = n * Sum (n - 1) End If End Function 更多习题见书46页 魏豪明 制作 魏豪明 制作 3.1 过程 1 3.2 常用内部函数 2 3.3 常用算法 3 3.1.1 Sub过程 Sub过程没有返回值，是在响应事件时执行的代码块。Sub过程用Sub … End Sub定义，其格式为： [Private][Public][Static]Sub [过程名] ([参数表]) 语句序列 End Sub 说明： ① Sub过程定义以Sub开始，以End Sub结束，中间是描述过程功能的语句序列，称为过程体。 ② Sub前面的Private、Public和Static，用于指定过程或其中定义的变量的有效范围。 ③ 过程名与变量的命名规则相同，不能与Visual Basic中的关键字重名，也不能与同级的变量同名。 图3-1 “添加过程”对话框 图3-2 代码编辑窗口 （1）直接使用子程序名调用Sub过程 格式：子程序名 [参数1]，[参数2] 直接使用子程序名调用上述Sum子程序如下： Sum a1,b1 （2）使用Call语句调用Sub过程 格式：Call 过程名（参数1，参数2） 注意 参数的个数、数据类型必须与被调用过程的参数一致。 例如，下面是调用Sum子程序的语句： a1 = 5 b1 = 5 Call Sum (a1,b1) 同样在使用Call语句调用时，也可以不带参数，如：Call Sum。 3.1.2 Function过程 [Private][Public][Static]Function 过程名 ([参数表]) [As 数据类型] 语句序列 End Function 说明： ① Function过程定义以Function开始，以End Function结束，中间是描述过程功能的语句序列，称为过程体或函数体。 ② [Priva