[理学]第6章 过程.pptVIP

0 VB中有两类过程: 一类是系统提供的内部函数过程和事件过程，事件过程是构成VB应用程序的主体。 另一类是用户根据自己的需要定义、供事件过程多次调用的过程。 使用过程的好处是使程序简练，便于调用和维护。 自定义过程分类： 以“SUB”保留字开始的子过程； 以“FUNCTION”保留字开始的函数过程； 6.1 函数过程的定义和调用 6.1.1 引例 6.1.2函数过程的定义 6.1.3函数过程的调用 思考 定义一个函数，计算1到n的累加和。 编计算矩形面积的函数。 函数过程的调用 （求和） 函数过程的调用（求矩形面积） 函数过程的调用 6.2 子过程的定义与调用 6.2.2子过程的定义 子过程与函数过程的区别 参数问题 6.2.3子过程调用 6.2.3子过程调用 6.3 参数传递 6.3.2 传址与传值 例6.6 传址与传值 测试:传址与传值调用的比较 写出下列程序的运行结果。 Function hscs(ByVal x!) x = x + 10 Print x=; x hscs = x End Function Private Sub Form_Click() Dim a!, b!,x! a = 12: b = hscs(a) Print b=; b Print a=; a End Sub 传址与传值 6.3.3 数组参数的传递 数组参数的传递 6.4.2 递归 6.5 变量的作用域 6.5.1 变量的作用域 变量的作用域 6.5.2 静态变量 6.6 综合应用 综合应用-加密 Welcome stud 综合应用-查找 综合应用-字符处理 思考题 课后复习 【常见疑问】 Public/Private/Dim/Static内涵的联系与区别 递归程序的执行流程 静态变量的使用 【作业：】 第6章：P150 ： 3、4 分析以下子过程的功能 ，当n=100,r=8,结果是多少？ Public Sub f(ByVal n %, ByVal r %) ① If n r Then Call f(n \ r, r) ② Print n Mod r; End Sub Private Sub Command1_Click() Call f(100, 8) End Sub 显示结果 1 4 4 递归常见错误： 递归调用出现“栈溢出” 在递归调用时，其中的参数要向终止方向收敛。 如下求阶乘的递归函数过程： Public Function fac(n As Integer) As Integer If n = 1 Then fac = 1 Else fac = n * fac(n - 1) End If End Function Private Sub Command1_Click() Print “fac(5)=”；fac(5) Print “fac(5)=”；fac(-5) ‘ 栈溢出 End Sub 例6.10 打印分形图 VB的应用程序由若干个过程组成，这些过程一般保存在窗体文件(.frm)或标准模块文件(.bas)中。变量在过程中是必不可少的。一个变量、过程随所处的位置不同，可被访问的范围不同，变量可被访问的范围称为变量的作用域。 局部变量 在一个过程内用Dim或Static语句声明的变量，只能在本过程中使用。一旦该过程体结束，变量的内容自动消失，占用的存储单元释放。不同的过程中可有相同名称的变量，彼此互不相干。 模块级变量 在“通用声明”段中用Dim、Private语句声明的变量，可被本窗体的任何过程访问 。 全局变量 在“通用声明”段中用Public语句声明的变量，可被应用程序的任何过程或函数访问。只有当整个应用程序执行结束时，全局变量的值才会消失。 例如在下面一个标准模块文件中不同级的变量声明： Public Pa As integer 全局变量 Private Mb As string *10 窗体/模块级变量 Sub F1( ) Dim Fa As integer ‘ 过程级变量 … End Sub Sub F2( ) Dim Fb As Single ‘过程级变量 For i=1 to 10 Dim k% ‘ 局部变量 …