ch4[函数与过程].pptVIP

第三章回顾 结构化程序设计： 选择语句：if….then语句、select…case语句 循环语句：for….next 语句 while….wend 语句 do….loop 语句 多重嵌套语句 数组的定义与引用： 一维数组及二维数据的声明、数据输入输出 主要介绍： 函数过程(Function) 子过程(SUB过程) 参数传递规则 多模块程序设计（变量作用域） 第4章： 函数与过程 简单例题 编程：计算飞机的高度AB 已知：飞机在B点，雷达以3×108米/秒的速度发射； 1/3000秒的时间收到来自飞机的回波； 雷达发射电波的仰角为300。 思路：先求电波运行的距离OB，根据AB=OB*sin30 得到飞机的高度AB；而OB的距离就是速度乘 时间，由于电波来回时间为1/3000秒，因此 单趟时间为1/3000/2,即： OB＝3×108×1/3000/2 AB=OB×sin300 程序如下： Option Explicit Private Sub Command1_Click() Const vg = 300000000 Const pi = 3.1415 Dim OB as single, AB as single OB = vg / 3000 / 2 AB = OB * Sin(30 * pi / 180) Print 飞机的高度是; AB; 米 End Sub OB＝3×108×1/3000/2 AB=OB×sin300 VB系统函数(标准函数或内部函数)： 三角函数(sin/cos/tan)、指数函数(exp)、对数函数(log) 平方根函数(sqr)、绝对值函数(ABS)、符号函数(sgn) 字串函数(left,mid,right,trim,Ltrim,Rtrim,Len,space等) 日期函数(date,time,now,minute,second,hour,year等) 随机函数(Rnd/Randomize)、print函数、tab函数等等 VB用户自定义函数 Function函数（返回函数值） Sub函数（不返回函数值） 例题4.7木工与油漆工的区别 例题4.1 编程：从键盘输入一个数，输出该数的平方根 要求：输入负数时，不停止程序，只是提示为虚数 思路：这时不能使用VB自带的内部函数sqr 因为输入负数将会出错，只有自己编写一 个求平方根的自定义函数squareroot(N) 知识点： 掌握自定义函数的方法及函数值的返回 4.1 过程的编写与调用 [Public|Private][Static]Function 函数名([形参声明列表])[As类型] 函数体[函数名=返回值] End Function 特点：若要返回函数值，必须在函数体中给函数名赋值 函数过程编写的标准格式： 例如4.1中求平方根的自定义函数过程： Function squareroot (X As Double) As Double Select Case Sgn(X) Case 1 squareroot = Sqr(X) Case 0 squareroot = 0 Case -1 squareroot = -1 End Select End Function 给函数名赋值 （1）函数名：命名规则与变量名规则相同。但不能与系统的内部函数或其它通用子过程同名，也不能与已定义的全局变量和本模块中模块级变量同名。 （2）在函数体内，函数名可以当变量使用，函数的返回值就是通过对函数名的赋值语句来实现的，在函数过程中至少要对函数名赋值一次——也即是一定要有返回值，否则出错。 （3）AS类型：是指函数返回值的类型，若省略，则函数返回变体类型值（Variant）。 （4） 定义为Private的任何过程，只能被其所在窗体的过程调用, 调用格式为 函数名(实参列表);定义为Public（缺省属性）的任何过程，可以被当前工程中其它窗体中的过程调用, 调用格式为 窗体名.函数名(实参列表) 说明： 例题4.1的form2 （5）形式参数声明列表：形式参数通常简称“形参”，仅表示形参的类型、个数、位置，定义时是无值的，只有在过程被调用时，虚实参结合后才获得相应的值。 （6）过程可以无形式参数，但括号不能省。 （7）形参的声明形式： [ByVal｜ByRef]变量名[( )][As 类型][,…]， ByVal表示当该过程被调用时，参数是按值传递的；缺省或ByRef表示当该过程被调用时，参数是按地