子过程和函数过程.pptVIP

Function FirProc（z As Integer，y As Integer，z As Integer） FirProc＝2x+y+3zEnd FunctionFunction SecProc（x As Integer，y As Integer，z As Integer） SecProc＝FirProc（x，y，z）+xEnd FunctionPrivate Sub Command1_Click（） Dim a As Integer，b As Integer，c As Integer a＝2：b＝3：c＝4 Print SecProc（c，b，a）End SubA） 21 B） 19 C） 17 D） 34 课堂练习 第三十页，共七十一页，2022年，8月28日 2010-9-22以下关于局部变量的叙述中错误的是 A）在过程中用Dim语句或Static语句声明的变量是局部变量 B）局部变量的作用域是它所在的过程 C）在过程中用Static语句声明的变量是静态局部变量 D）过程执行完毕，该过程中用Dim或Static语句声明的变量即被释放 课堂练习 第三十一页，共七十一页，2022年，8月28日 下列程序的输出结果是10 110。 Private Sub sub1(ByVal a As Integer, b As Integer) a = a + b: b = b + a End Sub Private Sub Form_Click() Dim x As Integer, y As Integer x = 10: y = 20 Call sub1(x, y) sub1 x, y Print x; y End Sub 第三十二页，共七十一页，2022年，8月28日 过程的嵌套：类似选择结构和循环结构的嵌套。也就是指一个过程中包含了另一个过程的调用。 8.4.1 过程的嵌套 8.4 过程的嵌套和递归调用 Sub form_click() … Call sub1 … End sub Sub sub1 … Y=F1(n) … End sub Function F1(x) … F1=…. … End Function 第三十三页，共七十一页，2022年，8月28日 过程的递归：简单说就是自己调用自己。 8.4.2 过程的递归 Function fact(n %) As Double Dim i As Integer, f As Double f = 1 For i = 1 To n f = f * i Next fact = f End Function Function fact(n %) As Double If n=1 then fact=1 else fact=n*fact(n-1) End Function 用递归实现 阶乘 不用递归实现 阶乘 第三十四页，共七十一页，2022年，8月28日 Function fact(n %) As Double If n=1 then fact=1 else fact=n*fact(n-1) End Function 现在假N=4,观察 执行过程 Fact(4)=4*fact(3) Fact(3)=3*fact(2) Fact(2)=2*fact(1) Fact(1)=1 Fact(2)=2*1 Fact(3)=3*2 Fact(4)=4*6 第三十五页，共七十一页，2022年，8月28日 注意 VB语言不允许过程的嵌套定义，即一个过程内不能包含另一个过程. VB语言允许过程的嵌套调用，即在调用一个过程的过程中，又调用另一个过程 . 第三十六页，共七十一页，2022年，8月28日 窗体模块：文件扩展名为 .frm 窗体模块是VB程序的基础，与窗体对应，存放着该窗体的所有信息，如窗体及其上各控件对象的界面信息、属性、事件过程、通用过程、变量和常量的声明等。 可以通过记事本打开查看。 8.5.1 窗体模块和标准模块 8.5 变量及过程的作用域 第三十七页，共七十一页，2022年，8月28日 标准模块：文件扩展名为．Bas 它们可以包含变量、常数、类型、外部过程和全局过程的全局(在整个应用程序范围内有效的)声明或模块级声明。写入标准模块的代码不必绑在特定的应用程序上，则在许多不同的应用程序中可以重用标准模块。 当一个过程要被多个不同对象或不同模块中的程序调用时，那么该过程一般可放在标准模块中。 第三十八页，共七十一页，2022年，8月28日 在VB中，由于可以在过程中和模块中声明变量，根据定义变