ch4(函数及过程).pptVIP

第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 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函数等等 例题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 说明： 例题4－3（P86) 编程：显示1～1000中的所有素数 要求：调用函数过程判断一个数是否素数 知识点： 1、学习自定义函数过程的编写与引用 2、了解VB编程方法不同对计算速度的影响 3、学习一些固有的输出格式，如固定一行输 出多少素数 Function函数（返回函数值） Sub函数（不返回函数值） 例题4－1（P84） 编程：输出序列1，1，1，1，2，1，1等前55项 程序如下： 程序如下： 知识点： 1、学习函数过程的编写与调用 2、学习形参与实参的概念 3、了解直接调用与间接调用的方法 4、了解形参是可以多个的，不仅如此，后面 的例题可以看到，形参还可以是数组 数组作为参数传递： 调用（实参）： 函数名（数组名，数组大小） 编写（形参）： 函数名（数组名加括号，数组大小） 例题4.2 编程：编写一个函数，求数组中全体元素的和 思路：主程序中必须产生数组，子函数要返回数 值（这里的数值是数组中全体元素的和） 知识点： 1、如何将数组传递给子函数（数组名及数组个数） 2、参数传递过程中的类型必须一致 例题4-5（P88） 编程：编写函数求二维数组全体元素的和 思路：二维数组在主程序中定义及输入， 调用求和过程 知识点： 1、掌握二维数组形参和实参传递的方法 2、二维数组的元素和的计算需要二重循环 编写function函数过程总结： SUB 过程的编写 Sub过程的调用 例题4－7（P89） 编程：数组元素排序（降序） 思路：数组的输入与降序输出由主程序完成 排序过程由sub过程完成 知识点： 1、数组的参数传递不仅要有数组名，还要有数组大小 2、为了在主程序中输出排序结果，必须用按地址传递 3、形参中缺省传递方式就是按地址传递 例题