VB计算机语言基础第五章--过程.pptVIP

* 斐波那契数列问题求解 Private Sub Form_Click() Print fibonacci(12) End Sub Function fibonacci(x as integer) If x=1 or x=2 then fib = 1 Else fibonacci=fibonacci(x-1)+ fibonacci(x-2) End If End Function * Dim语句——自动变量 作用范围取决于其声明的位置 Static语句——静态变量 作用范围只在于它定义的过程中，但过程结束后，变量值保存 Private语句——模块级变量 只能在窗体/模块的通用声明段声明（过程外），作用范围是窗体/模块中的所有过程 Public语句——全局变量 只能在窗体/模块的通用声明段声明（过程外）， 变量有效范围从声明点算起，生存期是整个应用程序 5.5 变量的作用范围 * Visual Basic 应用程序的模块化结构 应用程序 工程文件（.vbp） 窗体模块 （.frm）文件 类模块 （.cls）文件 标准模块 （.bas）文件 事件过程 （sub） 子过程 （sub） 函数过程 （Function） 子过程 （sub） 函数过程 （Function） * 作用范围 局部变量 窗体/模块级变量 全局变量 窗体 标准模块 声明方式 Dim Static Dim Private Public 声明位置 在过程中 窗体/模块的通用声明段 窗体/模块的通用声明段 能否被本模块的其他过程存取 不能 能 能 能否被其他模块存取 不能 不能 能，但在变量名前加窗体名 能 * Dim x As Integer, y As Integer Private Sub Command1_Click() Dim Result As Single x=10: Result=x-y Print Result End Sub Private Sub Command2_Click() Dim Result As Single y=20: Result=x+y Print Result End Sub 思考： 先单击Command1，再单击Command2，输出？ 分析： ①先单击Command1 X=10 Result=10-0=10 ②再单击Command2， Y=20 Result=10+20=30 思考： 先单击Command2，再单击Command1，输出？ * 通过文本框输入若干个值，每输入一个按Enter键，直到输入的值为100，输入结束，求输入数的平均值。 Private Sub Text1_KeyPress(KeyAscii As Integer) Dim sum!, n% If KeyAscii = 13 Then If Val(Text1) = 100 Then sum = sum / n Print sum Else sum = sum + Val(Text1) n = n + 1 Text1 = End If End If End Sub 思考：该程序有无错误？ Static sum!, n% sum = sum / n Sum=-1.#IND n=0 进一步思考： 应怎样改进？ * 1．两类过程的定义与调用 小 结 分类 定义形式 特点 子 过 程 Sub 子过程名（[形参表]） … End Sub 无返回值 无类型 函 数 过 程 Function 函数过程名 ([形参表]) [As 数据类型] … 函数过程名=表达式 … End Sub 有返回值 有类型 在过程内至少赋值一次 * 2．参数传递 小 结 类别 关键字 传递方式 按值传递 ByVal 实参 形参 单向的数据传递 按地址 传递 ByRef （默认方式） 实参 形参 值 操作结果 双向的数据传递 * * 第五章 过程 计算机程序设计基础 生物医学工程学院 计算机教研室 VB语言-----过程 * main contents 子过程的定义与调用 函数过程的定义与调用 参数传递 重点 过程的递归调用 难点 变量的作用范围 * 验证哥德巴赫猜想： 任一大于2的偶数都可写成两个质数之和。 * 过程（Procedure）是一组能够完成特定功能的代码，以一个名字来标识，用这个名字来调用。